Подскажите, как обозначить переменную в Access 2002.
на dbs ругается. вот пример.
Public Function qw()
Dim dbs As Database '(В этом месте пишит что тип переменой указан неправильно)
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Kod_w", dbOpenDynaset)
With rst
rsta.Edit
rsta.Fields("Äàòà") = Forms![Ôîðìà1]![Ïîëå93]
rsta.Fields("Äàòà1") = Forms![Ôîðìà1]![Ïîëå24]
rsta.Fields("Îãðàíè÷åíèå") = Forms![Ôîðìà1]![Îãðàíè÷åíèå]
rsta.Update
End With
MsgBox rst.Fields(0) & " " & rst.Fields(1) & " " & rst.Fields(2)
End Function
В 97 работает, в 2000 и 2002 нет.