Kod:
Dim rs as new adodb.recorset
Rs.open "tabloadi", currentproject.connection,adopenkeyset,adlockoptimistic
Rs.addnew
Rs!tabloalanadi=me.metinkutusuadi
Rs!tabloalanadi=me.metinkutusuadi
Rs.update
Rs.close: set rs=nothing
Gerekli yerleri düzeltin. Butona ekleyin kodları. Diğer tabloya yani kasa tablosunada veriyi yazdırırsınız.
Eper referans bölümünde
Microsoft ActiveX Data Objects 2.xx Library
Ekli değil ise kod çalışmaz.
Vba bölümünde
Tool > References...
Ten ekleyiniz.
Sayın Özgür Yasin hocam,
Eğer vaktiniz varsa çalışma dosyasını ekledim örnek üzerinden yardımcı olabilirseniz sevinirim.
Saygılarımla.
Şu an iş yerindeyim. Cepten tazıyorum. Saat 17:00 dan sonra bakalım
Sayın fascioglu,
Alıntı:...Ürün adı Ürüncıkış tablosuna gelmiyor,...
talebinize yönelik olarak,alternatif olması adına;
Aşağıdaki kod ifadesini,
Kod:
Me.urunadı = DLookup("URUNAD", "tbl_URUNLER", "[URUNID]=" & Me.urunıd)
frm_URUNCIKIS adlı formunuzdaki KAYDET butonu içerisine ve
Kod:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
kod ifadesinin bir üst satırına eklemek sureti ile tbl_URUNCIKIS adlı tablonuzdaki urunadı alanına istediğiniz verileri getirmiş olacaksınız.buton içeriği aşağıdaki gibi olacak.bilginize.iyi çalışmalar,saygılar.
Kod:
Me.urunadı = DLookup("URUNAD", "tbl_URUNLER", "[URUNID]=" & Me.urunıd)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Sayın Atoz 112 hocam,
Çok teşekkür ederim.
Saygılarımla.