D
dsc2bjn
I have created a form which contains multiple Yes/No boxes.
I wish to store the value of the records (both selected and not selected) in
two separate tables. The "Yes" value records will be stored in my "Closed"
table and the "No" value records will be stored in the "Open" table.
I created a button which will open a pop-up dialog box for the user to enter
a comment. I tried adding the code below to that button, but it only stores
the first No (open) and the first Yes (closed) records. How can I have it
loop through all the records on the screen?
Private Sub Command90_Click()
On Error GoTo Err_Command90_Click
If CAMO_Concurrence = True Then
DoCmd.RunMacro "macSAR Weakness (Closed)"
DoCmd.RunMacro "macSAR Weakness (Open)"
End If
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SA Monitoring Report Comments"
stLinkCriteria = "[Office]=" & "'" & Me![Office] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command90_Click:
Exit Sub
Err_Command90_Click:
MsgBox Err.Description
Resume Exit_Command90_Click
I wish to store the value of the records (both selected and not selected) in
two separate tables. The "Yes" value records will be stored in my "Closed"
table and the "No" value records will be stored in the "Open" table.
I created a button which will open a pop-up dialog box for the user to enter
a comment. I tried adding the code below to that button, but it only stores
the first No (open) and the first Yes (closed) records. How can I have it
loop through all the records on the screen?
Private Sub Command90_Click()
On Error GoTo Err_Command90_Click
If CAMO_Concurrence = True Then
DoCmd.RunMacro "macSAR Weakness (Closed)"
DoCmd.RunMacro "macSAR Weakness (Open)"
End If
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SA Monitoring Report Comments"
stLinkCriteria = "[Office]=" & "'" & Me![Office] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command90_Click:
Exit Sub
Err_Command90_Click:
MsgBox Err.Description
Resume Exit_Command90_Click