Extreme Veteran
Beiträge: 567
| Hallo,
moellfe - 12.03.13 00:05
ja der Fehler tritt in Zeile 190 auf.
[...]
Public Function Ungleich(varString1 As Variant, varString2 As Variant) As Boolean
Dim bolVergleich As Boolean
If Len(varString1) = 0 Or IsNull(varString1) Then
bolVergleich = (Len(varString2) = 0 Or IsNull(varString2))
Else
If Len(varString2) = 0 Or IsNull(Len(varString2)) Then
bolVergleich = False
Else
bolVergleich = (varString1 = varString2)
End If
End If
Ungleich = Not bolVergleich
End Function
Wow, das ist viel Code für einen einfachen Vergleich. Ersetz bitte mal Zeile 190 durch folgende:
If Nz(ctl.oldValue)<>Nz(ctl.Value) Then
Wenn das funktioniert, solltest du dich von der Funktion Ungleich verabschieden.
----- Gruss - Peter |