PDA

Vollständige Version anzeigen : Beziehungen


Werner1
09.02.2001, 08:58
Hi

Habe mal eine Frage an euch.
Ich habe ein Formular Vorschlag und Vorgang.
Im Formula Vorgang gibt es ein Auswahl Fenster in dem ich die Vorschlags Nr vom Formular Vorschalg mir aussuchen kann. Ich möchte aber das ich mir nur einmal die nummer aussuchen kann. das heist wenn ich einen 2 Datensatz anlege soll ein fenster erscheinen "zu diesem Vorschlag gibt es schon einen Vorgang" wie mache ich das.
Ich danke euch schon mal für eure hilfe.

helpless
09.02.2001, 11:04
versuch' mal so:

Private Sub Vorschlag_AfterUpdate()

Dim db As Database, rs As Recordset
Dim VorschlagCheck As Long
Set db = CodeDb
Set rs = db.OpenRecordset("Vorschlag")
rs.Index = "PrimaryKey"
VorschlagCheck = Me![Vorschlag]
rs.Seek "=", VorschlagCheck ' Datensatz suchen.
If Not rs.NoMatch Then ' Ist ein Datensatz vorhanden...
Mldg = "...deine Meldung..."
Titel = "...Was du willst..."
Antw = MsgBox(Mldg, DialogDef, Titel)
'Hier kannst du die Antworten noch abfangen und bei Bedarf darauf reagieren
Else If
rs.AddNew
rs.[Vorschlag] = VorschlagCheck
rs.Close ' Tabelle schließen.
End If

End Sub

Habe das nicht getestet ... also keine Gewähr, aber so in etwa muss es klappen

Gruß