En tastesekvens funktion

omfange=opfange

Indtastes der i en tekstboks og ved Enter skal der fortsættes?

Nej, der skal registreres tastetryk. Dvs. funktionen kaldes og fra da af registreres tastetryk ved hjælp af KeyDown eller lign. indtil, der trykkes Enter. Tastesekvensen skal selvfølgelig opsamles i en streng...

Hvis du i formularens modul sætter dette:

Option Compare Database
Option Explicit
Public sKeys As String
---------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
sKeys = sKeys & Chr(KeyCode)
MsgBox sKeys 'fjernes når det kører
End Sub

Så opsamler strengen sKeys dine taster. Så skal du bare have gjort noget med dem :-)

Yes... jeg arbejder videre med flg.

Option Compare Database
Option Explicit
Public sKeys As String
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    If sKeys = "yes" Then
    MsgBox "Koden er accepteret", , "Yes"
    sKeys = ""
    Else
    MsgBox "Koden er forkert", , "Prøv igen"
    sKeys = ""
    End If
Else
sKeys = sKeys & Chr(KeyCode)
End If
End Sub

Nu er det kun aktiveringen og implementeringen, som skal leges med!~)

Man skal lige tage hensyn til store og små bogstaver...

Ser fornuftigt ud. Husk du kan konvertere med

=Ucase(skeys)
eller
=Lcase(sKeys)

!~)