Formdan Rapor!!

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

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

Kodları Anaformdaki Komut düğmesine yazın.

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.