Office: (Office 2010) Doppelte Einträge verhindern.

Hallo Forum,

es gibt eine TablAufträge.
In dieser Tbl. werden die anfallenden Aufträge gespeichert.
Nun sollen bei der Eingabe doppelte Einträge vermieden werden.
Es wird folgendes gefordert:
Ein Mitabeiter soll nicht an einem Datum bei zwei Kunden zur gleichen Schicht eingetragen werden können.
Wie kann ich es lösen?

Für eure Hilfe bedanke ich mich im voraus.
Gruß alfini

:)

 

Am besten regelt man so etwas auf Tabellenebene. Ein zusammengesetzter, eindeutiger Index über die 3 Merkmale sollte helfen. 1.1 Zusammengesetzten Index anlegen zeigt dazu ein paar Bilder (allerdings nicht mit A2010 erstellt).

 

Hallo,
als Alternative zu Arnes (besserem) Vorschlag könntest du z.B. im Before_Update-Ereignis mittels DLookUp o.ä. prüfen, ob schon ein entsprechender Datensatz existiert.

 

Hallo Arne,

ich versuche nun seit dem 27.08.2011 einen einen zusammengesetzten Index anzulegen.
Ich habe alle möglichen Varianten ausprobiert aber keinen Erfolg gehabt.
Es funktioniert aber immer nur bei der gleichen KundenNr. Gebe ich eine andere KdNr ein dann wird der DS gespeichert obwohl das gleiche Datum, der gleiche MA, die gleiche Station und die gleiche Schicht ist.
Es sollte aber bei einer anderen KDNr keine Speicherung erfolgen sondern ein Warnhinweis das schon ein Eintrag vorhanden ist.
Für deine Mühe bedanke ich mich im voraus.
Gruß alfini

 

Ich habe in meinem Formular folgenden Code integriert um doppelte Einträge zu verhindern, allerdings funktioniert es noch nicht 100prozentig:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "tblPersonal", _
"[Nachname]='" & Me!txtNachname & "' " & _
"AND [Vorname] ='" & Me!txtVorname & "' " & _
"AND [Geburtstag] =" & Format(Me!txtGeburtstag, _
"\#dd-mm-yyyy\#")) > 0 Then
MsgBox "Diese Person ist bereits angelegt!"
Cancel = True
End If
End Sub

Neben den überprüften Feldern können noch weitere Daten auf dem Formular editiert werden. Alles Felder die entweder zur tblPersonal gehören oder dazu in Beziehung stehen.

Nun ergibt sich folgendes Problem
Lege ich einen neuen Datensatz an, bei dem der Inhalt der überprüften Felder gleich ist, gibt er eine Fehlermeldung raus - so soll es sein -> "Diese Person ist bereits angelegt"

Gehe ich aber in einen bestehenden Datensatz und verändere dort weitere Angaben, wie beispielsweise Anrede, Migrationshintergrund oder Gehaltsstufe, quittiert mir Access dies, ebenfalls mit "Person bereits angelegt"

Warum?

 

Hi,

da findet der geänderte Satz sich selbst. Schließe die aktuelle KundenID aus der durchsuchten Menge aus, etwa so: ... " AND KundenID " & Me!txtKundenID

Wie sagte der skeptische Zirkusdirektor: "Hier sehen Sie den größten Elefanten der Welt mit Ausnahme seiner selbst..."

 

Was mache ich falsch? - er kann angeblich das angesprochene Feld nicht finden!

Private Sub Form_BeforeUpdate(Cancel As Integer)
'Überprüfung, ob die Person bereits angelegt ist durch Verknüpfung von Vor-,Nachname und Geburtstag
If DCount("*", "tblPersonal", _
"[Nachname]='" & Me!txtNachname & "' " & _
"AND [Vorname] ='" & Me!txtVorname & "' " & _
"AND [PersonalID] '" & [Me!txtPersonalID] & "' " & _
"AND [Geburtstag] =" & Format(Me!txtGeburtstag, _
"\#dd-mm-yyyy\#")) > 0 Then

MsgBox "Diese Person ist bereits angelegt!"
Cancel = True
End If
End Sub

 

Moin,
um das Formularfeld keine eckigen Klammern, und:
Ist PersonalID vom Datentyp Autowert/Zahl? Dann musst du die Hochkommata weglassen:
Code:

maike

 

Leider funktioniert es immer noch nicht!
Das Feld PersonalID ist in meiner Tabelle tblPersonal vorhanden
PersonalID ist vom Datentyp Autowert!
Mein Formularfeld hat den Namen: txtPersonalID
Habe die Hochkommata weg gelassen und er kann immer noch nicht das Feld finden!
Komisch das alles!

 

Ah - jetzt ja! Vielen Dank für Eure Hilfe, nun funktioniert es aber. Um Tippfehler auszuschließen, ahabe ich das vorgegebene einfach kopiert und eingefügt!

"AND [PersonalID] " & Me!txtPersonalID & " " & _

Habe die eckige Klammer entfernt von Me!txtPersonal und nun haut es hin!

Großes Danke an die zwei Helfer