Fout in code zoekscherm

[iegje]

Er zit een fout in de code van mijn zoekscherm, echter kan ik niet vinden wat ik fout heb gedaan. In andere databases werkt deze code wel.

Option Compare Database
Option Explicit



Private Sub cmdClear_Click()
    
    'Maak het zoekscherm leeg
    
    Me.DIM_nr.Value = Null
      
    Me.lstSelection.RowSource = ""
    
End Sub

Private Sub cmdClose_Click()

'Maak het zoekscherm leeg
    
    Me.DIM_nr.Value = Null
    
    Me.lstSelection.RowSource = ""
    
    Me.Visible = False
End Sub

Private Sub cmdEdit_Click()
    
    DoCmd.OpenForm "FrmDIMOverzicht", acNormal, , "[DIM_nr] = " & Me.lstSelection.Column(0), acFormEdit, acDialog
    Me.lstSelection.Requery

End Sub

Private Sub cmdNew_Click()

    DoCmd.OpenForm "FrmDIMOverzicht", acNormal, , , acFormAdd, acDialog
    Me.lstSelection.Requery
    
End Sub

Private Sub cmdSearch_Click()
On Error GoTo err_cmdSearch_Click

    Dim strSQL As String
    
    'De basis van de SQL
    strSQL = "SELECT * FROM overzicht "
    
    'Deze WHERE dient er alleen voor, om een WHERE-statement te krijgen.
    strSQL = strSQL & " WHERE True "
    
    'Als de textbox voor de voornaam gevuld is, pas dan de SQL aan.
    If Not IsNull(Me.DIM_nr) Then
        strSQL = strSQL & "AND (Overzicht.DIM_nr) Like '*" & Me.DIM_nr & "*' "
    End If
    
        
    'De sorteervolgorde
    strSQL = strSQL & "ORDER BY Overzicht.DIM_nr;"
    
    'MsgBox strSQL
    
    'De listbox wordt gevuld met de opgebouwde SQL
    Me.lstSelection.RowSource = strSQL
    
    If Me.lstSelection.ListCount = 0 Then
      MsgBox "Niets gevonden!", vbInformation, "Geen resultaten"
    End If
    
    Exit Sub
    
err_cmdSearch_Click:
    MsgBox Err.Description
    Exit Sub
    
End Sub



Private Sub cmdSearch_DblClick(Cancel As Integer)

End Sub

Private Sub lstSelection_DblClick(Cancel As Integer)

    Call cmdEdit_Click
    
End Sub

Hij geeft aan dat de fout zit in regel 29

 

[OctaFish]

Dan vermoed ik dat-ie niks kan vinden in de keuzelijst; Me.lstSelection.Column(0) zou dan Null of leeg kunnen zijn. Of misschien komt er een tekstwaarde uit, die je aan een numeriek veld toekent.

 

[iegje]

Of misschien komt er een tekstwaarde uit, die je aan een numeriek veld toekent.

Dat zou wel eens kunnen, zal het eens bekijken.

 

[iegje]

Dit was inderdaad het probleem

Dom dat ik daar niet zelf op ben gekomen.
Dank je wederom Octafish