Geçerli Formu Yazdırma

1 2 3 4 5
10/10/2019, 14:51

midascicero

Merhaba,

Bir Form oluşturup Üyelik Sözleşmesi gibi tasarladım.
Geçerli Formu yazdır dediğim zaman ekranda görünen üyeyi değil bütün üyelerin cıktısını alıyor.
Bunu nasıl sadece ekranda görünen üye kayıdının cıktısını al şeklinde düzeltebilirim?
10/10/2019, 15:17

berduş

Aşağıdaki bağlantıda cevap işinize yarayabilir
iyi çalışmalar
https://accesstr.net/konu-hizmet-cetveli...#pid159028
aslında en uygun yöntem rapor hazırlayıp, raporu yazıcıya göndermektir.
Yine de makro ile yazdırdığınızı varsayarak şöyle anlatayım:
1 - buton ekleyin
2 - çıkan sihirbazda kayıt işlemleri
3 - kaydı yazdır seçeneğini şeçin
Not: eğer formunuzun genişliği fazla ise 2. sayfaya sarkabilir, daraltırsanız sorun kalmaz
19,5-20 cm iyidir
ayrıca çıktıda görünmesini istemediğiniz metin kutuları ve etiketlerin
-->biçim özellikleri-->Görüntülenme Koşulu=Yalnızca Ekran yaparsanız yazıcıda çıkmazlar

10/10/2019, 15:29

midascicero

Access e yeniyim. Rapor şeklinde denedim ama bu sefer de mesela üyenin ismi yerine " #ad? " çıkıyor.
bende becerebildiğim kadar ile formda yapayım dedin. Formu dediğiniz gibi 1 sayfaya sıkıştırmayı başardım.
Lakin dediğim gibi bu sefer her üyeye birer Sözleşme çıkarıyor.
Yani ben yeni üye kayıdı yapınca üyenin bilgilerini otomatik sözleşmeye yerleştirip çıktısını almak istiyorum fakat 400 tane üyenin sözleşmesi çıkıyor.

benim buton da kod
-----------------------------------------------------------

Private Sub Komut624_Click()
On Error GoTo Err_Komut624_Click

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "sözlesme_1"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Komut624_Click:
    Exit Sub

Err_Komut624_Click:
    MsgBox Err.Description
    Resume Exit_Komut624_Click
   
End Sub
10/10/2019, 15:44

berduş

forma kriter göndererek açmayı denediniz mi
kırmızı kısımları ekleyip denemelisiniz
kayıtlarınızın yapısını bilmediğimden üyeyi belirleyen benzersiz alan hangisi onu belirtmenizde fayda var
ama varsayalım ki tablonuzdaki otomatik sayı Kimlik olsun, formdaki kimlik alanının da ismi txtKimlik olsun
Set MyForm = Screen.ActiveForm
myform.filter = "Kimlik= " & myForm.txtKimlik.value
myform.filteron = true
10/10/2019, 17:36

midascicero

üyeyi belirleyen benzersiz alan burda muhtemelen " üye kayıt no" olur.
sonuçta her üyenin kendine has kayıt nosu var.

ekte iki resim ekledim belki aydınlatı olur.




10/10/2019, 17:42

ozanakkaya

(10/10/2019, 15:29)midascicero yazdı: Dim stDocName As String
    Dim MyForm As Form

    stDocName = "sözlesme_1"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False


Merhaba, üstteki kod yerine sadece

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.PrintOut acSelection

kodunu dener misiniz?
1 2 3 4 5