AccessTr.neT

Sayfalar: 1 2 3

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)

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.

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ş Img-grin

Peki ismin üzerine tıklayınca neden hata veriyor? Orda neyi eksik yazmışım?

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ı.

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

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 Img-grin

Sayfalar: 1 2 3

firdevs

alpeki99

firdevs

alpeki99

firdevs

alpeki99