Skip to main content

AccessTr.neT


Formdan Rapor!!

Formdan Rapor!!

#7
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
Son Düzenleme: 13/03/2020, 20:58, Düzenleyen: alicimri.
Cevapla
#8
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.
Cevapla
#9
(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.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 14/03/2020, 08:22, Düzenleyen: derzulya.
Cevapla
#10
Dosyanız ofis 2007 üstü açamıyorum, mdb veya 2007 formatında yüklerseniz.
Cevapla
#11
(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
.zip Database4 - Kopya.zip (Dosya Boyutu: 187,35 KB | İndirme Sayısı: 4)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#12
Ancak salt okunur açabiliyorum. Biraz uğraşmam gerekiyor (Tabi torundan fırsat bulabilirsem) Bir şeyler becerebilirsem, yanıt yazarım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da