Sayın hocalarım,
Sorum şu;
F_MUSTERIKAYIT formunda Cari Ekle diye bir butonum var,bu butona tıkladığımda MUSTERİCARİ formunu açıyorum.
Ancak benim yapmak istediğim,MUSTERIKATIT formunda hangi müşteri bilgisi varsa o müşterinin carisini açmasi,Eğer yeni kayıt ise
yeni cari açması.
Saygılarımla.
F_MUSTERIKAYIT formunda Cari Ekle diye bir buton ekle,bu butona tıkladığımda MUSTERİCARİ formunu açar
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
Sayın Simendifer,
Yaklaşık 1 saattir her türlü denemeyi yaptım malesef olmadı.
Herşey için çok teşekkür ederim.
Saygılar.
prg nizi eklerseniz yardımcı oluruz
Alt formda kayıt Bul sorusuna ekli program.
Private Sub btn_Cari_Ekle_Click()
Forms!F_GIRIS!kmt_Musteri.SetFocus
Forms!F_GIRIS!MUSTERIKAYIT.Visible = False
Forms!F_GIRIS!MUSTERICARI.Visible = True
End Sub
Yukarıda yazılı kodla Cari formunu açıyorum ancak açılan formda rastgele müşteri verisi geliyor,bu yüzden yukarıdaki kodla açtığım koda Muşteri kayıt formunda Liste var oradan seçeceğim kayıda göre Cari formu açması
Sayın fascioglu, bu kod ile cari formunu açmıyorsunuz. giris formunda gizli olan alt formu görünür yapıyorsunuz. Form açma farklı birşey.
Alt formdaki CARİ EKLE isimli butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.
Dim rst As Recordset
Forms!F_GIRIS!Kmt_Musteri.SetFocus
Forms!F_GIRIS!MUSTERIKAYIT.Visible = False
Forms!F_GIRIS!MUSTERICARI.Visible = True
Set rst = Forms!F_GIRIS!MUSTERICARI.Form.RecordsetClone
rst.FindFirst "MUSID = " & Me.MUSID
If Not rst.NoMatch Then
Forms!F_GIRIS!MUSTERICARI.Form.Bookmark = rst.Bookmark
Else
MsgBox "Müşteriye Ait Cari Bulunamadı!"
End If
rst.Close
Set rst = Nothing