Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kombinationsfeld und Anzahl Datensätze!
zurück: Fenster bei zehnten Aufruf weiter: Pfeilbuttons beim Steuerelement MonthView Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bielefelder
Gast


Verfasst am:
21. Jul 2005, 18:39
Rufname:

Kombinationsfeld und Anzahl Datensätze! - Kombinationsfeld und Anzahl Datensätze!

Nach oben
       

Hallo Leute,

ich habe folgendes Problem! Ich möchte ganz gern in einem Unterformular, wenn mit dem Kobinationsfeld1 eine Kursnummer ausgewählt wird, das er überprüft ob in der Tabelle "Kurszuteilung" für diese Kursnummer nicht mehr als 12 Datensätze vorhanden sind.

Wenn mehr als 12 Datensätze vorhanden sind soll er eine MSGBOX auswerfen wo abgefragt wird ob man noch ein Datensatz anfügen möchte.

Bei Nein soll er den vorgang abrechen und kein Datensatz anfügen!
Bei JA soll er den vorgang fortsetzen!

Wäre schön wenn mir einer helfen kann!
Bitte mit viel erklärung bin noch ANfänger in Access!

Razz Best Dank, Der Bielefelder
Florus
Access-Nichtversteher


Verfasst am:
22. Jul 2005, 13:09
Rufname:
Wohnort: NÖ / Österreich


Hello - Hello

Nach oben
       

so, ich hab mir das mal angeschaut und versuch es mal so:

So, ich würd das ganze entweder nach Aktualisierung der Kursnummer,
oder auf einen extra Button legen:
Code:
    Dim StrSQL As String
    Dim zwischentext As String
   
    StrSQL = "SELECT COUNT(*) FROM tbl_kurszuteilung " & _
             "WHERE kursid = '" & Me!deindropdownfeld & "'"
    zwischentext = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset)(0)
    If zwischentext > 12 Then
        Antwort = MsgBox("Neuen Datensatz anlegen?", vbYesNo, "Info")
        If Antwort = vbYes Then
            '... dein Code für Datensatz anfügen
          Else
            'hier wird beendet
        End If
      Else
    End If

War das als Denkansatz ok?

Liebe Grüße

Florus
Bielefelder
Gast


Verfasst am:
23. Jul 2005, 01:33
Rufname:

Fehler Meldung - Fehler Meldung

Nach oben
       

Bei der Lösung sagt er mir folgenden Fehler:
[quote]ungültiges Argument![/quoteHabe folgenden Code eingefügt:
Code:
Private Sub Kombinationsfeld15_AfterUpdate()
    Dim StrSQL As String
    Dim zwischentext As String
   
    StrSQL = "SELECT COUNT(*) FROM tbl_Mitgliedsdaten_Kurszuteilung " & _
             "WHERE kursid = '" & Me!Kombinationsfeld15 & "'"
    zwischentext = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset)(0)
    If zwischentext > 12 Then
        Antwort = MsgBox("Neuen Datensatz anlegen?", vbYesNo, "Info")
        If Antwort = vbYes Then
            '... dein Code für Datensatz anfügen
          Else
            'hier wird beendet
        End If
      Else
    End If
End Sub
jens05
Moderator


Verfasst am:
23. Jul 2005, 13:15
Rufname:
Wohnort: ~~~~~


AW: Kombinationsfeld und Anzahl Datensätze! - AW: Kombinationsfeld und Anzahl Datensätze!

Nach oben
       

Hallo,
versuchs mal sorum
Code:
Private Sub Kombinationsfeld15_AfterUpdate()
    If DCount("*", "tbl_Mitgliedsdaten_Kurszuteilung", _
              "kursid = '" & Me!Kombinationsfeld15 & "'") > 12 Then
'falls kursid nummerisch ist:
'              "kursid = " & Me!Kombinationsfeld15) > 12 Then
        If MsgBox("Neuen Datensatz anlegen?", vbYesNo, "Info") = vbYes Then
            '... dein Code für Datensatz anfügen
          Else
            'hier wird beendet
        End If
    End If
End Sub
und falls die KursID nicht in der gebundenen Spalte steht musst du mit Column arbeiten
Code:
    Debug.Print Me!Kombinationsfeld15.Column(0) ' steht für die 1. Spalte

_________________
mfg jens05 Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze hinzufügen bei m:n Beziehung 13 Th.Fi 1036 10. Feb 2005, 13:27
Willi Wipp Datensätze hinzufügen bei m:n Beziehung
Keine neuen Beiträge Access Tabellen & Abfragen: "Ist Null" findet nicht alle Datensätze 2 HenningR 718 07. Feb 2005, 14:05
HenningR "Ist Null" findet nicht alle Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: leeres Abfrage Textfeld wirft alle Datensätze aus :( 4 neo-helix 1028 22. Dez 2004, 16:35
neo-helix leeres Abfrage Textfeld wirft alle Datensätze aus :(
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage um doppelte Datensätze zu ermitteln? 5 tom444 5066 14. Dez 2004, 23:49
Skogafoss Abfrage um doppelte Datensätze zu ermitteln?
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinationsfeld Datensatzherkunft VBA SQL 2 JensM 8920 17. Nov 2004, 19:57
JensM Kombinationsfeld Datensatzherkunft VBA SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Kumulieren in Abfrage - nur gefilterte Datensätze 2 mrebhan 5318 20. Okt 2004, 23:56
mrebhan Kumulieren in Abfrage - nur gefilterte Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze rausfiltern 1 anna_knolli 2061 30. Sep 2004, 14:43
Skogafoss Doppelte Datensätze rausfiltern
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl Tagen von bis heute errechnen 4 Sumo_Racer 709 09. Sep 2004, 12:32
lothi Anzahl Tagen von bis heute errechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Wert aus Kombinationsfeld in Abfrage verwenden 2 buku333 1786 06. Aug 2004, 16:12
buku333 Wert aus Kombinationsfeld in Abfrage verwenden
Keine neuen Beiträge Access Tabellen & Abfragen: anzahl der wochentage 4 drachenfliega 598 06. Aug 2004, 10:39
drachenfliega anzahl der wochentage
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Monate zwischen 2 Daten 2 master_tj 1837 22. Jul 2004, 13:17
master_tj Anzahl der Monate zwischen 2 Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage streikt alle 100 Datensätze wieder ??!! 8 ChB 935 11. Jun 2004, 08:55
ChB Abfrage streikt alle 100 Datensätze wieder ??!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage