VBA code zoeken in ACCESS formulier blokkeert overige velden

[reinder001]

Hallo,

Ik heb een VBA code in ACCESS die resulteert in een zoekfunctie in een formulier.
Wanneer ik de zoekfunctie gebruik filter hij de klanten in het formulier.

Vervolgens wil ik een gevonden klant aanklikken om door te gaan naar een volgend klantformulier.
Ik kan na het gebruik van de zoekfunctie echter andere velden in het formulier niet meer aanklikken.
mijn VBA kennis is gering

Hieronder de VBA code van de zoekfunctie:

Private Sub cboField_Enter()
Dim oRS As DAO.Recordset, i As Integer
If Me.Form.FilterOn = True Then DoCmd.ShowAllRecords
Set oRS = Me.RecordsetClone
cboField.RowSourceType = "Value List"
cboField.RowSource = ""
For i = 0 To oRS.Fields.Count - 1
If oRS.Fields(i).Type = dbText Then cboField.AddItem oRS.Fields(i).Name
Next i
End Sub
Private Sub txtField_Exit(Cancel As Integer)
Dim sFilter As String, oRS As DAO.Recordset
If IsNull(cboField) Then
DoCmd.ShowAllRecords
MsgBox "Zoek naam"
Exit Sub
End If
If IsNull(txtField) Then DoCmd.ShowAllRecords: Exit Sub

' LIKE "b*"
' LIKE [parameter] & "*"
' "LIKE'" & txtBox & " *'"

sFilter = "[" & cboField & "]" & " LIKE '*" & txtField & "*'"
DoCmd.ApplyFilter , sFilter
Set oRS = Me.RecordsetClone
If oRS.RecordCount = 0 Then
MsgBox "Geen klant gevonden"
DoCmd.ShowAllRecords
End If
End Sub


Iemand een idee??
alvast bedankt!

 

[reinder001]

Na bijwerken ipv bij verlaten

Ik heb de oplossing gevonden.
de VBa nu gekoppeld aan "na bijwerken" ipv "bij verlaten".

Dan gaat het goed.

Groet Reinder