Hallåjs, Hejsan!Något klickar!
undrar varför indet detta fungerar :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 And Shift = vbCtrlMask Then
MsgBox "sparar"
indexet = cboVal.listIndex
sparaTjKat
TjKat.hamtaGammal txtTjkat.Text, frmTjkat
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyF6 Then
korg = Split(cboVal, "; ", -1, 1)
TjKat.tabort CStr(korg(1))
Form_Load
ElseIf KeyAscii = vbKeyF5 Then
indexet = -1
txtBen = ""
txtTjkat = ""
nyTjKat
ElseIf KeyAscii = vbKeyF10 Then
indexet = cboVal.listIndex
sparaTjKat
TjKat.hamtaGammal txtTjkat.Text, frmTjkat
End If
End Sub
/e:aSv: Något klickar!
Jag märkte att du hade på "keycode" skrivit ett nummer, och på "keyascii" skrivit VBKEYF9 (eller nått). Såvitt jag vet så ska det vara tvärtom, "keyascii" ska ha ett nummer, och "keycode" ska ha VBKEYF9.
Kanske inte detta spelar nån roll, men men. Bara en tanke som dök upp när jag läste ditt inlägg.
MvH Dan "DaPe" Persson