Seçmeli Kayıt Sorunu - Baskı Önizleme

Seçmeli Kayıt Sorunu - 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çmeli Kayıt Sorunu (/konu-secmeli-kayit-sorunu.html)

Sayfalar: 1 2

Seçmeli Kayıt Sorunu - life_exciting - 18/01/2011

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

Cvp: Seçmeli Kayıt Sorunu - Yandemir - 18/01/2011

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

Cvp: Seçmeli Kayıt Sorunu - life_exciting - 18/01/2011

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.

Cvp: Seçmeli Kayıt Sorunu - Yandemir - 18/01/2011

oraya da bir bakalım ama burda bir mantık hatası var. mutlaka düzeltip deneyin derim. dediğiniz hata ile bağlantılı.

Cvp: Seçmeli Kayıt Sorunu - alpeki99 - 18/01/2011

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.

Cvp: Seçmeli Kayıt Sorunu - life_exciting - 18/01/2011

Evet Hocam Siz Söyleyince Farkettim.Şuan Düzeldi.Teşekkür Ederim.En Azından Güveninizi Boşa Çıkarmadım Umarım.