cursor naar foutmelding terug naar hetzelfde veld

Status
Niet open voor verdere reacties.
Sytse1

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
Wellicht is het eenvoudig maar mijn poging om de cursor in hetzelfde veld terug te laten komen wil niet.
Nadat ik in de msgbox voor ok klik gaat de cursor naar het volgende veld.

Code: 
Private Sub Voornaam_LostFocus()
If Me.Voornaam = "verplichte invoer" Then
MsgBox "U moet een naam invullen ", 0, "Opgelet"
DoCmd.GoToControl "Voornaam" 'of  SendKeys "{Esc}"  werkt niet de cursor gaat naar het volgende veld.
End If
End Sub
 
Onhandige aanpak; laat het veld gewoon leeg, zet er een Voorwaardelijke opmaak op zodat gebruikers zien dat het een verplicht veld is, en zet een controle op het opslaan. Ik doe dit soort invoer het liefst via een niet-gebonden formulier (muteren gaat natuurlijk wél rechtstreeks op de tabel) zodat de autonummering niet wordt verziekt, en je op je gemak kunt controleren of alle verplichte velden zijn ingevoerd.
Maar je kunt dit eens proberen.
Code: 
Private Sub Voornaam_AfterUpdate()
     If Me.Voornaam = "verplichte invoer" Then
          MsgBox "U moet een naam invullen ", 0, "Opgelet"
          Me.Voornaam.SetFocus
     End If
End Sub
 
Octafish bedankt. Ik ga het proberen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan