проверка isNull в кобмбобоксе ACCESS

← →
AOH (2004-04-05 16:37) [0]

Всем привет.
такой вопрос есть листбокс несколько комбобоксов и кнопка
необходимо сделать следуюшие надо вы брать в комбо боксах данные и при нажатии на кнопку должны выполниться
.RowSource = "SELECT poisk.oid, poisk.OID_klient, poisk.fio, poisk.Kont_lico_oid, poisk.TIP.naim, poisk.Vid.naim FROM poisk WHERE (((poisk.OID_klient) = [Forms]![poisk]![Combo31]) AND ((poisk.fio) = [Forms]![poisk]![Combo33]) AND ((poisk.Kont_lico_oid) = [Forms]![poisk]![Combo35]))"
.Requery
нужно чтобы при пустых значения Combo поиск по ним непроисходил
БУДУ ОЧЕНЬ ПРЕЗНАТЕЛЕН ЗА ПОМОЩЬ

← →
Ozone © (2004-04-05 16:53) [1]

if ComboBox.Text <> "" then ...
Не подойдет?

← →
AOH (2004-04-05 17:07) [2]

НЕА

← →
AOH (2004-04-05 17:09) [3]

If Trim(Nz(Me.Combo31, "")) = "" Then
А ВОТ ТАК ПОМОЙМУ ТО

← →
Delirium © (2004-04-05 17:19) [4]

iif

а так? так понимаю в запросе нужно, и значение не равно null (тогда бы автоматом выполнилось) а равно пустой строке?
... AND iif(Combo35="", false, poisk.Kont_lico_oid = [Forms]![poisk]![Combo35])

← →
AOH (2004-04-07 10:01) [6]

ВОТ КАК Я РАЗРУЛИЛ ЭТУ БЫЙДУ
Private Sub Command48_Click()
Dim com31 As String
Dim com33 As String
Dim com35 As String
Dim com37 As String
Dim com39 As String
Dim s As String
Dim a As String
Dim condition As String
com31 = Trim(Nz(Me.Combo31, ""))
com33 = Trim(Nz(Me.Combo33, ""))
com35 = Trim(Nz(Me.Combo35, ""))
com37 = Trim(Nz(Me.Combo37, ""))
com39 = Trim(Nz(Me.Combo39, ""))
"Me.Text45.SetFocus
"s = Me.Text45.Text
"Me.Text47.SetFocus
"a = Me.Text47.Text

condition = ""
If com31 <> "" Then
condition = condition & "and (for_poisk.OID_klient Like "" & com31 & "")"
End If

If com33 <> "" Then
condition = condition & "and (for_poisk.Sotrudnik_oid Like "" & com33 & "")"
End If
If com35 <> "" Then
condition = condition & "and (Projevt_lico_link.Kont_lico_oid Like "" & com35 & "")"
End If
If com37 <> "" Then
condition = condition & "and (for_poisk.oid_tip Like "" & com37 & "")"
End If
If com39 <> "" Then
condition = condition & "and (for_poisk.vid Like "" & com39 & "")"
End If

With Me.List41
.RowSource = "SELECT for_poisk.oid, for_poisk.naim, for_poisk.OID_klient, Projevt_lico_link.Kont_lico_oid, for_poisk.Sotrudnik_oid, for_poisk.oid_rukovod, for_poisk.oid_tip, for_poisk.vid, for_poisk.data_start, for_poisk.data_kon, for_poisk.data_zd FROM Projevt_lico_link RIGHT JOIN for_poisk ON Projevt_lico_link.projekt_oid = for_poisk.oid WHERE (1=1)" & condition
.Requery "Ìåíÿåì çàïðîñ
End With
End Sub

ВСЕМ СПОСИБО

проверка isNull в кобмбобоксе ACCESS Найти похожие ветки