AccessTr.neT
Seçilen Kayda Göre Form Açma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçilen Kayda Göre Form Açma (/konu-secilen-kayda-gore-form-acma.html)

Sayfalar: 1 2 3


Seçilen Kayda Göre Form Açma - fascioğlu - 07/06/2018

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.


Cvp: Seçilen Kayda Göre Form Açma - simendifer - 07/06/2018

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



Cvp: Seçilen Kayda Göre Form Açma - fascioğlu - 07/06/2018

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.


Cvp: Seçilen Kayda Göre Form Açma - simendifer - 07/06/2018

prg nizi eklerseniz yardımcı oluruz


Cvp: Seçilen Kayda Göre Form Açma - fascioğlu - 08/06/2018

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ı


Cvp: Seçilen Kayda Göre Form Açma - ozanakkaya - 08/06/2018

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