2015-04-16 2 views
0

Я пытаюсь обновить свой db на основе нескольких условий. (У меня есть набор столбцов в excel, извлеченных из той же базы данных)VBA Update MS Access Database - Несколько предложений WHERE

Код ниже работает отлично, если у меня есть одно условие «WHERE». Если я добавлю несколько условий «И», он не обновит db. Угадай, что это синтаксическая проблема в моей инструкции sql.

Рабочий код

Dim dbione, dbitwo, dbithree, stime As String 
Set r = [B3] 
While r.Offset(0, -1).Value > 0 
dbione = r.Offset(0, 0) 'this is an ID 
dbitwo = r.Offset(0, 1) 'this is another ID 
dbithree = r.Offset(0, 2) 'this is another ID 

stime = r.Offset(0, 4) 

Цените кому помогает исправить это для меня.

ответ

0

Я думаю, что размещение моего вопроса здесь пробежало мое мышление. Я смог решить это, как только я разместил :) проблема была с -1, поскольку столбец был пустым! исправил этот бит, и он отлично работает: r.Offset(0, -1).Value > 0