AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Seçmeli Kayıt Sorunu

1 2
18/01/2011, 22:43

life_exciting

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
18/01/2011, 23:09

Yandemir

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
18/01/2011, 23:14

life_exciting

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.
18/01/2011, 23:18

Yandemir

oraya da bir bakalım ama burda bir mantık hatası var. mutlaka düzeltip deneyin derim. dediğiniz hata ile bağlantılı.
18/01/2011, 23:19

alpeki99

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.
18/01/2011, 23:31

life_exciting

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