Hallo ich möchte Datensätze in einem Unterformular zählen und diese dann mit einer Eingabe vergleichen.
Der user kann im Hauptformular im Feld number eine Zahl eingeben. Wenn diese Zahl höher ist dann soll eine Msgbox angezeigt werden.
Ich hab folgenden Code geschrieben.
Dieser sagt aber immer Fehler beim Koopelieren.
Wo liegt der Fehler?
If DCount("*", Me.Abfrage_Vergütungssäzte_Unterformular) > Me.number + 1 Then
MsgBox "Please recheck!"
Grüße Benjamin
Hallo,
If DCount("*", Me.Abfrage_Vergütungssäzte_Unterformular) > Me.number + 1 Then
MsgBox "Please recheck!"
End If
Wenn es nicht am 'End If' gelegen hat, dann ändere die Definition der DCount-Funktion...
DCount('"*","NameDeinerAbfrageOderTabelle")
Es zeigt mir immer bei der DCount Funktion einen Fehler an.
Da steht immer Fehler beim Kompelieren.
An was liegt das?
Hi
ich hab weiter gelesen und hab ne Lösung gefunden, welche
Dim recCount As Long, tmpRS As DAO.Recordset
Set tmpRS = Me.Abfrage_Vergütungssäzte_Unterformular.Form.RecordsetClone
On Error Resume Next
tmpRS.MoveLast
On Error GoTo 0
recCount = tmpRS.RecordCount
Set tmpRS = Nothing
MsgBox recCount
MsgBox Me.Laufzeit_des_Vertrags
If recCount > Me.Laufzeit_des_Vertrags - 1 Then
MsgBox "Please Recheck"
End if