Værdien af onkeydown

place this in the froms keydown event. You also need to set the forms Key Preview property to Yes

MsgBox "Du har trykket på " & Chr(KeyCode)

Tak:) Lige det jeg skal bruge:))))))))))))))))))))

Chr(KeyCode) jeg får ikke alle tegne korekt ø = Þ og på det numeriske tastatur 1 = 1 Hvat er galt???????

Hej
Din kodepace er forkert. Du skal kører 850 eller helst 865.
Vh Henrik

Hej
Din kodepace er ved 850 Scandinavisk, ved 865 er den dansk.
Vh Henrik

Jeg kører codepage 850

Hej.
Du må lave en konvatering selv. På denne side er de oplysninger du skal bruge. Å = 143, å = 134. Find fejltegnet, og erstat dette.
http://www.asciitable.com/
Vh Henrik

Hej.
Denne side er codepage 850.
http://www.asciitable.com/
Vh Henrik

faroe>I must ask, what is it your trying to do?

Det som jeg forsøger at lave er.
Når on Form_KeyDown laver jeg en Global (Global KeyPress) så opner jeg Søge form og setter Søgefelt = keyInfo
så får jeg verdiet af KeyDown og setter det ind i Felt som jeg søger på

på det numeriske tastatur 1,2,3,4,5,6,7,8,9 = a,b,c,d,e,r,f,h,i Hvat er det galt der??


''''''''''''''''''''''''''''''''''''''''''''''''''
Global KeyPress

Function keyInfo()
    keyInfo = KeyPress
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Felt form
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyPress = Chr(KeyCode)
    If KeyCode = 13 Then
        Dim stDocName As String
        Dim stLinkCriteria As String
        stDocName = "Kundar"
        stLinkCriteria = "[Kundanr]=" & Me![Kundanr]
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.Close acForm, "Kunda filtur form"
    End If
   
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Søge form
Private Sub Form_Load()
Søgefelt = keyInfo
End Sub



'Søge form
Private Sub Felt som jeg søger på_KeyDown(KeyCode As Integer, Shift As Integer)
    DoCmd.OpenForm "Søge form"
    End If
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

PS jeg setter 100 point mere for et svar:)

du tildeles en advarsel for at oprette et referencespørgsmål.


jelzin101/coadmin.

Har du læst som jeg skriver?? jag har fået svar på det som jeg har spørger om
og godkendt svaret så det er faktisk et nyt spørgsmål

faroe> I have just read your question and will take a look and get back as soon as possible. I just need to figure out EXACTLY what it is yiu rattempting to do!

jeltzin101>Is faroe NOT allowed to place another question?

Så vidt jeg kan se, forsøger du at lave en rutine, som finder en bestemt kunde ud fra en indtastning. Jeg gætter på, at du opretter en faktura, og så skal finde en kunde? Men hvorfor ikke vende det om, så du finder kunden og derfra opretter en faktura? Det virker - for brugeren - meget mere logisk. Han tænker jo i kunder, ikke i opgaver...

Du kan f.eks. lave et "kartotekskort", med alle kundens oplysninger, og så her lave en knap der opretter en faktura. Når du har en formular indeholdende alle kunder, kan du meget elegant lave en søgefunktion:

Placér en ubundet ComboBox over f.eks. navnefeltet. Sæt så dens <afterUpdate>-værdi til noget i stil med det her:

Private Sub Kombinationsboks171_AfterUpdate()
Dim RS As Object
Set RS = Me.Recordset.Clone
RS.FindFirst "[Kundenummer] = '" & Me![Kombinationsboks171] & "'"
Me.Bookmark = RS.Bookmark
End Sub

På den måde får du en combobox med alle kunder listet. Når du begynder at taste i feltet, "gætter" det selv på indholdet. Når du trykker <enter>, springes til den valgte kunde. På den måde har du ingen filtrering, og brugeren har en fin fornemmelse for hvor han er, for han springer blot frem og tilbage i "stakken" med kartotekskort. Har han f.eks. tastet "Larsen" og trykket <enter>, er han sprunget til post 432. Når han så vil se "Laursen", går han blot til næste post...

Giver det nogen mening overhovedet? Jeg har lavet en tilsvarende løsning, og hjælper gerne, hvis du konkretiserer opgaven...

Den fungerer fint det eneste jeg mangler til at få at fungere er Chr(KeyCode)
:)