[VBA] 2x klikken voordat nieuwe string wordt gegenereerd

[apophis4u]

In MS access heb ik een zoekformulier gemaakt waarbij ik met VBA de querycode genereer. Doel hiervan is dat dit formulier object onafhankelijk wordt en ik alleen de bron tabel erbij hoef te koppelen over het netwerk.

Als ik op mijn knop 'zoeken' klik roept hij de functie 'IDBzoeken' aan om de SQL zoekstring op te bouwen.
De functie werkt prima, behalve dat ik 2 keer moet klikken voordat hij het filter daadwerkelijk uitvoert.

Bijvoorbeeld; ik voer een bedrijfsnaam in, klik op zoeken en moet vervolgens wéér op zoeken klikken voor hij daadwerkelijk filtert.
Nog vreemder is: als ik een bedrijfsnaam invoer, op zoeken klik, bedrijfsnaam leeg maak en wederom op zoeken klik, hij evengoed het zoek commando uitvoert. Klik ik gelijk weer op zoeken, laat hij weer alles zien.

Iets wat er volgens mij mee te maken kan hebben is dat standaard een veld in het formulier Null is; vergelijking met "" gaat dan niet op. Na invoeren van een zoekstring in een veld en deze verwijderen; komt dit wél overeen met "" en niet meer met Null.

Visual Basic:

Private Sub Zoeken_Click()

Call IDBzoeken

Me.Form.Requery

End Sub

Function IDBzoeken()
    Dim strSQL As String
    Dim zkWhere As String, zkEnd As String

    If IsNull(Me.ZIGHnr) Then
    Else
        zkWhere = "WHERE ("
        zkWhere = zkWhere & "((intermediairdatabase.IGHnr) Like '*' & '" & Me.ZIGHnr & "' & '*')"
        zkEnd = ") "
    End If
    
    If IsNull(Me.Zighseg) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.ighseg) Like '*' & '" & Me.Zighseg & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.ighseg) Like '*' & '" & Me.Zighseg & "' & '*')"
            zkEnd = ") "
        End If
    End If
    
    If IsNull(Me.Zniveau3) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.niveau3) Like '*' & '" & Me.Zniveau3 & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.niveau3) Like '*' & '" & Me.Zniveau3 & "' & '*')"
            zkEnd = ") "
        End If
    End If
    
    If IsNull(Me.Zbedrijfsnaam) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.bedrnaam) Like '*' & '" & Me.Zbedrijfsnaam & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.bedrnaam) Like '*' & '" & Me.Zbedrijfsnaam & "' & '*')"
            zkEnd = ") "
        End If
    End If
    
    If IsNull(Me.Zholding) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.holding) Like '*' & '" & Me.Zholding & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.holding) Like '*' & '" & Me.Zholding & "' & '*')"
            zkEnd = ") "
        End If
    End If

    If IsNull(Me.zSTRAATNM) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.STRAATNM) Like '*' & '" & Me.zSTRAATNM & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.STRAATNM) Like '*' & '" & Me.zSTRAATNM & "' & '*')"
            zkEnd = ") "
        End If
    End If

    If IsNull(Me.Zhuisnumm) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.huisnumm) Like '*' & '" & Me.Zhuisnumm & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.huisnumm) Like '*' & '" & Me.Zhuisnumm & "' & '*')"
            zkEnd = ") "
        End If
    End If
        
    If IsNull(Me.Zpostcode) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.postcode) Like '*' & '" & Me.Zpostcode & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.postcode) Like '*' & '" & Me.Zpostcode & "' & '*')"
            zkEnd = ") "
        End If
    End If

    If IsNull(Me.Ztelefoon) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.telefoon) Like '*' & '" & Me.Ztelefoon & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.telefoon) Like '*' & '" & Me.Ztelefoon & "' & '*')"
            zkEnd = ") "
        End If
    End If

    If IsNull(Me.Zplaats) Then
    Else
        If (zkWhere = "") Then
            zkWhere = "WHERE ("
            zkWhere = zkWhere & "((intermediairdatabase.wnplaats) Like '*' & '" & Me.Zplaats & "' & '*')"
            zkEnd = ") "
        Else
            zkWhere = zkWhere & " AND ((intermediairdatabase.wnplaats) Like '*' & '" & Me.Zplaats & "' & '*')"
            zkEnd = ") "
        End If
    End If
    
    strSQL = "SELECT intermediairdatabase.IGHNR, " & _
        "intermediairdatabase.IGHSEG, intermediairdatabase.NIVEAU3, " & _
        "intermediairdatabase.HOLDING, intermediairdatabase.BEDRNAAM, " & _
        "intermediairdatabase.STRAATNM, intermediairdatabase.HUISNUMM, " & _
        "intermediairdatabase.POSTCODE, intermediairdatabase.WNPLAATS, " & _
        "intermediairdatabase.TELEFOON " & _
        "FROM intermediairdatabase " & zkWhere & zkEnd & _
        "ORDER BY intermediairdatabase.WNPLAATS;"
    
    Me.Form.RecordSource = strSQL
    
    strSQL = ""
    zkWhere = ""
    zkEnd = ""
           
End Function

[sig69]

Zet er eens een breakpoint in zou ik zeggen, basic debuggen...
In c# zou ik string.IsNullOrEmpty() gebruiken, weet niet of vba zoiets heeft?

[apophis4u]

Hoe werkt een breakpoint? (ben geen echte programmeur en maak pragmatisch wat dingen ini VBA)

Een goede vergelijking van Is Null Or Empty zou ik in ieder geval veel aan hebben.

[Verwijderd]

apophis4u schreef op dinsdag 29 april 2008 @ 15:24:Na invoeren van een zoekstring in een veld en deze verwijderen; komt dit wél overeen met "" en niet meer met Null.

na verwijderen van een waarde zou dit veld toch wel opnieuw Null moeten zijn, tenzij je ergens in de standaard waarde iets eigenaardigs hebt ingesteld.
om toch rekening te houden met een lege string kan de voorwaarde bv. als volgt aangepast worden:

Visual Basic:

If (not IsNull(Me.ZIGHnr)) Then
  if (""<>Me.ZIGHnr) then
        zkWhere = "WHERE ("
        zkWhere = zkWhere & "((intermediairdatabase.IGHnr) Like '*' & '" & Me.ZIGHnr & "' & '*')"
        zkEnd = ") "
  endif
End If 

enz..
debuggen doe je door bij de gewenste codelijn in de grijze marge te klikken in de vb editor, er verschijnt dan een rood bolletje. als je dit bv. doet op lijn 137 van je code dan kan de waarde van strsql bekeken worden door de muis over de variabelenaam te houden of door het direct venster op te roepen met ctrl+g als je in de vbeditor bent en dan ? strsql te typen. in debug mode kan de code kan lijn per lijn afgehandeld worden met F8 of volledig verder laten doorlopen met F5.

[apophis4u]

bedankt voor de reactie heretic!

Inmiddels heb ik hem opgelost:

Op het moment dat ik criteria in de velden van mijn formulier in tik, dan staan deze voor het formulier er nog niet 'echt' in. Nadat het requery commando is gegeven zet hij deze waarden er wél in, maar is de nieuwe SQL dus al gegenereerd.

Ik heb het nu opgelost door vóórdat ik de nieuwe SQL ga opbouwen eerst het formulier te refreshen (me.form.refresh). Op dat moment zet hij de waarde in zijn veld objecten en kan ik die met VBA ophalen.

Dat debuggen ga ik eens mee experimenteren. THX!