Private Sub OpenfrmGetDate_Click()
Dim stDocName As String
DIM SQL as String
SQL = "SELECT Field1, Field2, Field3, .... " & _
"FROM MyTable " & _
"WHERE Left(CustName,3) = '" & Left(Forms!frmMarketing!CustFld, 3) & "' " & _
"DEPT = 'Marketing'"
stDocName = "frmGetDate" '<-- Form name to open
DoCmd.OpenForm stDocName 'Open the form
Forms![frmGetDate]!RecorodSouce = SQL
Forms![frmGetDate].Tag = "frmMarketing" '<-- Put the Tag on to show the _
originating form.
End Sub
|