Bir buton veya nesne cift tiklama olay yordamina acilan kutuda firmanin secilmesi ile asagida ki satir ile raporunuzu acabilirsiniz.
DoCmd.OpenReport "Rpr_UrunListesi", acViewPreview, , "[FirmaNo]=" & Açılan_Kutu26, acWindowNormal
(21-01-2016, 15:24)dsezgin83260 demiş ki: Bir buton veya nesne cift tiklama olay yordamina acilan kutuda firmanin secilmesi ile asagida ki satir ile raporunuzu acabilirsiniz.
DoCmd.OpenReport "Rpr_UrunListesi", acViewPreview, , "[FirmaNo]=" & Açılan_Kutu26, acWindowNormal
Sayın dsezgin83260 Hocam teşekkür ederim . Ben çift tıklandığında değil de tıklandığında olay yordamına verdiğiniz kodları yazdım. Açılankutu 26 dan seçtikten sonra kodu atadığım düğmeye tıkladığımda bilgileri aktardı .
Private sub düğmeye_click()
if isnull(me.Açılan_Kutu26) or Açılan_Kutu26="" then
msgbox "FİRMA SEÇİN"
me.Açılan_Kutu26.setfocus
else
DoCmd.OpenReport "Rpr_UrunListesi", acViewPreview, , "[FirmaNo]=" & Açılan_Kutu26, acWindowNormal
end if
end sub