Raporda, Metin Kutusu yerine Etiket Kullanırsanız açık olan Formdaki Kontrollerin değerini alabilirsiniz.
Private Sub Report_Open(Cancel As Integer)
Etiket7.Caption = Forms("Form1").Metin1.Value
End Sub
Kod:
Private Sub Komut2_Click()
'Rapor kapalı ise açıyor, açıksa sorun yok.
DoCmd.OpenReport "Rapor1", acViewReport, "", "", acNormal
'Anaform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin2.ControlSource = "='" & Me.Metin0.Value & "'"
'Altform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin4.ControlSource = "='" & Me.Form2.Controls("Metin1").Value & "'"
End Sub
Kodları Anaformdaki Komut düğmesine yazın.
(14/03/2020, 00:09)alicimri yazdı: [ -> ]Kod:
Private Sub Komut2_Click()
'Rapor kapalı ise açıyor, açıksa sorun yok.
DoCmd.OpenReport "Rapor1", acViewReport, "", "", acNormal
'Anaform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin2.ControlSource = "='" & Me.Metin0.Value & "'"
'Altform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin4.ControlSource = "='" & Me.Form2.Controls("Metin1").Value & "'"
End Sub
Teşekkür ederim peki seçenek kutularını nasıl getirebilirim? hangisini seçtiysem o gelsin gibi. yada onay kutuları. Öğrenme amaçlı soruyorum
birde açılır kutulardaki
Column değerine nasıl revize edilir? mesela bu kodda açılır kutu değerini getiriyor ama kimliği getiriyor.
Dosyanız ofis 2007 üstü açamıyorum, mdb veya 2007 formatında yüklerseniz.
(14/03/2020, 08:35)alicimri yazdı: [ -> ]Dosyanız ofis 2007 üstü açamıyorum, mdb veya 2007 formatında yüklerseniz.
2007 formatında aldım
Ancak salt okunur açabiliyorum. Biraz uğraşmam gerekiyor (Tabi torundan fırsat bulabilirsem) Bir şeyler becerebilirsem, yanıt yazarım.