Parametre değerini kontrol etmek

1 2 3
08/05/2010, 23:21

febas

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
08/05/2010, 23:47

ercansahin

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.
09/05/2010, 00:05

febas

yardımlarınız için teşekkürler
09/05/2010, 00:11

ercansahin

Rica ederim.Yardımcı olabildiysek ne mutlu bize..Sorununuz çözüldü ise Cevaplanmış Access Soruları bölümünetaşıyabilirmiyiz...
09/05/2010, 00:16

C*e*l*o*y*c*e

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
09/05/2010, 00:32

febas

nasıl rep veriliyor. hocam bana sürekli yardımcı oluyor bu konuda ona çok teşşekkür ediyorum yüzlerce rep vermek isterim
1 2 3