Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.041 c
3-1081184519
Floppy
2004-04-05 21:01
2004.05.02
CompactDatabase


9-1068757966
DDS
2003-11-14 00:12
2004.05.02
Проблемма с полигонами, корявые получаются


11-1065365911
AOTD
2003-10-05 18:58
2004.05.02
сменить цвет Border а...


14-1081318237
Style
2004-04-07 10:10
2004.05.02
Мастера, помогите решить такую проблемму.


1-1081969220
/\_A_M_E_P
2004-04-14 23:00
2004.05.02
Проблема при минимизации окна.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский