Okay. I think I got my main form figured out. It is pulling from one query that is built off of two tables.
What I want is the following:
Open the form and it is blank.
I choose the facility name from the combo box and the combo box, facility ID, and address information self-populate.
Then I enter the review information (review date, reviewer name, etc)
If a letter was sent I do want to make a subform to enter that info which would come up when a button on the main form is pushed.
There would be a similar subform that could be shown if the facility was referred to another agency.
There is a possibility that I could enter facility information in multiples so when I get passed the save button the form should go blank again.
Right now I cannot get the form to let me enter any information.
I have the form itself set to data entry, but it is not letting me enter anything.
Here is the code that I have on the save button:
Private Sub saveallreviewinfofrm_Click()
On Error GoTo Err_saveallreviewinfofrm_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "QryAllReviewInfo"
DoCmd.GoToRecord , , acNewRec
Me.Parent.Refresh
Exit_saveallreviewinfofrm_Click:
Exit Sub
Err_saveallreviewinfofrm_Click:
MsgBox Err.Description
Resume Exit_saveallreviewinfofrm_Click
End Sub
Any input would be much appreciated.
Thank you
Nicole
What I want is the following:
Open the form and it is blank.
I choose the facility name from the combo box and the combo box, facility ID, and address information self-populate.
Then I enter the review information (review date, reviewer name, etc)
If a letter was sent I do want to make a subform to enter that info which would come up when a button on the main form is pushed.
There would be a similar subform that could be shown if the facility was referred to another agency.
There is a possibility that I could enter facility information in multiples so when I get passed the save button the form should go blank again.
Right now I cannot get the form to let me enter any information.
I have the form itself set to data entry, but it is not letting me enter anything.
Here is the code that I have on the save button:
Private Sub saveallreviewinfofrm_Click()
On Error GoTo Err_saveallreviewinfofrm_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "QryAllReviewInfo"
DoCmd.GoToRecord , , acNewRec
Me.Parent.Refresh
Exit_saveallreviewinfofrm_Click:
Exit Sub
Err_saveallreviewinfofrm_Click:
MsgBox Err.Description
Resume Exit_saveallreviewinfofrm_Click
End Sub
Any input would be much appreciated.
Thank you
Nicole
Last edited: