Private Sub CMDSEARCH_Click()
Dim SQL As String
SQL = "SELECT MASTER.[AC_NO], MASTER.[EMP_NAME], MASTER.[DOR], MASTER.[PPO_NO]" _
& "FORM MASTER" _
& "WHERE [EMP_NAME] LIKE '*" & Me.TXTKEY & "*' " _
& "ORDER BY MASTER.[EMP_NAME]"
Me.SUB_FORM_LIST.Form.RecordSource = SQL
Me.SUB_FORM_LIST.Form.Requery
End Sub
Dim SQL As String
SQL = "SELECT MASTER.[AC_NO], MASTER.[EMP_NAME], MASTER.[DOR], MASTER.[PPO_NO]" _
& "FORM MASTER" _
& "WHERE [EMP_NAME] LIKE '*" & Me.TXTKEY & "*' " _
& "ORDER BY MASTER.[EMP_NAME]"
Me.SUB_FORM_LIST.Form.RecordSource = SQL
Me.SUB_FORM_LIST.Form.Requery
End Sub