Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/02/2019 00:56
Konu Sahibi
access acemisi
Yorumlar
18
Okunma
957
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 18/07/2019,20:00
Çözüldü 
Değerli arkadaşlar
ekteki dosyada, FrmAra formundaki kayıtlı konulardan, rapor hazırlamak ve yazıcıdan çıktı almak istiyorum.Örnek Ramazan ayına girerken konusunun verilerini hazırladım.Ramazan ayına girerken raporda hazırlamak ve A4 kağıdına çıktı alacak şekilde planlamak istiyorum.
Formdaki tüm alanlar değil resimde görüldüğü gibi, sadece no,kategori,başlık,metin alanların raporu hazırlanacak
Saygılarımla
[Resim: do.php?img=8856]




berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,13:43
doğrudan raporu ekrana getiriyor gelen ekrandan yazıcıya gönderebilirsiniz yada isterseniz bilgisayara kaydedersiniz



...........
access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 18/07/2019,20:00
(20/02/2019 15:13)haliliyas Adlı Kullanıcıdan Alıntı: isterseniz bilgisayara kaydedersiniz
Sn haliliyas bilgisayara nasıl kaydedeceğiz?



berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,13:43
raporu açtığınızda farenin sağ tuşuna basıp yazdır dersiniz çıkan ekranda yazıcı olarak "Microsoft print to pdf" seçerseniz bilgisayara kaydeder
yada  doğrudan bilgisayara kaydetmesi için butonun kodunu değiştirebilirsniz
arama formundaki rapor butonunun kod satırında yer alan aşağıdaki kodu

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BtnRapor_Click()
Dim SQLAra, XKriter, Xvarsay As String
If IsNull(Me.AKAramaGecmisi) Then GoTo 10
If Me.OnayAnahtar = True Then Xvarsay = "[anahtar_kelime]" Else Xvarsay = "[anahtar_kelime] & ' ' & [metin]"
If IsNull(Me.AKKriter) Then Me.AKKriter.Value = "or"
XKriter = Replace(Trim(Me.AKAramaGecmisi), " ", "*' " & Me.AKKriter & " (" & Xvarsay & ") Like '*")
SQLAra = " SELECT vaaz.* FROM vaaz " & _
         " WHERE (((" & Xvarsay & ")" & _
         " Like '*" & XKriter & "*' )) ORDER BY sirano;"
[color=#333333][size=small][font=Tahoma,Verdana,Arial,Sans-Serif]DoCmd.OpenReport "RprVaazPlan", acViewPreview, , , , SQLAra[/font][/size][/color]
Exit Sub
10 MsgBox (" Lütfen konu seçiniz")
AKAramaGecmisi.SetFocus
End Sub 

aşağıdaki kodla değiştiri

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub BtnRapor_Click()
Dim SQLAra, XKriter, Xvarsay As String

If IsNull(Me.AKAramaGecmisi) Then GoTo 10

If Me.OnayAnahtar = True Then Xvarsay = "[anahtar_kelime]" Else Xvarsay = "[anahtar_kelime] & ' ' & [metin]"
If IsNull(Me.AKKriter) Then Me.AKKriter.Value = "or"

XKriter = Replace(Trim(Me.AKAramaGecmisi), " ", "*' " & Me.AKKriter & " (" & Xvarsay & ") Like '*")

SQLAra = " SELECT vaaz.* FROM vaaz " & _
         " WHERE (((" & Xvarsay & ")" & _
         " Like '*" & XKriter & "*' )) ORDER BY sirano;"
DoCmd.OpenReport "RprVaazPlan", acViewNormal, , , , SQLAra
Exit Sub
10 MsgBox (" Lütfen konu seçiniz")
AKAramaGecmisi.SetFocus
End Sub




...........
access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 18/07/2019,20:00
Sn haliliyas
vaazplan alanına (ihtiyaç üzerine) tema adında bir alan ekledim.
Bu alanın RprVaazPlan rapor tasarımında yer almasını istiyorum.Ekte görüldüğü şekilde tasarımın yapılması ve bir üstte (4) de yer alan kodlarla birlikte yeniden düzenlenmesi.
Kısaca otema alanını nasıl eklediğinizide yazarsanız öğrenmiş oluruz  saygılarımla


[Resim: do.php?img=8876]



berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,13:43
(21/02/2019 12:06)access acemisi Adlı Kullanıcıdan Alıntı: Kısaca otema alanını nasıl eklediğinizide yazarsanız öğrenmiş oluruz  saygılarımla
tema ve konu alanları değerlerini "frmara" formundaki "kayıtlı konular" açılır kutusundan alıyorlar,
bu nedenle önce "frmara"daki açılır kutuya bir alan daha ekledim (tasarım modunda satır kaynağını incelerseniz orada görülüyor)
rapordaki tema ve konu başlıklarının denetim kaynağı

konu  ="   Konu : " & [Formlar]![FrmAra]![AKAramaGecmisi].[Column](1) ' açılır kutudaki 2. sütunda olduğu için [Column](1)  yazılır


tema ="   Tema: " & [Formlar]![FrmAra]![AKAramaGecmisi].[Column](2) ' açılır kutudaki 3. sütunda olduğu için [Column](2)  yazılır


tema ve konu etiketleri rapor başlığı olduğu için rapor üst bilgisine taşıdım



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Maps Qr Kod Rapor Çıktısı - 1 hakkih 13 775 27/07/2019, 23:43
Son Yorum: berduş
Çözüldü Rapor Sorunu metınaycıcek 26 753 03/07/2019, 23:35
Son Yorum: metınaycıcek
Çözüldü Webbrowserda (input Type Disable) Olan Alandan Veri Almak mustinba 4 211 03/07/2019, 22:08
Son Yorum: mustinba
Çözüldü Sorgu Kriterini Formdan Almak Ertugrul Kuzu 7 532 03/06/2019, 16:10
Son Yorum: berduş
Çözüldü İki Alt Formlu Rapor Önizleme edacan19 4 279 15/05/2019, 13:49
Son Yorum: edacan19

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.