Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
07/06/2018 17:48
Konu Sahibi
fascioğlu
Yorumlar
17
Okunma
681
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

fascioğlu

Aktif Üye*
Fa.... Aş....
 63
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
Çözüldü 
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.



Kullanici Avatari

simendifer

Onursal Üye
Ek.... ÇE....
 61
 92
 945
 30/10/2008
333
 Çankırı
 emekli
 Ofis 2007
 Bugün,19:06
F_MUSTERIKAYIT formunda  Cari Ekle diye bir buton ekle,bu butona tıkladığımda MUSTERİCARİ formunu açar


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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



Kullanici Avatari

fascioğlu

Aktif Üye*
Fa.... Aş....
 63
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
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.



Kullanici Avatari

simendifer

Onursal Üye
Ek.... ÇE....
 61
 92
 945
 30/10/2008
333
 Çankırı
 emekli
 Ofis 2007
 Bugün,19:06
prg nizi eklerseniz yardımcı oluruz



Kullanici Avatari

fascioğlu

Aktif Üye*
Fa.... Aş....
 63
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
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ı



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. Oğuz Türkyılmaz 9 182 14/01/2019, 15:55
Son Yorum: Oğuz Türkyılmaz
Çözüldü Butona Tıklandığında, Butona Atanan Değerlerin Sürekli Form'da Kayda Alınması. Oğuz Türkyılmaz 8 248 06/01/2019, 01:22
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sürekli Formdaki Kritere Göre Liste Kutusuna Veri Aktarımı mmert06 7 292 31/12/2018, 18:35
Son Yorum: mmert06
Çözüldü Sürekli Formda Açılır Kutudaki Değere Göre Farklı Bir Alanda Verilerin Listelenmesi mmert06 6 351 24/12/2018, 18:56
Son Yorum: mmert06
Çözüldü Kritere Göre Denetim Özelliği Belirleme notrino 3 150 18/12/2018, 15:36
Son Yorum: notrino

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.