Hallo,
ich bin über die Suchfunktion nicht viel weitergekommen.
Für eine Veranstaltung mit einer Ticketausgabe muss ich bestimmten Plätzen/Sitzen Personen zuordnen.
Bei der Eingabe der Plätze soll es aber nicht zu Duplikaten kommen.
Ich habe ein Tabelle mit folgendem Aufbau:
Primärschlüssel ID:Autowert
Block:Text z.B. ("A". "B" oder aber auch "Stehplatz")
Reihe:Zahl
Platz:Zahl
Über ein Formular kann man neue Plätze eingeben. Es gibt aber auch die Möglichkeit im Block "Stehplatz" einzugeben, wo es natürlich keine Reihe und keinen Platz gibt.
Bei Eingabe von Block, Reihe und Platz soll überprüft werden, ob es diese Kombination bereits gibt (Bsp: Block "A", Reihe "1", Platz "2" wurde doppelt eingegeben).
Bei Eingabe von "Stehplatz" in Block ist diese Überprüfung nicht notwendig.
Ich möchte eigentlich keine Extra-Abfrag ob Steh- oder Sitzplatz, sondern gerne im Block dann einfach "Stehplatz" eintragen. Geht das überhaupt?
Hallo,
zuerst muß der "Block" eingegeben werden, nach dessen Wert richtet sich der weitere Vorgang.
Sub Block_Beforeupdate(Cancel As Integer)
If not Me!Block ="Stehplatz" Then
If Dcount ("*","tblTAbelle", "Block='" & Me!Block & "' and Reihe=" & nz(Me!Reihe,0) & " and Platz=" & nz(Me!Platz,0) ) > 0 Then
Msgbox "Sitz belegt"
Me.Undo
Cancel=true
End if
End If
End Sub
Vielen Dank für die Lösung