Kod:
kriterim = [vekil adı] & "" & [anabaslık]
stDocName = "form1"
stLinkCriteria = "[kriter]=" & "'" & kriterim & "'"
Burada formun kayıt kaynağında kriter adına sahip bir alanın kriterim adlı değişkendeki bilgiye ([vekil adı] & "" & [anabaslık]) sahip olup olmadığını kontrol ettirmiş oluyorsunuz.
Ve büyük ihtimalle sizin formunuzda kriter diye bir alan yok. Bunun için size Kriter nedir diye soruyor.
Mevcut formunuzdaki [vekil adı] ve [anabaslık] adlı metin kutuları olduğunu ve açtığınız formun kayıt kaynağında da aynı isme sahip alanlar olduğunu varsayarsak,
sadece ilgili satırı şu şekilde yazmalısınız.
Kod:
kriterim = "[vekil adı]='" & me.[vekil adı] & "' And [anabaslık]='" & me.[anabaslık] & "'"
Burada başına me. konulan alanlar mevcut formunuzdaki metin kutularının isimleri, başında me olmayanlar ise açılacak formun kayıt kaynağındaki alan isimleri olmalı.
benimki metin kutusu değilde aşağı açılan kutu.Farkedermi peki? ekli dosyama bakabildinizmi?
Ben cevap yazdığımda, ekte dosyanız yoktu. Sonradan eklemişsiniz.
Formunuza baktım, açılan kutu içinde aynı metni kullanabilirsiniz.
Form1 ile yine form1'i açmaya çalıştığınız ve başka da form olmadığı için test edemedim.
Size acil tavsiyem şudur;
Alan isimlerinde kesinlikle boşluk kullanmayın, kullanırsanız kodlamada sorunlar yaşarsınız, kullanmazsanız rahat ederseniz.
Tabii ilaveten türkçe karakter de kullanmamanız lazım.
Yapılmaması gereken ölümcül hatalar
kusura bakmayın ekte yeni dosyayı gönderiyorum aynen uyguladım ama olmadı seçtiğim kritere göre veriler gelmiyor.bir bakarmısınız.bir düzenleyebilirmisiniz.
Kod:
kriterim = "[ad]='" & Me.[ad] & "' And [hizmetad]='" & Me.[hizmetad] & "'"
stDocName = "form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
kriterim adlı değişkende gerekli düzenlemeyi yapıyorsunuz ama formu açarken kriter olarak stLinkCriteria adlı değişkeni kullanıyorsunuz.
sadece ilgili satırı aşağıdaki şekilde düzeltin, çalışır.
Kod:
DoCmd.OpenForm stDocName, , , kriterim
oldu çok teşekkür ederim. sagolun.:-)