Avatar billede stry Nybegynder
09. juni 2004 - 15:27 Der er 1 kommentar og
1 løsning

VBA - problemer med SetFocus

Jeg bruger nedenstående kode til at validere indtastningen i min formular og den fanger også forkerte indtastninger og kommer op med MsgBox,  men den sender alligevel focus videre til næste felt, hvad er der galt?

Private Sub txtTilbudsDato_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtTilbudsDato) Then
        MsgBox "Der skal indtastes en gyldig dato"
        Me.txtTilbudsDato.SetFocus
        Me.txtTilbudsDato.SelStart = 0
        Me.txtTilbudsDato.SelLength = Len(txtTilbudsDato)
    End If
End Sub

På forhånd tak :-)
Avatar billede rvm Nybegynder
09. juni 2004 - 22:38 #1
Private Sub txtTilbudsDato_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtTilbudsDato) Then
        MsgBox "Der skal indtastes en gyldig dato"
'        Me.txtTilbudsDato.SetFocus
        Cancel = True
        Me.txtTilbudsDato.SelStart = 0
        Me.txtTilbudsDato.SelLength = Len(txtTilbudsDato)

    End If
End Sub
Avatar billede stry Nybegynder
10. juni 2004 - 07:16 #2
Verdensklasse, tak :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Tag et kursus i Word og øg effektiviteten

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester