Geçerli Formu Yazdırma

1 2 3 4 5

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

berduş, senin dediğin kodları ekledim

hata olarak

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

mesajı aldım

Örneğinizi ekleyiniz..

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

(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

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

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

1 2 3 4 5