Auto-dropdown i combobox

Fordi fokus reelt ikke har forladt feltet, selvom der var en msgbox i mellemtiden.

Efter din msgbox skal du bare skrive:
Me![Navn på comboboks].Dropdown

Det kan jeg ikke få til at virke.
Det ser således ud:

Private Sub System_AfterUpdate()
Dim sys As Integer
sys = Me.System
Select Case sys
Case Is = 0
    MsgBox "Der SKAL vælges system", vbOKOnly
    Me.System.Dropdown
Case Is = 1
    Me.Tekst16 = 0.9
    Me.Riggel_c_c.SetFocus
Case Is = 2
    Me.Tekst16 = 1.2
    Me.Riggel_c_c.SetFocus
End Select
End Sub

Hæver lige indsatsen ;-)

stry>I will take a look if you can send it to eksperten@santhell.dk

Tak terry,
jeg skal lige "strippe" den, så jeg sender den lidt senere.

OK

Sendt.
Undskyld ventetiden, jeg havde lige en fodboldkamp jeg skulle se :-)

Private Sub System_AfterUpdate()
Dim sys As Integer
    sys = Me.System
    Select Case sys
       
        Case Is = 1
            Me.txtSys = 0.9
            Me.Riggel_c_c.SetFocus
        Case Is = 2
            Me.txtSys = 1.2
            Me.Riggel_c_c.SetFocus
    End Select

    Call BeregnTotal

End Sub

Private Sub System_BeforeUpdate(Cancel As Integer)

If Me.System = 0 Then
    MsgBox "Der SKAL vælges system", vbOKOnly
   
    Cancel = True
    Me!System.Dropdown
   
End If

End Sub

Jeg logger af nu men vender tilbage i eftermiddag.
Foreløbig tak :-)

Perfect Terry,
thx :-)

thank you too, have you looked at the other questions you have open at the moment, I have placed an answer for a couple of them!

I'm working on it ;-)

Terry der er et lille problem med koden.
Hvis brugeren TAB'er i system-feltet fanger den ikke at der ikke er valgt system. Hvad gør jeg ved det?

I'll take a look and get back

something else you need to take into consideration
If they move away from the field using the mouse! Strange thing about this is I had hoped that it also worked with the TAB key but it doesnt!

Private Sub System_Exit(Cancel As Integer)

    If Me.System = 0 Then
        MsgBox "Der SKAL vælges system", vbOKOnly
        Cancel = True
        Me!System.Dropdown
       
    End If
End Sub

Nu er jeg tilbage til det oprindelige problem :-(
Når jeg bliver sendt tilbage til comboboxen virker Auto-dropdown igen ikke.

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

If KeyCode = 9 Then KeyCode = 0


End Sub

In events where it is possible to set Cancel = True then Access will place the cursor in the field automatically. WHY Exit and BEFORE UPDATE work differently is byond me! But catching the TAB does help

Ok nu tror "vi" har løst alle eventualiteter.
Mange tak for hjælpen.

Ok nu tror JEG "vi" har løst alle eventualiteter.
Mange tak for hjælpen.

selv tak! Not always easy to decide which event to use

Hej igen Terry,
Lige et enkelt supplerende spørgsmål.
Hvordan fungerer det med KeyCode?
Hvad er KeyCode 9 og 0 og hvor kan man se de forskellige KeyCodes?

well the easiest way to see them is to enter a line in the event and print them to the debug window

debug.print keycode

KeyCode is the value of the key you press

So KeyCode 9 would be the TAB or what?

yes
If you press the TAB (9) then setting it to 0 filters out the TAB

>>Terry Jeg har ikke så godt styr på det immediate-window (som så meget andet :-D), kan du vise mig præcis hvordan min "opstilling" skal se ud?

Jeg har fundet ud af det (hurra!)

:o))

Hej Terry,
jeg har sendt dig en lille KeyCode-tester som jeg håber du vil kigge på ved lejlighed ;-)