On Key Press Event

[radek225]

I have a code on my list

Private Sub Lista0_KeyPress(KeyAscii As Integer)
Dim strSQL As String
Dim db As DAO.Database
If KeyAscii = 50 Then
strSQL = "UPDATE tblZlecenia SET Priorytet = " & "7" & "  WHERE ID_Zlecenia='" & Me.Lista0 & "'"
  CurrentDb.Execute strSQL
End If

End Sub

When I press button "2" on my keyboard, my code is working (it's ok) but except this, changing selection on my list, to position where bound column starting from "2" character. What I should do, to not change possition on my list?

 

[JHB]

Try by setting KeyAscii=0.

Private Sub Lista0_KeyPress(KeyAscii As Integer) 
   Dim strSQL As String 
   Dim db As DAO.Database 
   If KeyAscii = 50 Then 
     strSQL = "UPDATE tblZlecenia SET Priorytet = " & "7" & "  WHERE ID_Zlecenia='" & Me.Lista0 & "'"   
     CurrentDb.Execute strSQL   
     KeyAscii=0
   End If  
End Sub

 

[radek225]

Working! THX!

 

[JHB]

You're welcome, good luck!