ник: LilijaSt
Опять непонятное поведедение... Вот код:
Private Sub Search_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = db.QueryDefs("LIST")
If (Me.Document.Value <> "") Then
strSQL = "SELECT [Table1].ID, [Table1].Document, [Table1].[Document No] FROM [Table1] WHERE ((Table1.Document)=[Forms]![MAIN]![Document]);"
ElseIf (Me.DocumentNo.Value <> "") Then
strSQL = "SELECT [Table1].ID, [Table1].Document, [Table1].[Document No] FROM [Table1] WHERE ((Table1.[Document No])=[Forms]![MAIN]![DocumentNo]);"
End If
qdf.SQL = strSQL
Set db = Nothing
Set qdf = Nothing
DoCmd.Requery "LIST subform" 'должен произойти рефреш query "LIST subform" на форме "MAIN"
End Sub
|
Запрос, если его открыть отдельно работает, сабзапрос тоже, а на форме рефреш происходит только если закрыть и открыть форму заного.... Что делать?