collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 57
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13700
  • stats Beiträge insgesamt: 62191
  • stats Themen insgesamt: 8474
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Geht es in einem Endlosformular die Anzahl an Einträgen zu begrenzen?  (Gelesen 238 mal)

Offline derilzemer

  • Access-Meister
  • ***
  • Beiträge: 506
    • Quartettportal
Hallo,
habe in meinem Haupterfassungsformular ein Unterformular (Standardansicht Endlosformular) die Einträge die man da machen kann auf eine Zahl zu begrenzen, z.B. wie bei mir 3? Wenn es mit dem Endlosformular nicht möglich ist, kann man das generell lösen und wenn ja mit was?
Hintergrund ist, dass ich von einem Artikel den ich selbst besitze und in der DB dokumentiert ist, in einem Unterformular aufliste, zu welchem Preis ich diesen Artikel schon einmal irgendwo gesehen habe. Und genau das will ich maximal 3x machen können. 

Gruß Andreas
Grüße und Dank im voraus
Andreas
 

Offline Lachtaube

  • Access-Meister
  • ***
  • Beiträge: 728
Eine Version wäre, im Vor Einfügen Ereignis im Unterformular zu prüfen, ob es schon 3 oder mehr Datensätze in der Tabelle gibt und dann je nach Ergebnis der Prüfung das Einfügen abzubrechen.
Private Sub Form_BeforeInsert(Cancel As Integer)
   If DCount("*", "TabelleMitdenGesehenenPreisen", _
             "ArtikelId = " & Me.Parent.ArtikelIdFeldImHauptformular) >= 0 Then
      Cancel = True
      MsgBox "Es existieren schon 3 Datensätze zum Artikel"
   End If
End Sub
« Letzte Änderung: Juli 16, 2017, 14:54:25 von Lachtaube »
Grüße von der (⌒▽⌒)
 
Folgende Mitglieder bedankten sich: derilzemer

Offline derilzemer

  • Access-Meister
  • ***
  • Beiträge: 506
    • Quartettportal
Hi,
ich habe das mal integriert.
Private Sub Form_BeforeInsert(Cancel As Integer)
    If DCount("*", "tblAuktionen", _
        "SpielID_F = " & Me.Parent.SpielID) >= 0 Then
        Cancel = True
        MsgBox "Es können nur 3 Einträge gemacht werden"
    End If
End Sub
"*" sagt doch erst mal alles, oder? Wo ist hier festgelegt, dass maximal 3 DCounts?
Aktuell ich kann jetzt nur 2 hinzufügen, siehe bild1. Das liegt wohl daran, dass er beim hinzufügen des 2 Datensatzes eine Zeile unten anfügt und dann der Meinung ist, es gibt schon 3 Datensätze, oder was meinst du, woran das sonst liegen könnte?

Gruß Andreas
« Letzte Änderung: Juli 16, 2017, 14:45:24 von derilzemer »
Grüße und Dank im voraus
Andreas
 

Offline Lachtaube

  • Access-Meister
  • ***
  • Beiträge: 728
Freud'sche Fehlleistung. Die 0 ist durch eine 3 zu ersetzen.
Grüße von der (⌒▽⌒)
 

Offline derilzemer

  • Access-Meister
  • ***
  • Beiträge: 506
    • Quartettportal
Hi,
hatte es gerade eben bemerkt und abgeändert:(.
Damit habe ich das freudsche Thema erledigt. Danke.
Gruß Andreas
Grüße und Dank im voraus
Andreas