AccessTr.neT

Tam Versiyon: Parametre değerini kontrol etmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
aslınd ben anlatamadım parametrenin sorulması gerekiyor. raporu sadece girilen firma için alınması gerekli. bu şekilde istenilen firmayı seçtireniliyorum. parametre değerini konrol altına almaya çalışıyorum yani kullanıcı buraya değer girdiğinde bu değeri kontrol ederek tablodan veriyi seçtiriyorum. eğer iptal edilirse yani iptal tuşuna basıldığında fomksiyon hatay düşmeden end function kısmına gitsin istiyorum. inputbox ile yapamdım yani cümleyi aşağıdaki gibi düzenlediğimde yine parametre değeri istiyor inputbox dan gelen değeri almıyor
a=inputbox(" firma adını giriniz")
DoCmd.RunSQL "SELECT kmtportfoy.ncst, kmtportfoy.frmadrres, kmtportfoy.frmirt, tblyetkili.yetkili, tblyetkili.irttel, tblyetkili.mail, tblyetkili.nprd INTO a FROM kmtportfoy INNER JOIN tblyetkili ON kmtportfoy.kimlik = tblyetkili.baglanti where firma=" & a
Yazdığınız kodu aşağıdaki ile değiştirirseniz inputbox tan gelen değeri alacaktır..
Kod:
Dim kayit As String
kayit = InputBox("firma adını giriniz")
DoCmd.RunSQL ("SELECT kmtportfoy.ncst, kmtportfoy.frmadrres, kmtportfoy.frmirt, tblyetkili.yetkili, tblyetkili.irttel, tblyetkili.mail, tblyetkili.nprd INTO a FROM kmtportfoy INNER JOIN tblyetkili ON kmtportfoy.kimlik = tblyetkili.baglanti where firma= '" & kayit & "'")

Buna birde if kayit ="" then şeklinde kontrol eklerseniz sanırım istediğiniz olacaktır.
yardımlarınız için teşekkürler
Rica ederim.Yardımcı olabildiysek ne mutlu bize..Sorununuz çözüldü ise Cevaplanmış Access Soruları bölümünetaşıyabilirmiyiz...
Sayın febas ,sorununuzun çözüldüğüne sevindim,ama Ercan hocam repi haketmedimi,nerde puanı ,bayadır sizin sorununuz ile uğraşıyor,lütfen sizlerde sorunların çözüldüğünde onu yapan hocaya rep puanı vererek ödüllendirimn Img-grin
nasıl rep veriliyor. hocam bana sürekli yardımcı oluyor bu konuda ona çok teşşekkür ediyorum yüzlerce rep vermek isterim Img-grin
Sayfalar: 1 2 3