السلااااااااااااااااام عليكم ورحمة الله وبركاته وبعد
لدي مشروع لمتابعة الأسهم ولدي سؤالن فقط لاغير
س1: لدي قاعدة بيانات عامة تحوي جميع الشركات لمتابعة ىخر أسهمها
المشكلة لدي قسم لمتابعة الأسهم بين تاريخين
لكن المشكلة أنه يعرض لي جميع الشركات بين هذين التاريخين
SQL = "Select * From [compa] Where [date] BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# ORDER BY [date]"""
لكن المشكلة أنه يعرض لي جميع الشركات بين هذين التاريخين
اامطلوب أن أدمج الكودالسابق مع هذا الكود
كود البحث عن شركة
Data1.Recordset.Filter = "Select * From [compa] Where [conam] Like '" & Text4 & "'"
وفي برنامج الأخ العماني برنامج مصنع الطابوق
مثال مشابه لهاذا حيث يبحث عن اسم العامل وراتبه بين تاريخين
لكني للأسف لم أفهم ذلك الكود
س2:
لدي في برنامجي أريد أن أجلب ملفات إلى نفس مكان البرنامج
فستخدمت الكود التالي
Dim Path As String Path = App.Path & "\Egaz" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub FileCopy CommonDialog1.FileName, Path File1.FileName = App.Path & "\Egaz"
حيث يقوم هذا الكود بجلب الملف المحدد بواسطة CommonDialog1 إلى مسار البرنامج
File1.FileName = App.Path & "\Egaz"
لكن البرنامج يعرض لي مشكلة في السطر التالي
FileCopy
فما هو الحل
أرجو السرعة في الرد
شاكرين لكم حسن تعاونكم
