• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verplaatsen naar andere Textbox dmv <enter>

Status
Niet open voor verdere reacties.
O

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Vraag 1 :

Ik heb een 1 Combobox, 5 Textboxen en 1 Knop, hierbij wil ik van Combobox1 -> Textbox1.text -> Textbox2.text.... ect. -> CommandButton1
dit moet dmv <enter> of <tab>, normaal in een vba-formulier gaat dit automatisch dmv Tabindex (+waarde) of met If KeyCode = 13 Then Textbox2.setfocus
maar dat lukt hier niet?

Vraag 2 :

Ik zou ook graag willen dat je vanuit de Button in "Klantbestand", direct naar de combobox1.text gaat

Heeft iemand een idee?

Alvast hartelijk dank
 

Bijlagen

  • 33-INVOEREN EN WIJZIGEN.xls
    84 KB · Weergaven: 28
Vraag 1:
Het gedrag van de Tab en Enter toetsen kan je niet aanpassen voor een ActiveX sheet object.
Ze worden ook door het KeyPress event genegeerd.

Vraag 2 kan zo:
Code: 
Private Sub CommandButton1_Click()
    Dim sh As Shape
    Sheets("Wijzigen").Select
    Set sh = ActiveSheet.Shapes("ComboBox1")
    sh.OLEFormat.Activate
End Sub
 
Laatst bewerkt:
edmoor bedankt, ga ik zo even bekijken

Voor antwoord 1 heb ik een voorbeeld voor <TAB> en <ENTER> gevonden
Code: 
' Voorbeeld <TAB>
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then
        TextBox2.Activate
    End If
End Sub
' Voorbeeld <ENTER>
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        TextBox3.Activate
    End If
End Sub
 
Dan kan je het voor de combobox dus zo doen:
Code: 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Or KeyCode = 13 Then
        TextBox1.Activate
    End If
End Sub
 
edmoor,

Het werkt, het gaat naar Combobox1.text en markeert deze, nu wil ik ook dat als je naar Textbox1.text gaat deze ook gemarkeerd wordt,
dit is nl. makkelijker bij het wijzigen van gegevens, normaal gaat dat met de onderstaande macro, maar nu gebeurt er niets
Code: 
Private Sub TextBox1_Enter()
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

Heb jij een idee hoe ik bv. Textbox1.text gemarkeerd krijg?

Alvast bedankt
 

Bijlagen

  • 33-INVOEREN EN WIJZIGEN.xls
    82,5 KB · Weergaven: 29
Je hebt vast ook niet bij de Textbox events gekeken, daar staat het Enter event niet eens bij. Dus nogal logisch dat die routine niks doet:
TXBEVENTS.JPG
 
Ik ben verder gegaan met het bestand, ik heb een TAB toegevoegd -> Muteren (Invoer en Wijzigen) in 1 TAB blad gezet,
nu wil ik mbv 2 buttons een keuze maken tussen Invoeren en Wijzigen.

Het wijzigen werkt, maar bij Invoer wil ik een leeg scherm krijgen, te beginnen met een lege combo, maar hier komen
gegevens in!

Heeft iemand een idee hoe ik deze leeg kan krijgen!

Alvast hartelijk dank
 

Bijlagen

  • 33-INVOEREN EN WIJZIGEN.xls
    120 KB · Weergaven: 24
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan