Merhaba;
Access konusunda yeniyim ve kendimce bir şeyler yapmaya çalışıyorum ama bir noktada takıldım ve forumumuzda aradığım cevaba ulaşamadım yada varda ben bulamıyorum.

Konu abir textboxda okutulan 15 haneli bir barkodun soldan 2nci karakterinden itibaren 8 karakterini ikinci bir textboxa veri olarak taşımak ve bu ikinci textboxdaki oluşan 8 haneli kodu stok kartı tablosundan karşılığını bulup üçüncü textboxada bu veriyi taşımak istiyorum. Bu işlem tamamlandığında verileri bölünmüş formdaki bölünmüş veri alanına taşıma işlemini yapıp textboxdaki verileri yeni bir veri girişi durumuna hazır edip imlecide yeniden barkod textboxa focuslatmak istiyorum.

Kendimce bu forumdan öğrendiğim bilgilerle aşağıdaki kodları yarım yamalak yazdım ama ilerleyemedim.

Bu kodu birde hangi olay yordamında kullanmalıyım. Şu anki halinde txtBarkod'a elle veri girmeye çalıştığımda ilk karakteri hemen döngüye alıp 8 karakterden az olması sebebi ile hata veriyor. Ancak txtBarkod a 9 karakterli doğru bilgiyi içeren bir veri kopyalayıp yapıştırdığımda döngü problemsiz çalışıyor..[/code]



Private Sub txtBarkod_Change()
Dim kisalt As String
Dim urun As String


kisalt = Me.txtBarkod.Text
Me.txtKisaBarkod = Mid(kisalt, 2, 8)



If Not IsNull(txtBarkod) Or txtBarkod = "" Then
urun = DLookup("StokKodu", "StokKarti", "KisaBarkod='" & txtKisaBarkod & "'")
Me.txtStokKodu = urun
Exit Sub
Else
MsgBox ("Hatalı Barkod")
End If

End Sub

(23-11-2017, 13:30)Mr.Midnight demiş ki: Merhaba;
Access konusunda yeniyim ve kendimce bir şeyler yapmaya çalışıyorum ama bir noktada takıldım ve forumumuzda aradığım cevaba ulaşamadım yada varda ben bulamıyorum.

Konu abir textboxda okutulan 15 haneli bir barkodun soldan 2nci karakterinden itibaren 8 karakterini ikinci bir textboxa veri olarak taşımak ve bu ikinci textboxdaki oluşan 8 haneli kodu stok kartı tablosundan karşılığını bulup üçüncü textboxada bu veriyi taşımak istiyorum. Bu işlem tamamlandığında verileri bölünmüş formdaki bölünmüş veri alanına taşıma işlemini yapıp textboxdaki verileri yeni bir veri girişi durumuna hazır edip imlecide yeniden barkod textboxa focuslatmak istiyorum.

Kendimce bu forumdan öğrendiğim bilgilerle aşağıdaki kodları yarım yamalak yazdım ama ilerleyemedim.

Bu kodu birde hangi olay yordamında kullanmalıyım. Şu anki halinde txtBarkod'a elle veri girmeye çalıştığımda ilk karakteri hemen döngüye alıp 8 karakterden az olması sebebi ile hata veriyor. Ancak txtBarkod a 9 karakterli doğru bilgiyi içeren bir veri kopyalayıp yapıştırdığımda döngü problemsiz çalışıyor..[/code]



Private Sub txtBarkod_Change()
Dim kisalt As String
Dim urun As String


kisalt = Me.txtBarkod.Text
Me.txtKisaBarkod = Mid(kisalt, 2, 8)



If Not IsNull(txtBarkod) Or txtBarkod = "" Then
urun = DLookup("StokKodu", "StokKarti", "KisaBarkod='" & txtKisaBarkod & "'")
Me.txtStokKodu = urun
Exit Sub
Else
MsgBox ("Hatalı Barkod")
End If

End Sub

Change değilde güncelleme sonrasında yordamına eklersen sorunun çözülür. çünkü barkod cihazları her okuma işleminden sonra ENTER yapar.

Sayın Alperalper;
İlginiz için çok teşekkür ederim vermiş olduğunuz cevabı dikkate alıp denedim ve daha verimli bir döngü eldettim ve artık hata almıyorum.

Peki diğer hususlarda nasıl bir yol izlemeliyim.