Как исправить несовпадение типов в коде?

Question

[favbet]

Sub zamena()
Dim bd As Database, tab1 As Recordset
Set bd = DBEngine.Workspaces(0).Databases(0)
Set tab1 = bd.OpenRecordset("Final_target")
Do Until tab1.EOF
If tab1.Fields("PackName").Value = "R" And tab1.Fields("PackId").Value = 13 Then
tab1.Edit
tab1.Fields("PackName_new").Value = "B" And tab1.Fields("PackId_new").Value = 31
tab1.Update
End If

НА строчке
tab1.Fields("PackName_new").Value = "B" And tab1.Fields("PackId_new").Value = 31
пишет: Type mismatch.
Не понять почему, ведь поле PackId_new - числовое и присваиваю ему тоже число.
Помогите...

Answer 1

[localghost]

Может быть, не надо два присваивания через And писать?

Upd.: что касается именно Type mismatch - то, наверное, потому, что переменной 'tab1.Fields("PackName_new").Value' вы пытаетесь присвоить значение '"B" And tab1.Fields("PackId_new").Value = 31'.

Comments

[favbet]

Брависсимо, гуру!! Получилось

[localghost]

Да ну, какой я гуру, я этот язык (или похожий на него) последний раз 15 лет назад видел :)
Что же было не так с изменением в таблице?

Answer 2

[favbet]

убрал AND - ошибки нет, но в таблице ничего не меняется.
tab1.Fields("PackName_new").Value' вы пытаетесь присвоить значение '"B" - а как нужно?

Comments

[localghost]

Не значение '"B"', а значение '"B" And tab1.Fields("PackId_new").Value = 31', вероятно, Boolean :)

Почему в таблице ничего не меняется, это я уже не знаю, это другой вопрос.