(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 SubKod:
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