AccessTr.neT
Kaydedilen verileri listboxta gösterme sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydedilen verileri listboxta gösterme sorunu (/konu-kaydedilen-verileri-listboxta-gosterme-sorunu.html)



Kaydedilen verileri listboxta gösterme sorunu - saygincilli - 04/03/2011

Merhaba üstadlar

forumda aradım ama istediğim sonucu elde edemedim en iyisi size sormak sanırım
bir form tasarlıorum bu formda birkaç çeşit kayıt işlemi yapılıyor. Formda giren mal bilgisi kaydet işleminde birden fazla kayıt yapılacak bu yüzden girilen kayıtları unutulma olasılığını düşünerek listboxta Material ve Batch değerlerini göstersin istiyorum ama beceremedim bir türlü yardımlarınızı bekliyorum.

kayıt işlemi ado ile yapıyorum tablolar ayrılacak şu yöntemle yap diyen olursa eğer onu düzeltebiliriz.



Cvp: Kaydedilen verileri listboxta gösterme sorunu - Hayri16 - 04/03/2011

Sayın Saygın;
Ekte gönderdiğimi bir inceleyin, eğer istediğiniz böyle veya buna benzer bir şeyse devam ederiz.


Cvp: Kaydedilen verileri listboxta gösterme sorunu - saygincilli - 04/03/2011

yok değil bütün kayıtları gösteriyo burdaki liste
benim istediğim "giren mal bilgisi kaydet" butonuna tıkladığımız zaman kaydedilen verinin sadece material ve batch kısmını listeye atıcak sadece göstermek amaçlı mesela 10 tane material girdik 10 tanesinide listede gösterecek tekrar girilmesin diye göstermek amaçlı


Cvp: Kaydedilen verileri listboxta gösterme sorunu - Hayri16 - 04/03/2011

Saygın o zaman Liste66 nın sütun sayısını 2 yapalım. Satır kaynağını boş bırakalım. Satır Kaynak türü'nü değerler listesi yapalım.
Private Sub btnmalbilgikayit_Click() yordamını aşağıdaki şekilde yazalım.
Private Sub btnmalbilgikayit_Click()
strSQL = "SELECT * FROM tbl_GirenMalBilgisi "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.AddNew
.Fields("GirenMalID") = Me.txtmalID
.Fields("Material") = Me.txtmaterial
.Fields("Batch") = Me.txtbatch
.Update
End With
With rstkayit
'Aşağıdaki satırdaki kod işimizi görecek.
Liste66.AddItem Me.txtmaterial & ";" & Me.txtbatch

.MoveLast
showRecord2 intCount & " Kayıtta " & .AbsolutePosition
End With
End Sub
Yine olup olmadığı konsusunda dönersen sevinirim. Kolay gelsin


Cvp: Kaydedilen verileri listboxta gösterme sorunu - saygincilli - 04/03/2011

Run-time error '424':
object required

evet hayri bey yazdığımız koda böyle bi hata veriyor "nesne gerekliymiş"
tamam hayri bey sorunu çözdüm liste kutusunda problem varmış

Teşekkürler