Merhabalar Hocam
Müşteri Ara Ekranın da Yeni Kayıt Eklerken Seçenek Koydum ve Müşteri Ara Ekranındaki Filtrelemede Kullandığımız Kodları Yeni Kayıt İçinde Uyguladım.Ama Bi Noktayı Atlıyorum Galiba Çünkü Kaydet Dediğimde Yine Gönderen Bilgilerini Dolduruyor.Kontrol Edebilirseniz Sevinirim.İyi Çalışmalar
Aşağıdaki kodda End If leri düzelttim birde bu şekilde deneyin
Private Sub liste_DblClick(Cancel As Integer)
IDnumarasi = liste.Column(0)
If musteri_turu.Value = 1 Then
Forms.ffatura.gonderenadi.Value = Dlookup ("müsteriadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderensoyadi.Value = Dlookup ("müsterisoyadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderentelefon.Value = Dlookup ("müsteritelefonno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderenvergidairesi.Value = Dlookup ("müsterivergidairesi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderenvergino.Value = Dlookup ("müsterivergino", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderenadres.Value = Dlookup ("müsteriadresi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.gonderentcno.Value = Dlookup ("müsteritcno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
DoCmd.Close acForm, "FMüsteriAra"
End If
If musteri_turu.Value = 2 Then
Forms.ffatura.aliciadi.Value = Dlookup ("müsteriadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.alicisoyadi.Value = Dlookup ("müsterisoyadi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.alicitelefon.Value = Dlookup ("müsteritelefonno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.alicivergidairesi.Value = Dlookup ("müsterivergidairesi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.alicivergino.Value = Dlookup ("müsterivergino", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.aliciadres.Value = Dlookup ("müsteriadresi", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
Forms.ffatura.alicitcno.Value = Dlookup ("müsteritcno", "müsteri_bilgileri", "müsteriID=" & IDnumarasi)
DoCmd.Close acForm, "FMüsteriAra"
End If
MsgBox "Lütfen bilgilerin kaydedileceği müşteri türünü seçiniz", vbExclamation + vbOKOnly, "Eksik Bilgi"
DoCmd.Close acForm, "FMüsteriAra"
End Sub
Sn.Yandemir Yardımınız İçin Teşekkür Ederim Ama Sorun Bu Kod Blogununun Kullanıldığı Dizilerde Değil.Sorun Yeni Kayıt Eklemede.İyi Çalışmalar.
oraya da bir bakalım ama burda bir mantık hatası var. mutlaka düzeltip deneyin derim. dediğiniz hata ile bağlantılı.
If bloğunda kullandığın musteri_turu soldaki
Kaydedilecek Müşteri Türü Bilgisi çerçevesinin adı. Senin eklediğin çerçevenin adı Çerçeve79 ( bknz. Ölümcül Hatalar ) olarak verilmiş.
If Çerçeve79.Va...
şeklinde yazılması gerekiyordu.
Evet Hocam Siz Söyleyince Farkettim.Şuan Düzeldi.Teşekkür Ederim.En Azından Güveninizi Boşa Çıkarmadım Umarım.