Hallo @all,
ich hab ein Problem aber noch keine passende Lösung. Anbei erst einmal mein eigene Lösung als Quellcode:
'Private Sub Monat_AfterUpdate()
'Dim intZahl As Integer
'Dim strText As String
'Set strText = Me.Monat
'Set intZahl = CInt(strText)
'If CInt(strText) = "April" > 20 Then
'MsgBox2000 "Das Monatskontingent April ist erreicht!", vbOKOnly + vbInformation, "Hinweis Dateneingabe"
'Me.Monat.SetFocus
'Else
'Me.GP_Nr_Kombinationsfeld.SetFocus
'End If
'End Sub
Ich möchte eine Art Plausi-Check in mein Formular einbauen, welches mir 20 Datensätze in der Spalte Monat pro Monat meiner Tabelle zulässt und alles was darüber hinaus geht, soll durch einen Hinweis einer MsgBox hingewiesen werden.
Aber ich scheitere immer daran, wie ich die Anzahl der Einträge z.b. "April" in der DB zählen kann, da es sich ja um Zeichenketten handelt.
Hat jemand eine Idee, was ich falsch mach oder anders machen könnte?
Vielen Dank
Gruß, Rico
ich hab ein Problem aber noch keine passende Lösung. Anbei erst einmal mein eigene Lösung als Quellcode:
'Private Sub Monat_AfterUpdate()
'Dim intZahl As Integer
'Dim strText As String
'Set strText = Me.Monat
'Set intZahl = CInt(strText)
'If CInt(strText) = "April" > 20 Then
'MsgBox2000 "Das Monatskontingent April ist erreicht!", vbOKOnly + vbInformation, "Hinweis Dateneingabe"
'Me.Monat.SetFocus
'Else
'Me.GP_Nr_Kombinationsfeld.SetFocus
'End If
'End Sub
Ich möchte eine Art Plausi-Check in mein Formular einbauen, welches mir 20 Datensätze in der Spalte Monat pro Monat meiner Tabelle zulässt und alles was darüber hinaus geht, soll durch einen Hinweis einer MsgBox hingewiesen werden.
Aber ich scheitere immer daran, wie ich die Anzahl der Einträge z.b. "April" in der DB zählen kann, da es sich ja um Zeichenketten handelt.
Hat jemand eine Idee, was ich falsch mach oder anders machen könnte?
Vielen Dank
Gruß, Rico