21/08/2015, 10:17
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=nothing21/08/2015, 10:17
21/08/2015, 10:20
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.
Microsoft ActiveX Data Objects 2.xx Library
Ekli değil ise kod çalışmaz.
Vba bölümünde
Tool > References...
Ten ekleyiniz.
21/08/2015, 10:23
Sayın Özgür Yasin hocam,
Eğer vaktiniz varsa çalışma dosyasını ekledim örnek üzerinden yardımcı olabilirseniz sevinirim.
Saygılarımla.
Eğer vaktiniz varsa çalışma dosyasını ekledim örnek üzerinden yardımcı olabilirseniz sevinirim.
Saygılarımla.
21/08/2015, 10:33
Şu an iş yerindeyim. Cepten tazıyorum. Saat 17:00 dan sonra bakalım
21/08/2015, 11:53
Sayın fascioglu,
talebinize yönelik olarak,alternatif olması adına;
Aşağıdaki kod ifadesini,
frm_URUNCIKIS adlı formunuzdaki KAYDET butonu içerisine ve
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.
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, , acMenuVer70kod 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, , acMenuVer7021/08/2015, 11:58
Sayın Atoz 112 hocam,
Çok teşekkür ederim.
Saygılarımla.
Çok teşekkür ederim.
Saygılarımla.