Right now I have a text box (Text13) and a Command Button. The Button code is:
Expand|Select|Wrap|Line Numbers
- Private Sub Command15_Click()
- Dim code As String
- Dim inboundform As String
- code = "[Input Codes]='" & Me.Text13 & "'"
- DoCmd.OpenForm "Project Inbound", acNormal, , code
- End Sub
Any ideas?