AccessTr.neT

(28/10/2020, 23:45)merttr07 yazdı: [ -> ]Örnek Bir Çalışma Buldum belki buradan bana yardımcı olabilirsiniz.

---

(28/10/2020, 23:45)atoykan yazdı: [ -> ]Barkodlarınızın formatı belirli mi peki?
Örneğin ABC123456789 şeklinde mi veya özel karakterler kullanılıyor mu +, - , / gibi?

Ramaksal ve metin sel barkodlar.

Bu dosyayı kim hazıladıysa çok acemi yapmış ve hatalı yani döngü 2 den başlatnış normalde 1 denbaşlatması gerekiyordu.
Yazayım istedim.

---

(29/10/2020, 00:55)merttr07 yazdı: [ -> ]

(29/10/2020, 00:50)feraz yazdı: [ -> ]

(29/10/2020, 00:46)merttr07 yazdı: [ -> ]Excel aldığımız barkod okuyucu kodunu

Bu hangi userfformdan yada listviewden geliyor.

Arkadaşın verdiği kodları butona aktardım ve denedim kodu a1 hücresine alıyor oradanda barkod koduna yazdıra bilirsek çok güzel olacak.

Tamam ben bakarım.sheetschange koduna eklenir.sadece A1 demi olacak barkod No?

Yok barkod okuyucudan gelen her kod üzerine a1 ekleyerek eski bilgiler aşağı doğru gidiyor. A1 hücresi hep yeni konan barkod kodu oluyor diğerleri alt alta gidiyor. Aynı barkod kodunu bir kaç defa kaytedemek yerine aynı barko kodu üzerine güncelleme yapılmasını tercih ederim.

En üsteki hep en son alınan barkod kodu oluyor.

Sayfa1in kodu yerine alttaki kodu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "A1" Then

        If Target.Value <> "" Then

            If Len(Target.Value) = 12 Then

                ürünkayýtform.TextBox1.Value = Target.Value

            End If

        End If

    End If

End Sub

---

Gif ekledim.
İsterseniz koddaki uzunluk 12 ise yada A1 boşsa gibi satırları silebilirsinizde.

Böylede olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "A1" Then

        ürünkayýtform.TextBox1.Value = Target.Value

    End If

End Sub

(29/10/2020, 01:23)feraz yazdı: [ -> ]Böylede olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "A1" Then

        ürünkayýtform.TextBox1.Value = Target.Value

    End If

End Sub

Aynı işlemi cıkısurunn userform nasıl yapa biliriz. Bu userformda olacak ayrıca özellik barkod kodunu okuduğu anda urunkayıtt listesinde bulunan bazı bilgileri otomatik doldurmasını istiyorum nasıl yapa bilirim.

Resimde işaretli alanlar diğer alanları ambar sorumlusu dolduracak.

Yeni hata almaya başladım ambarcıkıs userform açılıyor ama veri girişi bastığımda hata alıyorum