Geçerli Formu Yazdırma - Baskı Önizleme

Geçerli Formu Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Geçerli Formu Yazdırma (/konu-gecerli-formu-yazdirma.html)

Sayfalar: 1 2 3 4 5

Cvp: Geçerli Formu Yazdırma - midascicero - 10/10/2019

maalesef. dediğiniz kodu yazınca çıktı sayısı 6 ya katladı.
Bir yerde basit bir hata var ama nerde onu bulamadım.

Cvp: Geçerli Formu Yazdırma - midascicero - 10/10/2019

berduş, senin dediğin kodları ekledim

hata olarak

'Üye No= 1001' sorgu ifadesi içindeki Sözdizimi hatası ( eksik işleç)

mesajı aldım

Cvp: Geçerli Formu Yazdırma - ozanakkaya - 10/10/2019

Örneğinizi ekleyiniz..

Cvp: Geçerli Formu Yazdırma - midascicero - 10/10/2019

boş deneme amaçlı veritaban/örnek ektedir

Cvp: Geçerli Formu Yazdırma - berduş - 10/10/2019

(10/10/2019, 18:08)midascicero yazdı: 'Üye No= 1001'

görünen ad ile gerçek ad farklı olabiliyor
kodu aşağıdaki gibi değiştirip dener misiniz
MyForm.Filter = "u_no= " & MyForm.u_no
yalnız bence u_no yerine forma kimlik alanı ekleyip onu kullanın üye noyu girmeyi unutabilirsiniz
ama Access her zaman benzersiz kimlik alanını kendi ekler

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

    MyForm.Filter = "u_no= " & MyForm.u_no

MyForm.FilterOn = True

    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

ayrıca @ozanakkaya hocamın söylediği kod da sorunsuz çalışıyor

Kod:

Private Sub Komut624_Click()

On Error GoTo Err_Komut624_Click

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.PrintOut acSelection



Exit_Komut624_Click:

    Exit Sub



Err_Komut624_Click:

    MsgBox Err.Description

    Resume Exit_Komut624_Click

    

End Sub

Cvp: Geçerli Formu Yazdırma - midascicero - 10/10/2019

denedim. maalesef yine diğer üyelerin sözleşmesinide çıkarıyor.

forma kimlik alanı nasıl eklerim birde onu deneyim..