Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı

1 2 3 4 5 6 7 8 9
29/10/2020, 12:42

feraz

(29/10/2020, 12:20)merttr07 yazdı: Yeni hata almaya başladım ambarcıkıs userform açılıyor ama veri girişi bastığımda hata alıyorum



Sarıya boyalı hatadan anladığım listviewde seçim yapılmadığı için hata.Çözümü ise şart koşulabilir eğer listviewde satır seçilş ise diye.
29/10/2020, 12:45

merttr07

(29/10/2020, 12:42)feraz yazdı:
(29/10/2020, 12:20)merttr07 yazdı: Yeni hata almaya başladım ambarcıkıs userform açılıyor ama veri girişi bastığımda hata alıyorum




(29/10/2020, 12:45)merttr07 yazdı:
(29/10/2020, 12:42)feraz yazdı:
(29/10/2020, 12:20)merttr07 yazdı: Yeni hata almaya başladım ambarcıkıs userform açılıyor ama veri girişi bastığımda hata alıyorum



Veri kayıt etmek istediğim zaman userform açılmıyor direk hata alıyorum.
29/10/2020, 12:47

feraz

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

Doldurma olayı içinde mantık yukarıdaki gibi olabilir.
Target.value yerine hangi veri gelecekse ol yazılır.
Eşittirin solundaki yere ise hangi userforma veri gelecekse örnekteki gibi yazılır.

Abey sizin bu iş karışık istiyorsanız özelden id ve şifre yazın bağlanıp bakayım teamviewier ile
29/10/2020, 12:49

merttr07

(29/10/2020, 12:47)feraz yazdı: ürünkayýtform.TextBox1.Value = Target.Value

Doldurma olayı içinde mantık yukarıdaki gibi olabilir.
Target.value yerine hangi veri gelecekse ol yazılır.
Eşittirin solundaki yere ise hangi userforma veri gelecekse örnekteki gibi yazılır.

Abey sizin bu iş karışık istiyorsanız özelden id ve şifre yazın bağlanıp bakayım teamviewier ile
Ama bu yaptığım diğerlerinde sorunsuz çalışıyor sadece ambarcıkıs sıkıntı çıkıyor.
29/10/2020, 19:06

merttr07

Sorun Çözülmüştür@feraz ilgisi için çok teşekkür ederim programı paylaşıyorum belki kodlar işinize yarar.
30/10/2020, 13:32

feraz

Rica ederiz.
txt eklenmemiş dosyaya Ayrıca boşsa diye birşey için uğraşmıştık.
Me.TextBox5.Value = rs.Fields(2).Value
yerine  alttaki gibi deneyin.Kod uruncik userformunda Sub getir() kodunda.
Sonuç verirse diğerlerinde ayarlayabilirsiniz.
Me.TextBox5.Value = IIf(IsNull(rs.Fields(2).Value) = True, "", rs.Fields(2).Value)
1 2 3 4 5 6 7 8 9