AccessTr.neT

Bul · 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=nothing

Gerekli yerleri düzeltin. Butona ekleyin kodları. Diğer tabloya yani kasa tablosunada veriyi yazdırırsınız.

Bul · 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.

Bul · 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.

Bul · 21/08/2015, 10:33

Şu an iş yerindeyim. Cepten tazıyorum. Saat 17:00 dan sonra bakalım

Bul · 21/08/2015, 11:53

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

Bul · 21/08/2015, 11:58

Sayın Atoz 112 hocam,
Çok teşekkür ederim.
Saygılarımla.

AccessTr.neT

Müşteriden yapılan tahsilatın Kasaya aktarma

Müşteriden yapılan tahsilatın Kasaya aktarma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri