barkodun yazılacağı txt nin güncellendiğde kısmına kodlarınızı yazın,
barkod makinası kodları tuş gönderecek ve enter yapacaktır,
(30/06/2009, 11:53)SADIK54 yazdı: texbox hücresinde bu kodum yazılı ancak barkod makinasını okuttuğumda okuduktan sonra herhangi bir butona tıkladığımda barkod numarasını algılıyor ne yapmalıyım
On Error GoTo Err_T1_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.GoToControl "T1"
DoCmd.GoToRecord , , acNewRec
Me.T1.Value = ""
Me.Undo
Exit_T1_Click:
Exit Sub
Err_T1_Click:
MsgBox Err.Description
Resume Exit_T1_Click
End Sub
barkod uygulamasıyla ilgili sana ipucu niteliğinde bir uygulamanın bir ekranını ekliyorum,
gerçi bu uygulama el terminalinde çalışıyor ama farketmez,
barkod mantığı aynıdır,
dikkat etmen gereken barkod okutulmadan önce imlecin doğru yerde olması ve okuduktan sonra imlecin yine doğru yere gelmesi,
formda komut11 gizli bir butondur, imleci tekrar barkodun yazılacağı txt gönderir,
Private Sub Komut11_GotFocus()
Me.ara = ""
Me.ara.SetFocus
End Sub