Açılan kutu değerleri

[selokumus]

herkese kolay gelsin...
benim sorum açılan kutuda bayii adını seçtiğimde adresi, vergi dairesi, vergi no otomatik olarak olarak geliyor. fakat form calıştığında açılan kutuda daha birşey şeçmemem rağmen burada değerler gözüküyor. açılan kutudan seçim yapana kadar ben bu alanların boş gözükmesini istiyorum. F4 tuşuna bastıktan
sonra gelen değerlerde bu alanların başkaları tarafından değiştirilmesini engelledim kullanıcılan değiştiremiyorlar. sadece boş gelmelerini sağlamak istiyorum. yardımlarınız için teşşükkür ederim.

 

[miss_pert]

merhaba

örnek bir dosya göndersen daha iyi olur. Sanırım şöle yapabilirsin formun eventlerinden load a gelip o açılır listene boşluk atayabilirsin.

Private Sub Form_Load()
Combo0.Value = ""
End Sub

 

[selokumus]

düzenlemek istediğim dosya ektedir. bayi seçiminde açılan kuru ve buna bağlı olan bilgilerin boş gelmesini istiyorum. alçılan kutu boş geliyor fakat diğerlerinde sorun var. ayrıca göndermiş olduğum dosya içinde kopya irsaliye kesim diye bir dosya daha bulunmakta. bu dosya da da deneme için irsaliye kesim formundan irsaliye rapor dosyasına bilgi göndermek ve yazdırmak istiyorum fakat burada da forma doğru bilgi rapora yanlış bilgi gelmektedir. nedenini bulamadım, sorunlarıma yardımcı olan olursa lütfen çözümlerini de yazarlar ise bu tip durumlarda sizleri gereksiz yere yormayalım. şimdiden herkese teşekkür ediyorum.

 

[gulsum1]

formun koduna bunu yapıştır bu form açıldığında formun ve formdaki alanların verileri alacağı yeri sıfırlıyor sonra açılan kutudan birini seçtiğinde verileri alacağı yerler tekrar belirleniyor

Private Sub Açılan_Kutu24_AfterUpdate()
' Denetime uyan kaydı bul.
Form_Bayiler.RecordSource = "Bayiler"
BAYİİ_ADRESİ.ControlSource = "BAYİİ ADRESİ"
BAYİİ_VERGİ_DAİRESİ.ControlSource = "BAYİİ VERGİ DAİRESİ"
VERGİ_NO.ControlSource = "VERGİ NO "
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[BAYİİ NO] = " & Str(Nz(Me![Açılan Kutu24], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


Private Sub Form_Open(Cancel As Integer)
Form_Bayiler.RecordSource = ""
BAYİİ_ADRESİ.ControlSource = ""
BAYİİ_VERGİ_DAİRESİ.ControlSource = ""
VERGİ_NO.ControlSource = ""
End Sub

 

[selokumus]

supersiniz

gulsum1 supersiniz. çok teşekkür ediyorum. aynı yoldan giderek diğer formlardakilerini de düzelteceğim ....

 

[selokumus]

açılan kutu

sayın gulsun1 dediğiniz gibi yaptım yazılar açılan kutudan seçtikten sonra geliyor... fakat şimdiki sorun açılan kutudan gelen bilgiyi formda doğru gösteriyor fakat rapora gönderdiğimde bayiler tablosunda ki 1. sütünundaki değer geliyor aslında 3. sütündaki değer gelmeli.. ama bu sorun sadece açılan kutuda, açılan kutuya bağlı gelen değerler düzgün geliyoruz... bu konudada yardımlarınız bekliyorum.. bu konu forumda ayrıca http://www.excel.web.tr/showthread.php?t=34258&highlight=a%E7%FDlan+kutu konu başlığında da sordum orada ayrıca örnek dosya bulunmakta... ilginize şimdiden teşekkür ediyorum...