فتح نموذج بأكثر من جملة استعلام - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : فتح نموذج بأكثر من جملة استعلام (/showthread.php?tid=50319)

فتح نموذج بأكثر من جملة استعلام - haitham Muhammed - 19-09-24 نريد فتح نموذج 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 ... RE: فتح نموذج بأكثر من جملة استعلام - السيد الغالي - 13-11-24 لو تفضلت ووضعت مشروعك كمرفق ليتسنى للاعضاء التعديل عليه ومساعدتك