Version Access 2000
Ich habe folgenden Code gschrieben den ich gerne vereinfachen würde
Private Sub Einheit0_GotFocus()
If Me!Kundennummer_Kombinationsfeld = "" And _
Me!Kundennummer_Kombinationsfeld.Visible = True Then
DoCmd.GoToControl "Kundennummer_Kombinationsfeld"
MsgBox "Für weitere Eingaben ist eine Kundennummer erforderlich!", _
vbApplicationModal, "Info"
ElseIf Me!Kundenname_Kombinationsfeld = "" And _
Me!Kundenname_Kombinationsfeld.Visible = True Then
DoCmd.GoToControl "Kundenname_Kombinationsfeld"
MsgBox "Für weitere Eingaben ist eine Kundenname erforderlich!", _
vbApplicationModal, "Info"
ElseIf IsNull([Kundennummer_Kombinationsfeld]) And _
Me!Kundennummer_Kombinationsfeld.Visible = True Then
DoCmd.GoToControl "Kundennummer_Kombinationsfeld"
MsgBox "Für weitere Eingaben ist eine Kundennummer erforderlich!", _
vbApplicationModal, "Info"
ElseIf IsNull([Kundenname_Kombinationsfeld]) And _
Me!Kundenname_Kombinationsfeld.Visible = True Then
DoCmd.GoToControl "Kundenname_Kombinationsfeld"
MsgBox "Für weitere Eingaben ist eine Kundenname erforderlich!", _
vbApplicationModal, "Info"
ElseIf Me!Kundennummer_Kombinationsfeld <> "" And _
Me!Artikelbezeichnung0 = "" And _
Me!Artikelbezeichnung0.Visible = True Then
DoCmd.GoToControl "Artikelbezeichnung0"
MsgBox "Sie haben vergessen einen Artikel einzugeben!", _
vbApplicationModal, "Info"
ElseIf Me!Kundennummer_Kombinationsfeld <> "" And _
Me!Artikelnummer1 = "" And Me!Artikelnummer1.Visible = True Then
DoCmd.GoToControl "Artikelnummer1"
MsgBox "Sie haben vergessen eine Artikelnummer einzugeben!", _
vbApplicationModal, "Info"
ElseIf Me!Kundenname_Kombinationsfeld <> "" And _
Me1Artikelbezeichnung0 = "" And _
Me1Artikelbezeichnung0.Visible = True Then
DoCmd.GoToControl "Artikelnummer1"
MsgBox "Sie haben vergessen eine Artikelnummer einzugeben!", _
vbApplicationModal, "Info"
ElseIf Me!Kundenname_Kombinationsfeld <> "" And _
Me1Artikelnummer1 = "" And Me1Artikelnummer1.Visible = True Then
DoCmd.GoToControl "Artikelnummer1"
MsgBox "Sie haben vergessen eine Artikelnummer einzugeben!", _
vbApplicationModal, "Info"
End If
End Sub
Dabei geht es darum das ich ein Formular schreiben soll wo keine Fehlereingaben möglich sind das heist wenn der user ein Steuerelement anklickt und die bedingung das ein anderes feld noch nicht befüllt ist dann gehe zurück zum ausgangsfeld des fehlers, dabei gibt es aber den hacken das mehrere felder zumbeispiel null sind.
indem fall wenn der user das feld einheit0 anklickt sind die felder kundennummer leer und artikelbezeichnung leer also soll der focus zurück auf kundennummer, wenn kundennummer eingegeben und klick auf einheit 0 dann soll der focus aber jetzt auf artikelbezeichnung..
kann mir dabei jemand helfen.
liebe grüße karin
|