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.