Moin Axel,

geh doch schrittweise vor.

Bevor du einen Datensatz erzeugst, schaust du halt nach:

gibt es den kunden Müller

dim Kunde as string

Kunde = DLookUp("Kunde","Kundendaten","Kunde='" & Eingabe.Value & "'")

Das Gleiche für die Produktnummer

Das Ergebnis kannst du dann einfach analysieren..

Gruß leo

Hallo Leo,

danke für Deine Bemühungen.
Dein Tipp hilft mir derzeit nur teilweise weiter. Grund: ich bin in VBA nicht firm, verstehe aber ein ganz klein wenig.

In meinem Fall ist es so,, dass die Kundennummer(Ksort) bereits abgefragt und quasi gegen gecheckt ist.

Mein Problem liegt in der „Produktnummer(PRNUM)“ die passend zu der Kundennummer (Ksort) sein muss.

Kundendaten
KSort PRNUM
glöckler 131
glöckler 161
glöckler 164
glöckler 168
glöckler 170
glöckler 173
glöckler 176
glöckler 178
glöckler 181
glöckler 242

Du siehst in dem o.g. Auszug aus der Tabelle Kundendaten, dass für den Kunden Glöckler mehrere PRNUM angegeben sind.

Nun kann es ja im Eifer des Gefechts vorkommen, dass bei Eingabe eines Auftrages für Glöckler die PRNUM 342 eingegeben wird. Und jetzt soll quasi alarmartig eine Meldung kommen, dass es Glöckler+342 nicht gibt.

Könntest Du mir liebenswürdigerweise schreiben, wie die gesamte VBA für das Feld Produktnummer im Formular Auftragseingabe lauten muss?

Vielleicht komme ich mit solchen Beispielen ja auch dazu, andere Abfragefelder analog zu gestalten und lerne dadurch mehr von VBA.

Danke und Beste Grüße
Axel

Hallo Axel !
Leo schein noch zu schlafen. Vielleicht kann ich Dir zwischenzeitlich weiterhelfen. Es gibt meistens mehrere Ansätze für eine Lösung - so auch hier.
Du kannst die Eingaben in normalen, gebundenen Felern machen und im Feld PRNUM im Ereignis "nach Aktualisierung" einen Code hinterlegen, der die Prüfung durchführt. Der kann so aussehen:
dim xkunde as string
dim suche as string
' zunächst prüfen, ob ein Kunde eingegeben wurde
if nz(ksort,"") = "" then
msgbox "Bitte Kunde eingben"
exit sub
end if
' dann prüfen, ob eine prnum eingegeben wurde
if nz(prnum, 0) = 0 then
msgbox "Bitte PrNum eingben"
exit sub
end if
' jetzt prüfen, ob die Kombination da ist
suche = "KSort = '" & ksort & "' and prnum = " & prnum
xkunde = ""
on error resume next
xkunde = DLookUp("KSort","Kundendaten",suche)
on error goto 0
if xkunde = "" then
msgbox "Kunde/PrNum gibt es nicht"
end if
///////////////////////////////
dabei sein Kundendaten die Tebelle, in der die Kombination zu finden ist. Im Feld suche wird quasi eine where-Klausel zusammengestellt, mit der dann gelesen wird. Findet der dlookup die Kombination nicht, dann gibt es einen Fehler.
Eine Möglichkeit, das abzufangen ist, das Ergebnisfeld(Xkunde) vorher auf leer zu setzen und mit on error resume next festzulegen, dass das Programm bei Fehler mit dem nächsten Befehl weiter macht. Das muß natürlich danach wieder aufgehoben werden (on error goto 0)
/////////////////////////////////////
Besser ist m.E. die Lösung, nur existierende prnum zuzulassen. Dazu arbeitet man mit einem Kombifeld, das auf einer Abfrage beruht, die man mit der Eingabe im Feld KSort bereits auf den Kunden reduziert hat. Das erreicht man, indem man eine Abfrage über KSort und prnum macht, diese gruppiert(um jede Ausprägung nur einmal zu bekommen) und im Kriterium der Spalte KSort auf das Feld im Erfassungsformular verweist:
= [Formulare]![DeinErfassungsformular]![KSort]
So stehen im Kombifeld nur zulässige prnum zur Auswahl.
Wenn Du im Kombifeld einstellst "nur Einträge aus Liste", dann kann da nix falsches eingegeben werden.
//////////
So - mir qualmen die Finger. Erst mal noch Viel Spaß beim basteln.
Gruß
Teddy

Mit "on error resume next" zu arbeiten, finde ich sehr hässlich.
So müsste das auch gehen:

if isNull(DLookUp("KSort","Kundendaten",suche)) then
msgbox "Kunde/PrNum gibt es nicht"
end if

Hallo Teddy und Teerbaby,

danke für Eure Bemühungen, aber beide Lösungen haben nicht zu dem erhofften Erfolg geführt.

Im Feld PRNUM kann ich bei beiden Vorschlägen von Euch eine PRNUM eingeben, die „irgendwo“ in der Tabelle Kundendaten steht, aber nicht in Verbindung mit dem gewünschten Kunden.

Gebe ich eine Nummer ein, die gar nicht in der Tabelle existiert, ja, dann kommen Eure Meldungen.

Ich habe beide Vorschläge als Ereignis in „Nach Aktualisierung“ geschrieben, somit dürfte da kein Fehler sein. Habt Ihr eine Idee, wo ich noch ansetzen könnte?

Beste Grüße und ein schönes Wochenende
Axel

Guten Morgen zusammen,

ich habe mir das nochmals in Ruhe angeschaut, und von Teerbaby die Änderung eingebaut.

Dann kommt aber bei Eingabe einer PRNUM (auch einer korrekten) eine Fehlermeldung:

Laufzeitfehler 3464
Datentypen in Kriterienausdruck unverträglich[/b]

Wenn ich debugge ist die Zeile:

If IsNull(DLookup("KSort", "Kundendaten", suche)) Then

gelb unterlegt.

PRNUM ist als Textfeld definiert.
Helfen diese Informationen weiter?

Beste Grüße und und schönes Wochenende
Axel

Ist ja logisch, dass eine NUMMER als Text hinterlegt ist *grummel*.
Dann muß natürlich prnum in der Selektionsvariable auch in Hochkommas gesetzt werden:
suche = "KSort = '" & ksort & "' and prnum = '" & prnum & "'"
Gruß
Teddy

Hi Teddy,

ich bin auf Reisen und komme frühestens am Wochenende dazu, das auszuprobieren. Ich melde mich dann.

Danke und beste Grüße
Axel

Hallo Teddy,

ich bin sicherlich lästig, aber auch mit der geänderten Version komme ich nicht weiter. Es kommt jetzt, egal welche PRNUM ich eingebe stets die Meldung "Kunde/Prnum gibt es nicht"

Ich verzweifle langsam.

Beste Grüße
Axel

Morjen Axel !

Dann debugge doch mal und sieh Dir an, was in suche drin steht (einfach mit dem Cursor drauf fahren.

gruß
Teddy

Hallo Teddy,

ich weiß nicht, was ich gemacht habe, aber es funktioniert jetzt. Ich habe nur eine Erklärung: der Mensch, der das Programm ursprünglich geschrieben hat, hat auch einen Code eingegeben für "VOR Aktualisierung". Den habe ich jetzt komplett gelöscht und Deinen Vorschlag für "NACH Aktualisierung" eingesetzt. Und jetzt ist es ok.

Herzlichen Dank nochmals für Deine Bemühungen und vor allen Dingen Deine Geduld.

Beste Grüße
Axel