Good day to you all. I'm having a problem with this code:
Private Sub speichern_Click()
On Error GoTo speichern_Click_Err
On Error Resume Next
Dim MaxID As Variant
Dim StrSQL As String
If Me.Vertragsnummer = DLookup("[Vertragsnummer]", "Dokumentation", "[Vertragsnummer] = '"...