У кого нибудь возникала ошибка при открытии Recordset'а:
Run-time error '3061':
слишком мало параметров. Требуется 1.
- Код: Выделить всё
Function GetOrg(ByVal RasSchet As String) As String
Dim bd As dao.Database, rr As dao.Recordset
Dim tmp as String
cdb = GetSetting("PlatManager", "Options", "DB")
Set bd = dao.OpenDatabase(cdb)
tmp = "SELECT * FROM Org WHERE (RSchet='" & RasSchet & "')"
Set rr = bd.OpenRecordset(tmp)
....
End Function