Форум: "Базы";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

проверка 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

---

← →
sniknik ©   (2004-04-05 17:21) [5]

а так? так понимаю в запросе нужно, и значение не равно 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 "&#204;&#229;&#237;&#255;&#229;&#236; &#231;&#224;&#239;&#240;&#238;&#241;
      End With
End Sub

ВСЕМ СПОСИБО

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.031 c