Private Sub Cari Ekle_Click()
On Error GoTo Err_Cari Ekle_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "MUSTERİCARİ "
stLinkCriteria = "[MNO]=" & Me![MNO]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![MUSTERİCARİ ].Caption = Me.MÜŞTERİ_ADI_SOYADI & " " & "isimli müşteriye ürün satış ekranı"
Forms![MUSTERİCARİ ]![ILGILI].Value = Me.MÜŞTERİ_ADI_SOYADI & " " & "isimli müşteriye ait satış bilgileri"
Exit_Cari Ekle_Click:
Exit Sub
Err_Cari Ekle_Click:
MsgBox Err.Description
Resume Exit_Cari Ekle_Click
End Sub
F_MUSTERIKAYIT formunda Cari Ekle diye bir buton ekle,bu butona tıkladığımda MUSTERİCARİ formunu açar