Обновите ComboBox с VBA и множественным условием SQL WHERE - PullRequest
0 голосов
/ 02 апреля 2019

Я пытаюсь обновить поле со списком в форме, используя VBA и SQL с несколькими условиями WHERE.Если я использую только одно условие, оно работает, если я добавлю другие, оно не даст результатов

Private Sub Form_Load()
Dim strSQL As String
If Forms!frmLogin!txtLogin = "some text" Then
strSQL = "SELECT table.field1 FROM table WHERE table.field2=1; "
End If
With Forms!frmForm1!subfrmForm2!cboField
.RowSource = strSQL
.Requery
End With
End Sub

работает нормально

strSQL = "SELECT table.field1 FROM table WHERE table.field2=1 And table.field2=2 And table.field2=3; "

не работает

1 Ответ

0 голосов
/ 02 апреля 2019

Поле не может содержать три разных значения.Попробуйте с:

… where table.field2 in (1, 2, 3);
...