kritere göre form rapor açmak

1 2 3
01/12/2009, 22:48

firdevs

Sayın hocalarım
Birincisi...ekteki örnekte alt form üzerinde cari_kod'a çift tıkladığımda o satırdaki tüm bilgileri görebileceğim formu açmasını istiyorum (yaptım ama tam olmadı) Başka yolla yaptım ama bunu bulmak istiyorum.
İkincisi...yine aynı yerde cari_isme çift tıklayarak seçtiklerimi listeye aktarmak sonrada seçim sayısı yazarak yazdığım sayı kadar aynı raporu tekrarlamasını istiyorum.
Ben seçme işini tabloya secim alanı ekleyerek yaptım ama sağlıklı olduğunu düşünmüyorum.(şu anda o alanda kritere göre form açma kod denemeleri var. Ama başarısız.)
Kod örneklerini inceleyip yapmaya çalıştım ama olmadı. Bu bana temel olacak.
yardım ederseniz çok memnun olacağım. Herkese selamlar.
(Uzun bir ayrılıktan sonra sizleri yanımda hissetmek çok güzel)
02/12/2009, 00:24

alpeki99

Fazla ayrıntılı bakamadım ancak çift tıklama olayını hallettim. Raporu istediğim sayıda yazdırayım demişsiniz onu online kod bankamızda aratırsanız örnek kodu bulabilirsiniz. Ben yine her ihtimale karşı elimdeki başka bir dosyayı daha ekleyeceğim.
02/12/2009, 00:48

firdevs

stLinkCriteria = "[Cari_Kod]=" & Me![Cari_Kod] çalışmıyor
stLinkCriteria = "[Cari_Kod]='" & Me![Cari_Kod] & "'" çalışıyor
Çok teşekkür ederim
eksik işleç deyip duruyordu bir tepesine tırnak atmak gerekiyormuş Peki ismin üzerine tıklayınca neden hata veriyor? Orda neyi eksik yazmışım?
02/12/2009, 00:51

alpeki99

Cari kod alanı String tipte olduğu için tek tırnak içine almanız gerekiyor. Eğer sayı tipinde bir alan olsaydı tek tırnak kullanmaya gerek kalmazdı.
02/12/2009, 01:23

firdevs

Teşekkür ederim bu türlü açıklamalar ancak bize yol aldırır.
Kod:
DoCmd.OpenReport "Rapor1", acViewPreview  DoCmd.PrintOut acPrintAll, , , , 3
Kod Bankasında bunu buldum
burada sayıyı koda yazmak yerine
Kod:
Private Sub Komut45_Click()
On Error GoTo Err_Komut45_Click

    Dim stDocName As String

    stDocName = "R_kargo"
    DoCmd.OpenReport stDocName, acPreview

Exit_Komut45_Click:
    Exit Sub

Err_Komut45_Click:
    MsgBox Err.Description
    Resume Exit_Komut45_Click
   End Sub
bu kod rapor açıyor buna
Kod:
DoCmd.OpenReport "R_kargo", acViewPreview  DoCmd.PrintOut acPrintAll, , , , me.kopyasayısıbox value

gibi bir ilave nasıl yapabilirim?
Yani aktif form üzerinde rakam yazdığım kutudaki sayıyı alsın.
Teşekkürler iyi geceler
02/12/2009, 01:29

alpeki99

Nasıl ki yukarıda kodlarınız içinde rapor adını bir değişkene atıyorsunuz:

Kod:
Dim stDocName As String
stDocName = "R_kargo"

ve daha sonra rapor adını yazmadan sadece değişkeni

Kod:
DoCmd.OpenReport stDocName, acPreview

kodunda olduğu gibi stDocName ile getiriyorsunuz aynı şekilde kaç adet kayıt yazdırılacaksa o zaman o metin kutusunu bir değişkene atayıp kayıt sayısı yerinde de o değişkeni kullanmanız çözüm olabilir.

Siz bir uğraşın olmazsa biz adım atarız
1 2 3