İlgili Formdaki Kayda Göre Rapor Yazdırmak

[beta12]

Benim bir sıkıntım var. Raporları toplu bazda basmak yerine,
İlgili formdaki öğrenci için basmak istiyorum.
Yani diyelim ki, A şahsına ait veli mektubu yazmak istiyorum.
Tüm kayıtlar için değil.
Tek tek yazdırmak.
O an hangi kişiye ait form aktifse onun
raporunu yazdırmak istiyorum.
Elbette bunun nasıl yapıldığını da öğrenmek istiyorum
Ayrıntılı bir anlatımla konuyu öğreneceğimi
düşünüyorum
Dosyam ekte

 

[Taruz]

Merhaba..

Raporu önizleme için açtığınız kodun kriter (Where) satırına her öğrenciye ait benzersiz alanı tanımlamanız yeterli..:

[COLOR=#0600ff]Dim[/COLOR] stDocName [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]String[/COLOR]
[COLOR=#0600ff]Dim[/COLOR] kriter [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]String[/COLOR]
kriter [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]"Kimlik="[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Me[/COLOR]!Kimlik
stDocName [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]"MEKTUP"[/COLOR]
DoCmd.OpenReport stDocName, acPreview, , kriter

 

[modalı]

Sayın beta12,

Sayın Taruz daha çabuk davrandı.

Ben de örneği ekleyeyim.


İyi çalışmalar

 

[beta12]

Bu kodu nereye yazıyoruz? Resimli bir örnek veremez misiniz?

 

[Taruz]

Merhaba..

Sayın modalı istediğiniz gibi çalışan örneği eklemiş zaten.. O örnek için fazladan bir şey yapmanıza gerek yok..

Yerini bilmek istiyorum derseniz, formunuz tasarım halindeyken Alt+11 tuşlarına basarak VBA editörünü açabilirsiniz..

 

[beta12]

Benim esas sorunum bunu başka dosyalarda da uygulamak.
"Dim stDocName As String
Dim kriter As String
kriter = "Kimlik=" & Me!Kimlik
stDocName = "MEKTUP"
DoCmd.OpenReport stDocName, acPreview, , kriter"
Yukarıdaki kodu resmini çektiğim alana almışsınız herhalde.
Söz konusu kodu comandbuton'a nasıl ekleyebilirim.,
Mesela bir rapor butonuna nasıl ekleyebilirim?
Yoksa VBA kod editörünü açıp kodu
ilgili buton kodlarına mı ekleyeceğim.
Temel sorun bu

 

[modalı]

Sayın beta12,

Form açıkken Alt+F11 e basarsanız ilgili kod yazma sayfası açılır. Eklediğiniz resimdeki sayfanın üst kısmında iki açılan kutu var. Sol tarafta formun elemanlar listesi bulunur. Sağ tarafta ise seçilen elemanın olaylar listesi.

Etkileşimli programlarda bir komutun çalışabilmesi için bir olayın gerçekleşmesi gerekir.

Siz ilgili butonu seçip olay listesinden klik i seçmeniz ve kodları araya eklemeniz yeterli.

Ancak Access e özgün bir kolaylık daha var. Araç kutusundan bir buton eklediğinizde eğer access sihirbazı etkin ise, buton ile ilgili yapılabileceklerin bir penceresi açılır ve siz verilen yönergeleri izlerseniz kodların otomatik olarak yazıldığını göreceksiniz.

Sizin yapacağınız :

"Dim stDocName As String
[COLOR=Red]Dim kriter As String
kriter = "Kimlik=" & Me!Kimlik[/COLOR]
stDocName = "MEKTUP"
DoCmd.OpenReport stDocName, acPreview[COLOR=Red], , kriter[/COLOR]"

kırmızı ile işaretlediğim ek kodları yazmanız.

İyi çalışmalar

 

[beta12]

Denilen adımları harfiyyen uyguladım.
Resimde görüldüğü üzere 'syntax error.'
problemi oluştu.
Peki hata nerede?

 

[modalı]

Dim in önündeki tırnak işaretlerinin olmaması gerekiyor.


İyi çalışmalar

 

[beta12]

Ekteki kodlara 'kriter' yapılandırmasını yapabilir misiniz?
Ben yapamıyorum. Kod yazmak bir sanattır çünkü;
Şimdiden teşekkür ederim

Not: Eklediğiniz kodların kırmızı olması öğrenmemi kolaylaştırır.

 

[modalı]

Sayın beta12,

Tablonuzun yapısını ve formdaki metin kutularının adlarını bilmeden yazmam imkânsız.