Probleem met uitvoeren van een zoekactie

[Rommyke]

Hoi allemaal ,

Heb weer maar eens een vraagje .(Aan Guus en Tardis ; vermits jullie het actiefste zijn komen de meeste van mijn vragen op jullie schouders , daarbij mijn dank voor de hulp):thumb:

Ik heb een form gemaakt waarin ik een opzoek actie uitvoer.

Jammer genoeg kan ik enkel maar de eerste keer een opzoeking doen als ik via mijn tekstbox iets wil opzoeken(hoogstwaarschijnlijk weer een fout in mijn SQL)Als ik mijn combobox gebruik lukt dit wel elke keer.

Ik heb een simple bijlage geupload , als iemand er eens ff naar wil kijken .

Bedankt

 

[Tardis]

Met Not IsNull kontroleer je of de waarde onbepaald is.
Als je zoekt op bijvoorbeeld voornaam, zijn je andere tekstvelden gevuld met een lege string, met andere woorden, niet null.
Wat je moet dan is kontroleren of de lengte van de waardes in de tekstvelden nul (0) is.
Vervang de code achter je zoek knop door deze:

Dim strSQL As String

strSQL = "SELECT tblPersonen.idPersoon as Id, tblPersonen.txtPersoonVoornaam AS Voornaam, tblPersonen.txtPersoonAchternaam AS Achternaam, tblAfdelingen.txtAfdelingNaam AS Afdeling "
strSQL = strSQL & "FROM (tblPersonen INNER JOIN tblAfdelingen ON tblPersonen.idPersoonAfdelingWerkzaam = tblAfdelingen.idAfdeling) "
'strSQL = strSQL & "WHERE tblPersonen.idPersoon IS NOT NULL " 'overbodig want autonummer kolom is nooit leeg
    
If Len(Me.txbPersoonVoornaam & "") > 0 Then
       strSQL = strSQL & "WHERE (tblPersonen.txtPersoonVoornaam) Like '*" &   
    Me.txbPersoonVoornaam & "*' "
End If

If Len(Me.txbPersoonAchternaam & "") > 0 Then
        strSQL = strSQL & "AND (tblPersonen.txtPersoonAchternaam) Like '*" &   
    Me.txbPersoonAchternaam & "*' "
End If
    
If Len(Me.cboPersoonAfdelingWerkzaam & "") > 0 Then
        strSQL = strSQL & "AND (tblAfdelingen.txtAfdelingNaam) = '" & 
    Me.cboPersoonAfdelingWerkzaam.Column(1) & "' "
End If
    
strSQL = strSQL & "ORDER BY tblPersonen.txtPersoonVoornaam;"
        
Me.lstSelection.RowSource = strSQL
Me.lstSelection.Requery
      
Exit Sub

Vervang de code achter je clear knop door deze:

Me.txbPersoonVoornaam = ""
Me.txbPersoonAchternaam = ""
Me.cboPersoonAfdelingWerkzaam = ""
Me.lstSelection.RowSource = ""

Groet,

Tardis

 

[Rommyke]

Dit werkt perfect !

Thx

Tardis,

Is het mogelijk om via de hoofding van mijn listbox(keuzelijst) een lijstvolgorde te bepalen door op 1 van de hoofdingstitel te klikken ?

Groetjes

 

[Rommyke]

Heb een oplossing gevonden door commandoknoppen boven de keuzelijst te zetten
Zie link

http://www.databasedev.co.uk/sort_listbox_columns.html

Groetjes