Send keys

• 

  Chris

  21-10-2004 14:02

  Hoi Allemaal

  ik wil d.m.v een functie toets naar een andere tekstveld gaan

  bv. van veld 1 naar veld 2 d.m.v F2 o.i.d

  ik weet dat dit met send keys gaat maar ik weet niet meer precies hoe.

  wie heeft voor mij een klein voorbeeldje?

  alvast bedankt

  Chris
• 

  Eric

  21-10-2004 20:32

  Open je formulier en vraag de eigenschappen op

  - Klik op tabblad Gebeurtenis

  - Zet eigenschap Toetsvoorbeeld op Ja

  - Maak bij Toets omlaag een Gebeurtenis procedure aan

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  Dim ctlh As Control

  If KeyCode = vbKeyF8 Then 'F8

  KeyCode = 0

  Set ctlh = Screen.ActiveControl

  Select Case ctlh.Name

  Case “Naam” 'als huidig veld naam is naam

  me.adres.setfocus 'spring dan naar veld adres

  Case “Postcode” 'als huidige veld postcode is

  me.plaats.setfocus 'spring dan naar veld plaats

  End Select

  End If

  End Sub

  Ik heb in dit geval de F8 genomen F2 zou ik niet nemen daar F2 de standaard snel toets is voor het wisselen van de invoermodus
• 

  JaapT

  22-10-2004 20:32

  Chris

  Is de instelling Tabvolgorde niet voldoende?

  Succes,

  Jaap
• 

  chris

  22-10-2004 23:03

  bedankt voor het meedenken en voor het aandragen van een oplossing eric

  het werkte perfect.

  De tabvolgorde was niet voldoende Jaap T omdat de focus soms wel en soms niet naar veld 2 gegaan moest en bij tab volgorde hij er altijd naar toegaat wat niet de bedoeling was

  maar bedank voor de reactie

  chris