maalesef. dediğiniz kodu yazınca çıktı sayısı 6 ya katladı.
Bir yerde basit bir hata var ama nerde onu bulamadım.
Geçerli Formu Yazdırma
berduş, senin dediğin kodları ekledim
hata olarak
'Üye No= 1001' sorgu ifadesi içindeki Sözdizimi hatası ( eksik işleç)
mesajı aldım
hata olarak
'Üye No= 1001' sorgu ifadesi içindeki Sözdizimi hatası ( eksik işleç)
mesajı aldım
Örneğinizi ekleyiniz..
(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
denedim. maalesef yine diğer üyelerin sözleşmesinide çıkarıyor.
forma kimlik alanı nasıl eklerim birde onu deneyim..
forma kimlik alanı nasıl eklerim birde onu deneyim..
Konuyu Okuyanlar: 1 Ziyaretçi
