MonkeyChico
Registered User.
- Local time
- Yesterday, 20:51
- Joined
- May 11, 2010
- Messages
- 18
I have a command button that I want to open a form and filter a field on a subform. The main form is "frm_QuotingListAll" the subform is "frm_Quoting Datasheet subform" and the field is "Transfer Status". Could someone please help me with the subform control syntax?
Private Sub cmd_viewinprogess_Click()
On Error GoTo Err_cmd_viewinprogess_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_QuotingListAll"
stLinkCriteria = "forms![frm_Quoting Datasheet subform]![Transfer Status] = 'In Progress'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd_viewinprogess_Click:
Exit Sub
Err_cmd_viewinprogess_Click:
MsgBox Err.Description
Resume Exit_cmd_viewinprogess_Click
End Sub
Private Sub cmd_viewinprogess_Click()
On Error GoTo Err_cmd_viewinprogess_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_QuotingListAll"
stLinkCriteria = "forms![frm_Quoting Datasheet subform]![Transfer Status] = 'In Progress'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd_viewinprogess_Click:
Exit Sub
Err_cmd_viewinprogess_Click:
MsgBox Err.Description
Resume Exit_cmd_viewinprogess_Click
End Sub