| |
|
|
| | После разбиения базы на 2 части стали возникать ошибки в процедурах на события.
До разбиения все работало. | |
| |
| |
| |
|
|
| | дело не в разбиении.
После разбиения единственное что могло перестать работать это метод seek объекта DAO.Recordset | |
| |
| |
| |
|
|
| | Возникает ошибка: Run-Time error 3048, подпись - открытие дополнительных данных невозможно. В коде выделяется строка типа set rst=db1.openrecordset(select t1.* from t1 where ...) | |
| |
| |
| |
|
|
| | а весь код увидеть можно?
db1 как получаете? | |
| |
| |
| |
|
|
| | dim db1 as dao.database
set db1=current db()
set rst=dbstock.openrecordset("select t1.* from t1...")
тоже самое на querydefs | |
| |
| |
| |
|
|
| | Вам не кажется странным что определяете Вы текущую БД переменную db1
set db1=current db()
а рекордсет пытаетесь открыть в какой-то другой dbStock
set rst=dbstock.openrecordset("select t1.* from t1...")
почему вы не хотите показать своой кусок кода... просто copy-past без всяких исправлений.
Как можно найти ошибку если вы не показываете код в котором она происходит | |
| |
| |
| |
|
|
| | конечно не stock а db1 - сорри
уставший был.
завтра пришлю код - нет проблем | |
| |
| |
| |
|
|
| | Код:
Private Sub retailIn_Click()
Dim dbStock As DAO.Database
Dim rst1 As DAO.Recordset
Dim qdf1 As QueryDef
Set dbStock = CurrentDb()
Set rst1 = dbStock.OpenRecordset("SELECT t1товар.*FROM t1товар WHERE t1товар.приходID = " & Me.приходID)
If rst1.AbsolutePosition = -1 Then
Else
End if | |
| |
| |
| |
|
|
| | rst1.AbsolutePosition = -1 - это что?
AbsolutePosition не может быть меньше 0
И что не работает? | |
| |
| |
| |
|
|
| | AbsolutPosition меньше 0 если нет в рекорсете записей. я эту проверку практически всегда использую и всегда работало. приведенных кусков кода в программе много а ругается на строчку Set rst1 = dbStock.OpenRecordset("SELECT t1товар.*FROM t1товар WHERE t1товар.приходID = " & Me.приходID)
Подскажите как определить количество открытых баз в коде. | |
| |
| |
