ник: LilijaSt
ну вот, я пишу:
Private Sub strSQL()
Dim strSQL As String
strSQL = "SELECT * FROM *MAINTENANCE_DATA (Boeing)* WHERE Field1 Like' *Forms!Form1!Document*' "
End Sub
естественно виходит красивое фигу... ммм?
Private Sub Command4_Click()
Forms!Form1.Maintenance_Data(Boeing).Form!RecordSource = strSQL
End Sub