Form da RecordSource durumu hk.

[tamer42]

Merhabalar,
Ekli dosya da; FormSorgu adlı Form Değerleri sorgudan (Sorgu1) almaktadır.

(FormSorgu). RecordSource >>> Sorgu1

Form açıldığında değerler ilgili alanlarda görünür olarak geliyor.

Benim istediğim form ilk açıldığında alanlar (TextBox lar) boş olarak gelsin; Yukle adlı butona tıkladığımda form üzerinde bilgiler görüntülensin.

Temizle adlı butona tıkladığımda form üzerinde bilgiler görüntülenmesin. yani form temizlensin.

Böyle bir ayarlama yapılabilir mi?

İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Form_Load()
Me.RecordSource = ""
Me.PersNo.ControlSource = ""
Me.PersAdı.ControlSource = ""
Me.ToplaAvans_Tutarı.ControlSource = ""
End Sub
Private Sub Temizle_Click()
Me.RecordSource = ""
Me.PersNo.ControlSource = ""
Me.PersAdı.ControlSource = ""
Me.ToplaAvans_Tutarı.ControlSource = ""
Me.Requery
End Sub
Private Sub Yukle_Click()
Me.RecordSource = "Sorgu1"
Me.PersNo.ControlSource = "PersNo"
Me.PersAdı.ControlSource = "PersAdı"
Me.ToplaAvans_Tutarı.ControlSource = "ToplaAvans Tutarı"
Me.Requery
End Sub

İyi çalışmalar

 

[tamer42]

Sn Modalı Teşekkürler;

Verdiğiniz kodlar gayet güzel , işimi gördü..

Yalnız bu kodları Altform da kullanamdım.

Yani FormSorgu adlı Formu Avans adlı Form' a altform olarak ekledim.

bu kontrol işemini Üstformdan (Avans) yapmak istediğimizde nasıl bir düzenleme yapmak gerekir.

AltFormTemizle >>> Alt Form da alanları boşaltacak
AltFormDoldur >>> Alt Form da alanları yükleyecek.

İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

O zaman neden baştan tam olarak istediğinizi sormuyorsunuz?

Şimdi bir adım daha atılacak şöyle olsa nasıl olur diyeceksiniz.

 

[tamer42]

Sn Modalı haklısınız,

Yalnız bunu daha sonra düşündüm, aynı şekilde yazdım fakat olmadı.

onun için sordum, değilse baştan o şekilde sorardım.

Yine de kusura bakmayın.
Kolay gelsin.

 

[modalı]

Kodlar aşağıda:

Private Sub Command10_Click()
Me.AltFormSorgu.Form.RecordSource = "Sorgu1"
Me.AltFormSorgu.Form.PersNo.ControlSource = "PersNo"
Me.AltFormSorgu.Form.PersAdı.ControlSource = "PersAdı"
Me.AltFormSorgu.Form.ToplaAvans_Tutarı.ControlSource = "ToplaAvans Tutarı"
Me.AltFormSorgu.Form.Requery
End Sub
Private Sub Command11_Click()
Me.AltFormSorgu.Form.RecordSource = ""
Me.AltFormSorgu.Form.PersNo.ControlSource = ""
Me.AltFormSorgu.Form.PersAdı.ControlSource = ""
Me.AltFormSorgu.Form.ToplaAvans_Tutarı.ControlSource = ""
Me.AltFormSorgu.Form.Requery
End Sub
Private Sub Form_Load()
Me.AltFormSorgu.Form.RecordSource = ""
Me.AltFormSorgu.Form.PersNo.ControlSource = ""
Me.AltFormSorgu.Form.PersAdı.ControlSource = ""
Me.AltFormSorgu.Form.ToplaAvans_Tutarı.ControlSource = ""
End Sub

 

[tamer42]

Teşekkürler.......