Öncelikle;siz de takdir edersiniz ki,Site Kuralları gereği 2. ve 3. sorularınız için ayrı ayrı olmak üzere
- Her bir konunuzda;talebinizi (sorununuzu) net ifadeler ile açıklamayı,
- Her bir konunuzda;içeriğinde farazi gerçek dışı uydurma veriler ve sonuçları görebilmek adına da birkaç kayıt olacak şekilde örnek uygulamanızı eklemeyi,
- Her bir konunuzda;gerekirse taleplerinizi desteklemek adına ekran görüntülerini dahil etmeyi lütfen ihmal etmeyiniz.
Ayrıca,bu konunuzdaki 1.sorunuz dikkate alınacağı düşüncesi ile yine istenen özelliklerde olacak şekilde örnek uygulamanızı dahil ediniz.
Son olarak,
Alıntı:Ben ürün kodunu girince hem firma hem cinsi hemde modeli otomatik gelsin istiyorum.
ifadeniz için;
1)
eğer ürün kodu seçimi akabinde mevcuttaki bir tablodan veya sorgudan veri çekmek sureti ile bu bilgileri elde etmek istiyorsanız,kriter kısmında bu ürün kodu değerini göstererek Dlookup Fonksiyonu kullanmak sureti ile bunu gerçekleştirebilirsiniz.
ÖRNEK
Kod:
Me.firma_adi_denetiminin_adi=DLookup("[firma_adi_alani]", "tablo_adi_yada_sorgu_adi", "[urun_kodu]=" & Me.urun_kodu_denetiminin_adi)Eğer ürün kodu alanının VERİ TÜRÜ ilgili tabloda METİN ise,TEK TIRNAK (‘) içerisinde yazılmalı.eğer SAYI ise olduğu gibi yazılmalı.
ÖRNEK
Kod:
Me.firma_adi_denetiminin_adi=DLookup("[firma_adi_alani]", "tablo_adi_yada_sorgu_adi", "[urun_kodu]=’" & Me.urun_kodu_denetiminin_adi & “’”)2)
Listeden seçilmek sureti ile form üzerindeki denetimlere seçilen kayıt bilgilerinin aktarılmasını talep ediyorsanız;
Konunuzun 3.mesajında bağlantısı verilen konudaki örnek uygulamada da yer aldığı üzere,listenin TIKLANDIĞINDA olay yordamı içerisindeki kodları kendi uygulamanıza adapte edip gerekli denetim ve alan adı tanımlarını değiştirerek kullanabilirsiniz.
ÖRNEK
(bağlantıdaki konuda yer alan örnekteki kodlar üzerinden,listenin TIKLANDIĞINDA olayına)
Kod:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[urun_kodu_alan_adi] = " & Str(Nz(Me![liste_denetiminin_adi], 0))
If Not rs.EOF Then Me.Bookmark = rs.BookmarkBilginize…iyi çalışmalar,saygılar.
