ник: LilijaSt
нет - всё в одной базе. Могу кинуть что написала - уверена что не правильно... исправте пожалуйста.
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
'Dim stDocName As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef
'stDocName = "Table1 Query"
'DoCmd.OpenQuery stDocName, acNormal, acEdit
Set db = CurrentDb()
Set qdf = db.QueryDefs("Table1 Query")
Set rst = qdf.OpenRecordset(1, 1)
If rst.RecordCount <> 0 Then
MsgBox "1 , 1 = " & rst.Fields(3)
Else
MsgBox "nothing"
End If
Exit_Command10_Click:
Exit Sub
Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click
End Sub
говорит что инвалид...