AccessTr.neT

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.

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

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ı

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

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