Shift tabulering ud af underformular

Me.Parent.SetFocus

Ellser hvis du vil til et bestemt felt i hovedformularen:

Me.Parent!FELTNAVN.SetFocus

men gør den det så ikke hele tiden når man tabulerer sig ud af underformularen.

pointen er at man skal kunne tabulere sig baglæns og forlæns ud af underformularen afhængig af hvad man vil.

hvor præcis ville du sætte Me.Parent.SetFocus ind henne.

På underformularens vindue?
i første felt i underformularen?

evt under hvilken hændelse?

Setfocus er det ikke en hændelse og hvid der, hvad hedder den på dansk?

Du kunne bruge VedTastNed hændelsen i underformularens første og sidste felt.
I første felt tjekker du på Shift-Tab og i sidste felt på Tab.
Værdierne kan du finde ved midlertidigt at sætte en enkelt linie:
  Debug.Print KeyCode
ind i hændelsen (resultatet ser du i Immediate vinduet, Ctrl-G)
Derefter er det bare at bruge mugs' opskrift:
  If KeyCode=<værdien> then Me.Parent!FELTNAVN.SetFocus

Denne virker med "shift":

Private Sub Tekst45_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift Then Me.Parent!regnrlejebil.SetFocus
End Sub

men skal have dne til at virke med "Shift+tab":

Private Sub Tekst45_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift & vbKeyTab Then Me.Parent!regnrlejebil.SetFocus
End Sub

men så virker den ikke længere.

har også kun prøvet med tab så sidder den bare fast.

altså så kan man ikke tabulere sig ud

har også fundet denne kode på nettet:

If KeyCode = vbKeyTab Then

        If Shift And acShiftMask Then
            Me.Parent!regnrlejebil.SetFocus
       
        End If

    End If


og den virker dog hopper den et ekstra felt tilbage dvs den hopper til feltet før "regnrlejebil"

er der nogen logik i dette?

kan man få den til at lave et ekstra tabulator

et lille problem mere:

hvad så hvis man skal fra hovedform og shift tab ind i subform til et specifikt felt.

har prøvet med denne:

Private Sub fradato_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab Then

        If Shift And acShiftMask Then
            Me.test_kontrakt_bruger_kort!kortudstedt.SetFocus
     
        End If

    End If
End Sub

men det virker ikke.

Jeg er lige afvist jeres svar, selvom de er delvis rigtige, da jeg ikke har løst problemet helt endnu. Evt kig i de sidste 3 kommentar.

men i skal nok få lidt kredit for jeres svar ;-)

Har nu testet - og opskriften er korrekt. Der mangler bare en lille ting:

Private Sub FørsteFelt_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab And Shift <> 0 Then
    Me.Parent!Felt2.SetFocus
    KeyCode = 0
  End If
End Sub

Private Sub SidsteFelt_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab And Shift = 0 Then
    Me.Parent!Felt2.SetFocus
    KeyCode = 0
  End If
End Sub

takker, kigger på det i morgen, har ikke databasen her.

Det var bare perfekt, dog et lille spørgsmål mere, hvis du har tid.

Me.Parent er refernce til hovedformularen, hvad hvis det skal gå den andne vej, altså fra hoved formular til sub formular?

Min pointe er at når man tabulerer baglæns, så lige såsnart man tabulerer fra hoved til sub, starter den i første felt frem for sidste felt.


Den sidste del du lavede er der ikke brug for da den i forvejen tabulere normalt videre ud af sub til hoved formular.

Så kan du bruge:
  Me.<SubformNavn>.SetFocus
  DoCmd.GoToControl "<FørsteFeltNavn>"

fdata svar og du får point


og god weekend

Et svar.

Doh! Et svar.

Lidt interessant er det at lige så snart man begynder på at "kode" sig ud at tabulering, så skal man gøre det hele vejen igennem, fra til og fra subform, mv.

Du har ramt lige ned i en af Access svage sider. Der er et par steder, hvor tastaturet ikke opfører sig som forventet. Microsoft mener tilsyneladende at "du kan da bare bruge musen". Men nu kender du da vejen frem ...

Tak for point  ;o)