Görebildiğim 2 sorun.

1-) Denetimlerin çıkıldığında olaylarında 

On Error Resume Next

 Dim trz As Control

    For Each trz In Me.Form.Controls

    Select Case trz.ControlType

        Case acTextBox 'Bütün metin kutularını boşalt

            trz.Value = ""

          Case acComboBox 'bütün açılan kutuları boşalt

            trz.Value = ""

    End Select

Next

şeklinde kod var.

siz bul butonunu tıkladığınızda denetimden çıkıldığı için girilen veriler siliniyor. silindiği içinde sorgu ölçüt bulamıyor.


2-)

siparislistesi isimli form açıldığında olayında

Me.sipliste.RowSource = "SELECT sip_id,Sipno,Firmaadi,Adi,Soyadi,Satici,Siparis_Tarihi,Giris_Tarihi,Durum FROM Tbl_Siparisler WHERE ((Tbl_Siparisler.Sipno) Like '*' & [Forms]![Frm_Siparisbul]![Sipno_ara_txt] & '*') AND ((Tbl_Siparisler.Firmaadi) Like '*' & [Forms]![Frm_Siparisbul]![Firmaadi_ara_txt] & '*') AND ((Tbl_Siparisler.Adi) Like '*' & [Forms]![Frm_Siparisbul]![Adi_ara_txt] & '*') AND ((Tbl_Siparisler.Soyadi) Like '*' & [Forms]![Frm_Siparisbul]![Soyadi_ara_txt] & '*') AND ((Tbl_Siparisler.Satici) Like '*' & [Forms]![Frm_Siparisbul]![Satici_ara_txt] & '*') AND ((Tbl_Siparisler.Siparis_Tarihi) Like '*' & [Forms]![Frm_Siparisbul]![Siparis_Tarihi_ara_txt] & '*') AND ((Tbl_Siparisler.Giris_Tarihi) Like '*' & [Forms]![Frm_Siparisbul]![Giris_Tarihi_ara_txt] & '*')AND ((Tbl_Siparisler.Durum) Like '*' & [Forms]![Frm_Siparisbul]![Durum_ara_txt] & '*') ;"

Me.sipliste.RowSource = "Tbl_Siparisler"

kodu var. Bu kod ile liste kutusunun satırkaynağı önce sorgu oluyor, yine rowsource olduğu için satır kaynağı tablo oluyor. Tabloda ölçüt yok.