Office: (Office 2010) Eine Dublettenkontrolle einbauen im Formular

Hi...

ich mal wieder...

Ist es möglich, dass man per VBA eine Dublettenkontrolle in einem Formular einbaut. Diese Kontrolle soll sich auf 2 bis 3 Eingabefelder überstrecken. Der User soll beim Speichern des Ds dann eine Meldung bekommen, dass es sich evtl. um eine Dublette handelt...hier wäre ein "nice-to-have", dass die möglichen Dubletten angezeigt werden.

:)

 

Moin,
das kannst du per DCount ermitteln, etwa so:
Code:

maike

 

Hallo Deniz,

Dann nimmst Du statt der MsgBox ein Formular mit einem Listfeld.
gruss ekkehard

 

Die Geschichte ist nicht ganz so einfach.
Insbesondere, wenn Du über mehrere Felder gleichzeitig prüfen willst.
Was sind denn das für Daten? Z.B. bei Stammdaten (Name, PLZ, Ort, Strasse) kann es ja mal schnell passieren, dass irgendwo ein Schreibfehler oder eine andere Schreibweise vorliegt (Hauptstraße | Hauptstr.; Hans Udo | Hans-Udo ; Strasse 2b | Straße 2 B).
Ich hatte das mal so gelöst, dass ich (im Falle Adressdaten) nur die PLZ verglichen habe.
Auf dem Formular habe ich dann - nach Verlassen des PLZ-Feldes - ein Listenfeld eingeblendet (vorher visible=False), welches mir gleich alle bestehenden Adressen mit dieser PLZ anzeigt. Nach Eingabe des Nachnamens könnte das Listenfeld weiter mit dem 1. Buchstaben gefiltert werden usw.
Das hat sich in der Praxis (beim Kunden) sehr bewährt.
Somit kannst Du während der Eingabe bereits Duplikate erkennen.

 

Hallo Jan,

Wenn man alle Adressfelder als Kombis anlegt (Herkunft eben die Adresstabelle),
Reihenfolge der Felder dem SteuerlementeInhalt entsprechend,
sieht man evtl. schon beim Namen, dass es eine Doublette ist. Falls das, durch
Schreibfehler nicht klappt, dann eben bei einem der folgenden Feldern.
Ausserdem erspart man sich, gerade bei Namen, 'ne Menge Tipparbeit, wenn
man viele Adressen erfassen muss.
gruss ekkehard

 

Hi zusammen,

also...die Dublettenerkennung soll über 2 Felder (EAW und Meldenr) laufen, dabei sind die Daten von der Eingabe her eindeutig definiert. so dass es zu keiner Irritation kommen kann, wie beim Beispiel "Hauptstr.". Eher würde es einen Zahlendreher geben, weil es bei diesen Feldern um Nummern geht. Dabei soll er halt beide oder eines der Felder prüfen, da es auf jeden Fall vorkommt, dass eine Zahlenfolge häufiger im Feld EAW vorkommen kann. Da soll dann halt schon die Kontrolle geschehen. Der User muss/soll dann anhand des Ds (z.B. Titel) entscheiden, ob es eine Dublette ist oder nicht.

Das Beispiel, dass ein extra Formular aufpopt, finde ich echt gut. Nur hapert es bei der Umsetzung des ganzen. Ich bin noch nicht weit in der ganzen Materie und die Maike hat mich in meinen Vorhaben bisher immer sehr gut unterstützt.
Der Code, den mir Maike hier gegeben hat, da weiß ich jetzt nicht, wo ich diesen genau einbauen muss, damit der wirksam wird.

 

Ich würde es ja den Usern so früh wie möglich mitteilen, wenn evtl. was faul ist - es sei denn, du kannst sie nicht leiden *grins .
Frühestmöglicher Zeitpunkt ist - genau: Nachdem in den fraglichen Feldern die Eingabe beendet wurde -> Ereignis: Nach Aktualisierung.
maike

 

Hi Maike...

klar, so meinte ich es auch! Er soll sofort anschlagen, wenn die Eingabe erfolgt ist. Aber ich würde gerne den Vorschlag von Beaker aufgreifen, dass die Dubletten in einem Formular/Fenster aufpoppen, damit man sieht, ob es sich tatsächlich um eine Dublette handelt. Wie schon erwähnt ist es durchaus möglich, dass eine EAW-Nr mehrmals vorkommen kann, aber natürlich andere Titel und Angaben hat.

Wäre jetzt die weitere Vorgehensweise ein frm erstellen mit den selben Feldern?
Kann dein Code dann in dem einem Feld schon unter "nach Aktualisierung" eingegeben werden...mit dem Ende "Docmd.openform" etc.?

 

Versuch' macht kluch *mrcool .

Vorgehen ist doch so:
Bedingung prüfen, dann auf Ergebnis entsprechend reagieren.
Der Vorschlag von Ekkehard ist da schon prima.

Bedingung prüfen macht nur Sinn, wenn die Grundlagen vorhanden sind:
beide zu prüfende Felder haben einen Wert.
Struktur:
Code:

Diese Sub dann jeweils nach Aktualisierung der beiden Felder aufrufen:
Code:

maike

 

ich habe jetzt mal mein nicht wissen über die Materie fliegen lassen und ein Teilergebnis erstellt vom Code...komme aber nicht weiter...

Code:

 

Code:

Aufruf hab' ich unten nicht richtig angegeben, muss natürlich der Name der Sub-Prozedur sein - also nur pruefe, nicht Subpruefe.
maike

 

Also ich habe es mal versucht...

Code:

Else habe ich weggelassen, da er mir nur das frm öffnen soll.
Habe, wie Du siehst eine msg eingebaut, dass der User sich nicht erschreckt, warum jetzt ein Sprung in ein anderes frm aufpopt.

Dennoch funktioniert das Ganze nicht. Es gibt keine Fehlermeldung und es führt den Code nicht aus.

Habe auch den Code

Code:

nicht vergessen.

 

Dann musst du wohl noch mal testen:
Code:

Wird der Code ausgeführt, nachdem du bei EAW-Nr was geändert hast (Feld verlassen oder Enter nicht vergessen), kommt die Messagebox?

EDIT: Hier ist noch etwas unklar: wie heißt jetzt dein Formularfeld EAW_NR wie in der Prozedurdeklararation oder EAW-Nr wie im Code geschrieben?
maike

 

Es passiert gar nichts...auch nach dem Einbau der msgbox...weder beim Verlassen des Feldes, noch beim Verlassen des Ds.

Das Feld im frm heißt EAW-Nr wie im Code

 

Ist in Eigenschaften/Ereignis von Feld EAW-Nr auch Ereignisprozedur ausgewählt?
maike