MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 24.03.2006, 10:44   #1
bundymutter
MOF User
MOF User
Standard Acc2003 - Cursor springt nicht ins nächste Feld

Hallo,

ich habe in einem Hauptformular ein UF . In diesem befinden sich mehrere Felder in die Daten eingegeben werden sollen.

Nun wird im 1.Feld des UF's geprüft ob der eingegebene Wert schon als Datensatz in der tbl704Bauteilnummern existiert. Wenn nicht soll die Fehlermeldung erscheinen. Das funktioniert auch.
Allerdings soll der Cursor nach bestätigen der Fehlermeldung in das 2. Eingabefeld springen und das 1. Feld soll leer bleiben. Das macht er leider nicht, der Cursor bleibt im 1. Feld.

Ich hänge mal den Code hier an:

Code:

Private Sub EBT1Nummer_BeforeUpdate(Cancel As Integer)
Dim Wahl As String
Wahl = Forms!FrmMenüBTPrüfung!BTWahl
Select Case Wahl
        
Case "8M3"
If IsNull(DLookup("Bauteilnummer", "tbl704Bauteilnummern", "Bauteilnummer = '" & Me!EBT1Nummer.Value & "'")) Then
MsgBox "Das Bauteil muß erst angelegt werden, bevor es hier eingegeben werden kann."

Me!EBT1Nummer.Undo      
Cancel = True
           
            
Else           
End If
End Select
End Sub

Habs schon mit Me.EBT2Herkunft.Setfocus versucht, aber dann bekomme ich die Fehlermeldung, dass der Datensatz erst gepeichert werden muß, bevor ich SetFocus verwenden kann.

Hat jemand einen Tip für mich?

Birgit
bundymutter ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.03.2006, 11:46   #2
Anne Berg
MOF Guru
MOF Guru
Standard

Nimm das AfterUpdate-Ereignis und setze die Eingabe mit feld.Undo zurück. Dann sollte es auch mit dem Fokus klappen.

PS: Undo scheint nicht zu klappen, setze das Feld statt dessen auf NULL.

__________________

Liebe Grüße
Anne

Geändert von Anne Berg (24.03.2006 um 11:54 Uhr).
Anne Berg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.03.2006, 13:11   #3
bundymutter
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke,

mit After Update und Feld auf Null setzen funktioniert es so wie ich wollte.

Birgit
bundymutter ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:04 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.