Kombinationsfeld auf Inhalt prüfen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

in einem Formular (Mitarbeiter) wird „Vor Aktualisierung“ geprüft, ob Feldeingaben erfolgt sind.
Über ein Unterformular (ufrmFunktion) werden jedem Mitarbeiter zusätzlich verschiedene Funktionen zugeordnet. (Verknüpfung von PersID_FK nach PersID). Name Kombinationsfeld: PersID.
Bei Neuanlage eines Mitarbeitersatzes soll nun u.a. auch geprüft werden, ob mindestens eine Funktion aus dem Kombifeld ausgewählt worden ist.
Also einem Mitarbeiter muss mindestens eine Funktion zugeordnet werden.

Wie kann ich prüfen, ob eine Auswahl aus Kombifeld erfolgt ist?

Vielen Dank für Eure Hilfe.

MfG Hardy

#2

Hallo Hardy,

Ohne es getestet zu haben:
Wenn Du auf das Kombinationsfeld und die PersID im UF verweist und sich da Werte drin befinden (die PersID müsste im Fall, dass im cmbfld ein Eintrag ist, der PersID im Hauptformular entsprechen) dann ist dort etwas ausgewählt worden.

Gruß
Martin

#3

Hallo Martin
vielen Dank für Deine Antwort.
Kannst Du mir das an einem Beispiel mal aufzeigen.
Ich weiß nicht so recht, wie ich vorgehen soll.
Kenne mich im Access nicht so gut aus.
Herzlichen Dankfür Deine Hilfe.

Gruß Hardy

#4

Hallo Hardy!
So grob:

if isnull(me!ufrmFunktion!Funktion) then
call msgbox („Keine Funktion zugeteilt“,…)
me!ufrmFunktion!Funktion.setfocus
me!ufrmFunktion!Funktion.dropdown
exit sub
end if

Martin

#5

Versuch doch einfach mit der Aktualisierung ein Kontrollfeld zu füllen. Dieses anschl. anfragen und …

Viele Grüße
Thomas

#6

Hallo Martin,
herzlichen Dank für Deine Hilfe.
Mit DoCmd.GoToRecord , , acNewRec füge ich einen neuen Mitarbeitersatz hinzu. Danach prüfe ich Felder (vor Aktualisierung) und zum Schluß prüfe ich das Kominationsfeld. Wenn nichts ausgewählt wurde, erscheint die Nachricht von der MsgBox und gleichzeitig wird das Kombinationsfeld aufgeklappt.
Zusätzlich erscheint eine weitere Meldung"sie können nicht zu dem angegebenen datensatz springen"
Hast Du noch einen Tipp, wie man diese Meldung umgehen kann.

Vielen Dank

Gruß Harald

. Ich kann die Meldung zwar wegdrücken und
Hallo Hardy!
So grob:

if isnull(me!ufrmFunktion!Funktion) then
call msgbox („Keine Funktion zugeteilt“,…)
me!ufrmFunktion!Funktion.setfocus
me!ufrmFunktion!Funktion.dropdown
exit sub
end if

Martin

#7

Hallo Martin,
meine Anfrage v. 2.11.2012 hat sich erledigt. Ich habe die Steuerung umgebaut.
Nochmals Danke.

Gruß Hardy