terugkeren naar laatst geselecteerde txtbox

[droxa]

hallo
een programma heeft 2 userforms
het 1ste heeft een paar txtboxen
stel dat ik de eerste 2 invul en op ENTER duw zodat mijn cursor in het 3de txtbox komt te staan
indien ik dan op de knop "userform2" klik en daarna op "ok" is mijn cursor in userform1 verdwenen

mijn vraag is: hoe kan ik ervoor zorgen dat bij het terugkeren naar userform1 de cursor blijft staan waar hij stond

zie bijgevoegd bestand

droxa

 

[Axel Hagg]

Laatst geselecteerde textbox

Probeer dit eens

Code voor Userform1:


Option Explicit

Dim Start As Integer
Dim Tekstvak As Object

Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show
End Sub

Private Sub TextBox1_Enter()
Set Tekstvak = TextBox1
TextBox1.SelStart = Start
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Start = TextBox1.SelStart
End Sub

Private Sub TextBox2_Enter()
Set Tekstvak = TextBox2
TextBox2.SelStart = Start
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Start = TextBox2.SelStart
End Sub

Private Sub UserForm_Activate()
Tekstvak.SetFocus
End Sub

Private Sub UserForm_Initialize()
Set Tekstvak = TextBox1
End Sub


Code voor Userform2:

Option Explicit

Private Sub CommandButton1_Click()
UserForm2.Hide
UserForm1.Show
End Sub

 

[Relleboer]

Zet gewoon als laaste regel in je knop om terug tegaan na userform1

textboxx.select

moet voldoende zijn

 

[Axel Hagg]

Terugkeren naar textbox

Dat lijkt mij niet, Er zijn tenminste twee zaken die moeten worden onthouden:

1. In welke textbox werd het laatst gewerkt.
2. Op welke plaats stond de cursor.

Als een userform wordt geactiveerd worden wordt de eerste control geactiveerd en dat behoeft niet perse de laatst bewerkt te zijn.