enable btn bij wijziging

[Berryke]

Ik ben bezig met een stukje code maar het lukt niet helemaal,
Wat ik wil is dat de knop opslaan pas actief wordt wanneer er echt een wijziging is dit wordt gecontroleerd door DLookup maar die kan de Nullwaarden niet verglijken, en ik heb 1 veld wat wel null mag zijn en dat is Tussenvoegsel.

Dim ctrlTussenvoegsel As String
ctrlTussenvoegsel = DLookup("[Tussenvoegsel])", "qry_Persoonsgegevens", strPeoplesoftnr)
If (frm!txtTussenvoegsel Like ctrlTussenvoegsel) = False Then
    frm!btnSave.Enabled = True
   Exit Function
Else
    frm!btnSave.Enabled = False
End If

Dim ctrlNaam As String
 ctrlNaam = DLookup("[Naam]", "qry_Persoonsgegevens", strPeoplesoftnr)
If (frm!txtNaam Like ctrlNaam) = False Then
    frm!btnSave.Enabled = True
   Exit Function
Else
    frm!btnSave.Enabled = False
End If

Hoop dat het een beetje duidelijk is.
gr. Berry

 

[OctaFish]

Als de DLookup verder wel de waarde ophaalt, en je wilt de waarde op je formulier vergelijken met de waarde in de tabel, dan kan dat denk ik ook met:

If (frm!txtTussenvoegsel <> ctrlTussenvoegsel Then

 

[Berryke]

Heey octafish ,

Die werkt ook niet, maar ik heb ff een nachtje doorgetrokken en heb wel een manier gevonden met selectboxes,
Begin dit steeds leuker te vinden maar wel veel puzelen.