Skip to main content

AccessTr.neT


Seçmeli Kayıt Sorunu

life_exciting
life_exciting
11
3894

Seçmeli Kayıt Sorunu

Çözüldü #1
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
Cevapla
Çözüldü #2
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
oraya da bir bakalım ama burda bir mantık hatası var. mutlaka düzeltip deneyin derim. dediğiniz hata ile bağlantılı.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #5
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #6
Evet Hocam Siz Söyleyince Farkettim.Şuan Düzeldi.Teşekkür Ederim.En Azından Güveninizi Boşa Çıkarmadım Umarım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task