Fråga : VBA - Paus efter SetFocus

Jag har efter felet GoTo PROC_ERR
för
On för code

Private det underExitCheck (), om Me.txt box1.Value = ”skriver in” Then
Me.txt box1.SetFocus
avslutar här If

, om Me.txt box2.Value = ”skriver in” Then
Me.txt box2.SetFocus
avslutar här If

PROC_EXIT
går ut den Sub

PROC_ERR
MsgBox Err.Description
meritförteckningen PROC_EXIT

End Sub

When Me.txt box1.SetFocus kallas, där är ingen paus för att användaren ska mata in ny text i textboxen. Det enda långt jag kan göra som är till appellen GoTo PROC_EXIT. I en befalla knäppas klickar händelsen som programmeras till slutet en bilda.  den fungerar fint med den GoTo PROC_EXITEN efter SetFocusen. Pröva förmiddag I att matcha samma kodifierar till den Form_Close händelsen, och den ska inte händelse för arbete däri, när den ovannämnda suben kallas. Den ska nära bilda, utan att låta användaren mata in ny text i texten boxes. " klar "

Svar : VBA - Paus efter SetFocus

Använd den Form_Unload händelsen i stället. Därefter du kan avbryta avlastningen.

Lee

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Privata underForm_Unload (annulleringen som heltal)

    Om txtbox1 = ”skriver in här” därefter
       MsgBox ”behar skriver in data in i den första textboxen”,
       txtbox1.SetFocus
       Annulleringen = True
    ElseIf txtbox2 = ”skriver in här” därefter
       MsgBox ”behar skriver in data in i understöder textboxen”,
       txtbox2.SetFocus
       Annulleringen = True
    Avsluta om

Avsluta suben
Andra lösningar  
 
programming4us programming4us