Datensätze in einem Unterformular zählen

[benjamin.grimm]

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?

Code [Auswählen] Erweitern

If DCount("*", Me.Abfrage_Vergütungssäzte_Unterformular) > Me.number + 1 Then
    MsgBox "Please recheck!"

Grüße Benjamin

[database]

Hallo,

Code [Auswählen] Erweitern


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")

[benjamin.grimm]

Es zeigt mir immer bei der DCount Funktion einen Fehler an.

Da steht immer Fehler beim Kompelieren.

An was liegt das?

[benjamin.grimm]

Hi

ich hab weiter gelesen und hab ne Lösung gefunden, welche

Code [Auswählen] Erweitern

    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