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 schon wieder .

Das hier kann nicht gehen:

Code vb:

1	'If CInt(strText) = "April" > 20 Then

das wäre ein doppelter Vergleich.

In welcher Variablen wird den der Wert geführt auf den du prüfen willst?

Die Abfrage der DB könnte in etwa so aussehen:

Code sql:

1	SELECT COUNT(datum) AS anzahl FROM tabelle WHERE datum = 'April'

ohne die DB zu kennen aber schwer zu sagen.

Hey Du,

also in SQL sieht die Abfrage bei mir so aus:

SELECT Count(Monat) AS [Anzahl-April]
FROM tblFlopkunden_2010_TDN
WHERE Monat = 'April';

Monat heiß somit die Variable und ist vom Typ Text.

Kannst du damit was anfangen?

Gruß
Rico

Also "Anzahl-April" würde ich nicht nehmen, kann sein das der Bindestrich da mal Probleme macht, nenne es einfach nur "Anzahl" oder nimm anstatt des "-" den "_".

Wenn deine Abfrage einen Wert zurückgibt, ist dieser dann im Feld "Anzahl" oder im Moment "Anzahl-April" enthalten und ist eine Zahl !! Mit diesem Rückgabewert machst du dann die IF-Anweisung.

Da steckt Access dahinter oder Dann kopiere deine SQL-Anweisung mal dort in eine Abfrage und führe sie aus. Dann siehst du was zurückgegeben wird.

Ok, bei mir sieht das ganze jetzt so aus, aber funktioniert nicht, weil ich bestimmt mal wieder voll auf dem Holzweg bin.... *grrrr*
Hab jetzt einfach mein Select im Code kopiert aber so einfach wird es wohl nicht klappen?

Private Sub Monat_AfterUpdate()

If SELECT Count(Monat) AS [Anzahl-April] From tblFlopkunden_2010_TDN WHERE Monat = '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

Sorry so ist der Quelltext:

Private Sub Monat_AfterUpdate()

If SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = '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

Bitte den Code formatiert in [VB]mein Code[/VB] setzen.
So wie er jetzt da steht kann man das Ding kaum lesen

Code vb:

1 2 3 4 5 6 7 8 9 10

Private Sub Monat_AfterUpdate()         If SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = '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

Du kannst eine SQL-Anweisung nicht so verwenden. Du musst ja irgendwo den Zugriff auf die Datenbank erstellt haben und damit musst du arbeiten.

Code vb:

1 2 3 4 5 6 7 8 9 10

Dim db As datebase Dim rs As Recordset   Set db = Opendatabase("C:\Pfad\daba.mdb") sql$ = "SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = 'April'" Set rs = db.OpenRecordset(sql$)   If rs.RecordCount > 20 then 'hier der Code End If

Bin zu lange raus aus VB und kann den Datenbankzugriff nicht mehr aus dem Kopf, aber irgendwie so ähnlich sieht es aus.

RecordCount gibt dir die Anzahl Datensätze zurück. Das ist in dem Fall aber immer 1, weil ein COUNT() über alles stattfindet. Entweder also ohne COUNT() oder

Code vb:

1 2 3 4

sql$ = "SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = 'April'" Set rs = db.OpenRecordset(sql$) call rs.MoveFirst if rs!Anzahl > 20 then

Wird hier eigentlich mit VB6 in Kombination mit Access oder mit VBA in Access gearbeitet?
Je nachsdem ist die Connection schwerer oder einfacher

Danke schön.
dafür dass du schon lang raus bist, ist es aber sehr plausibel. vba mangelt eine nicht erzeugte und/oder gesetzte Variable an, nämlich die Variable
SQL$. Wie muss ich diese Dim und Set ´en? Das ist das was mir immer schwer fällt bei VB bzw. Allgemein

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Monat_AfterUpdate()     Dim db As Database     Dim rs As Recordset         Set db = OpenDatabase("d:\Documents and Settings\rschaedl\My Documents\Flopkunden Datenbank\Flopkunden V1.2.mdb")     SQL$ = "SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = 'April'"     Set rs = db.OpenRecordset(SQL$)         If rs.RecordCount > 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

@yaslaw: Du hast natürlich mal wieder Recht. Vorhin habe ich selber noch gefragt wie der Wert zum Vergleich ermittelt wird und jetzt mache ich es selber falsch.

@Rico82: Am Anfang: Dim sql$ bzw. Dim sql As String sollte helfen. Und schau nach wie es yaslaw oben den Teile mit "rs!Anzahl" geschrieben hat. Sonst geht es wieder nicht.

Ich arbeite mit VBA (6.5) in Access.

....es scheint zu funktionieren mit diesem Code:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Monat_AfterUpdate()     Dim db As Database     Dim rs As Recordset     Dim sql As String         Set db = OpenDatabase("d:\Documents and Settings\rschaedl\My Documents\Flopkunden Datenbank\Flopkunden V1.2.mdb")     sql = "SELECT Count(Monat) AS Anzahl From tblFlopkunden_2010_TDN WHERE Monat = 'April'"     Set rs = db.OpenRecordset(sql)     Call rs.MoveFirst         If rs!Anzahl > 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

VB möchte nun aber auf die Datnebank zugreifen die ich mit einem Kennwort versehen habe, daher kommt auch der Laufzeitfehler. Gibt es die Möglichkeit die Abfrage ohne Kennwort auszuführen und ohne das Kennwort löschen zu müssen?
Nun wirds aber kompliziert.....

gruß und Danke
Rico

Wenn du mit VBA in Access arbeitest, kannst du den DB-Zugriff sparen und das Recordset direkt aus currentDb öffnen ausser du graiffst auf eine andere DB zu als die in der du bist.

Code vb:

1 2 3 4 5

Dim rs as DAO.Recordset DIM sql as String   sql = "SELECT ......" Set rs = currentDb.OpenRecordset(sql)