| |  На А97 приложение работает, возникла необходимость присоединить таблицы БД на А2003.
Преобразовал приложение А97 в А2003, перестало работать выдает ошибку.
Причем ошибка возникает и без преобразования, если просто открываешь под А2003.
Ниже приведена часть кода приложения, в котором возникает ошибка:
Private Sub btnLoad_Click()
Dim tTov As Recordset, onError As Integer
Dim shCod As String, res As Integer, otdel As Integer
On Error Resume Next
If BlockCash() Then Exit Sub
Pb.Max = DCount("kodTov", "addTovar") + 1
Set tTov = CurrentDb.OpenRecordset("addTovar")
If TopFolderList() Then Exit Sub
If NextFolder() Then Exit Sub
While Not tTov.EOF
Me!kod = tTov!KodTov: Me!tName = tTov!Name: Me!Price = tTov!Price: Me!nal = tTov!nal
DoEvents
'DoCmd.RepaintObject acForm, Me.Name
If OnLine.EditTovar(tTov!KodTov, tTov!Price, tTov!Name, 1, 1, tTov!nal, 1) = 0 Then
res = OnLine.GetLastError()
If OnLine.AddTovar(GetNameFolder(), tTov!KodTov, tTov!Name, tTov!Price, 1, 1, tTov!nal, 1) = 0 Then
myMsgError
Exit Sub
End If
End If
tTov.MoveNext
Pb.Value = Pb.Value + 1
Wend
Pb.Value = 0
If UnBlockCash() Then Exit Sub
End Sub
Public Sub myMsgError()
Dim title As String
On Error Resume Next
Select Case OnLine.GetLastError()
Case 1
title = "Не найден раздел"
Case 2
title = "Неверное значение кода"
Case 3
title = "Неверное значение стоимости"
Case 4
title = "Неверное значение отдела"
Case 5
title = "Неверное значение товарной группы"
....
End Select
MsgBox title, vbCritical + vbOKOnly, "Ошибка!"
End Sub
Выдает :Ошибка Неверное значение стоимости
Причем, если подставляешь конкретное значение вместо "tTov!Price", например: 789,57 все работает. tTov!Price - денежный формат.
Может у кого-нибудь возникнут идеи на этот счет, буду признателен.
| |
