[haitham Muhammed]

نريد فتح نموذج ClientData  على عميل محدد من خلال نموذج AddClient أو من خلال نموذج اخر SearchClient 
فى نموذج AddClient مربع نصtxt_clientid يعرض كود العميل وبه زرار cmd_clientdata لعرض بيانات العميل >> وفى حدث cmd_clientdata_click 
                                          ClientData.Lbl_clientid=me.txt_clientid
                                          ClientData.show
                                          unload me
فى نموذج SearchClient داتاجريد Datagrid1يعرض وتحدد العميل  وبه زرار cmd_clientdata لعرض بيانات العميل >> وفى حدث cmd_clientdata_click 
                                           ClientData.Lbl_clientid=Me.Datagrid1.Columns(0).Text
                                           ClientData.show
                                           unload me
'-----بيتم نقل كود العميل الى Lbl_clientid فى نموذج ClientData
فى نموذج ClientData فى حدث Form_Onload      -----فتح النموذج بناء على استعلامين 
    If Lbl_clientid<>vbnullstring
                     <connection> جملة الاتصال
                    ""' &sqls="........where clientcode='" & Lbl_clientid  الاستعلام الاول 
                    rs.open sqls
     else 
                    fro=format(Date(),"dd-MMM-yyyy")
                   <connection> جملة الاتصال
                    ""' &sqls="........where datein=# & fro  الاستعلام الثانى 
                    rs.open sqls
  end if
نملأ Listview1 لعرض العميل المحدد (بناء على الاستعلامالأول) أو جميع العملاء (لليوم الحالى) بناء على الاستعلام الثانى
               Do untill rs.eof=true
               set lst=Listview1.listitems..............
               rs.movenext
               loop
??????? عند عرض نموذج بيانات العميل يذهب للاستعلام الثانى ويعرض عملاء اليوم الحالى فى الليست فيو ...بالرغم من  ظهور كود العميل فى Lbl_clientid لكن عند عمل رسالة بكود العميل عند تحميل النموذج                 تظهر فارغة وكدا الاستعلام الاول لا يعمل.
           كيف يمكن عرض بيانات العميل المحدد من النموذجين AddClient&SearchClient ...

[السيد الغالي]

لو تفضلت ووضعت مشروعك كمرفق ليتسنى للاعضاء التعديل عليه ومساعدتك