Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

AOH © (2004-04-05 16:37:00)
Всем привет.
такой вопрос есть листбокс несколько комбобоксов и кнопка
необходимо сделать следуюшие надо вы брать в комбо боксах данные и при нажатии на кнопку должны выполниться
.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 поиск по ним непроисходил
БУДУ ОЧЕНЬ ПРЕЗНАТЕЛЕН ЗА ПОМОЩЬ

AOH (2004-04-07 10:01:00) [1]
ВОТ КАК Я РАЗРУЛИЛ ЭТУ БЫЙДУ
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

ВСЕМ СПОСИБО

sniknik (2004-04-05 17:21:00) [2]
а так? так понимаю в запросе нужно, и значение не равно null (тогда бы автоматом выполнилось) а равно пустой строке?
... AND iif(Combo35='', false, poisk.Kont_lico_oid = [Forms]![poisk]![Combo35])

Delirium (2004-04-05 17:19:00) [3]
iif

AOH (2004-04-05 17:09:00) [4]
If Trim(Nz(Me.Combo31, "")) = "" Then
А ВОТ ТАК ПОМОЙМУ ТО

AOH (2004-04-05 17:07:00) [5]
НЕА

Ozone (2004-04-05 16:53:00) [6]
if ComboBox.Text <> '' then ...
Не подойдет?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »