Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code vereinfachen
 11.06.2007 11:40:03 Karin
NotSolved
18.06.2007 06:21:52 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Karin		 Datum:
11.06.2007 11:40:03		 Views:
1954		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code vereinfachen
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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code vereinfachen
 11.06.2007 11:40:03 Karin
NotSolved
18.06.2007 06:21:52 Rasta
NotSolved