حارث

تحذير : جربت الكود في جهاز آخر فيه أكسس 2000 فوجدته يسبب تعليق ، مع أنه لم يسبب ذلك في جهازي ، لكن للتنبيه وقد حاولت التعديل في المشاركة السابقة لكن لم أتمكن لمضي بعض الوقت عليها .

المعذرة : يختلف مكان وضع الكود حسب رغبة المبرمج . ويمكنك أن تجعله في حدث بعد تحديث حقل في النموذج الفرعي ، أو عند نقر زر أمر ، أو غيره .

هذا كودتوصلت إليه (على قد الحال) ، لكن لعله يحث الإخوة على النظر فيه وتصحيحه أو توفير أفضل منه . لتجريب الكود ضعه في حدث عند نقر زر أمر : On Error Resume Next Dim MyName1, MyName2, MyPath1, MyPath2 MyPath1 = "A:" Kill (MyPath1 & "*") MyName1 = Dir(MyPath1, vbD…

لحذف كافة الملفات من القرص المرن : Kill ("A:*") لكنه لا يحذف المجلدات ، كما يعطي خطأ في حال عدم وجود ملفات في القرص المرن . ويمكن لتجاوز الخطأ أن نضع قبله العبارة : on error resume next لحذف مجلد فارغ من القرص المرن : RmDir "A:" & "اسم المجلد" & "" لكنه لا يحذ…

استخدم الكود : Me.Parent!TxtName.SetFocus استبدل TxtName باسم مربع النص الذي تريد نقل التركيز إليه العبارة Me تشير إلى النموذج الذي أنت فيه ، والعبارة Parent تعني النموذج الذي يحتوي عليه (النموذج الأب).

هنا فكرة تعتمد على حذف الجداول لكن تحتاج لتطوير : http://www.pcpages.com/harith77/TblDelete.zip مدة استخدام البرنامج ثلاثة أيام ، افتح البرنامج ثم قدم التاريخ ثلاثة أيام أو أكثر أو أخره يوما أو أكثر واختبر النتائج . يمكن التحايل على الكود بفتح البرنامج باستخدا…

مشكور أخي سعودي . نماذج جميلة فعلا . وجزاك الله خير على ما تقدمه لنا من فوائد جمة .

إذا كنت تقصد أن يظهر التقرير بالشكل التالي : السطر الأول : رقم الموظف1 ثم اسمه ، رقم الموظف 2 ثم اسمه ، رقم الموظف 3 ثم اسمه ، السطر الثاني : رقم الموظف 4 ثم اسمه ، رقم الموظف 5 ثم اسمه ، رقم الموظف 6 ثم اسمه . فاذهب إلى تصميم التقرير ، إعداد الصفحة ، الأعمدة …

أخي مصلح : هل تستطيع أن تنزل هذا الملف : http://mypage.ayna.com/harith66/CorHij.zip وهو ملف قديم على أين ، لم أقم بحذفه ، ولا أستطيع الوصول إليه . بشرني إذا تمكنت من تنزيله ، فقد يئست من كل الأمثلة القديمة في صفحاتي في أين وبعضها يهمني خصوصا ما كان منها من عمل…

سبق أن استخدمت اذونات المستخدمين والمجموعات على أكسس 2000 وكما قال أستاذنا خضر تم حفظ ملف الأذونات في نفس المجلد ، ولم يكن يطالبني الأكسس بتسجيل الدخول إلا في حالة فتح قاعدة البيانات التي لها أذونات، دون قواعد البيانات الأخرى

جزاك الله عنا كل خير

هل جربت أن تضع في نهاية التقرير مربع نص غير منضم وتجعل مصدر السجل فيه : Dsum("[Field]";"[Table]";"[Kind]='آجل'") ومثله للنقدي .

أخي ابن مسقط للأسف لدينا مشكلة مع صفحات أين . بالبحث في الملفات لدي وجدت هذا الملف أظنه هو المقصود: http://www.pcpages.com/harith77/agehdy.zip (انقر الزر الأيمن واختر حفظ الهدف باسم)

أعتذر عن فتح موضوع جديد لكن حيث نقل الموضوع السابق للإرشيف اضطررت لذلك ، وأرجو من مشرفنا إضافة هذه المشاركة للموضوع في الإرشيف : نتيجة لعرض تقويم أم القرى مع التقويم الميلادي : http://www.pcpages.com/harith77/UmCal33.zip مثال على كيفية استخدام النتيجة (وهناك ط…

مشكور أخي محمد ، وجزاك الله خير على هذه الفائدة وعلى التصحيح . وخطر ببالي فكرة ولعلها ما قصده أبو هادي . أن أعلن عن ثلاثة متغيرات : MyYear , MyMonth , MyDay ثم أكتبها داخل التعبير بالشكل التالي : Date1 = DLookup("[Field]", "[Table]", "[Date2] >= Dateserial(" &…

أخي أبو هادي : في دالة Greg2Um ما يلي : Hijri = Greg2Hijri(DateSerial(yy, mm, dd)) yy = Val(Right(Hijri, 4)) بينما الدالة Greg2Hijri تحتوي على : HijriFormat = "Short Date" وهذا سبب لي خطأ في أحد الأجهزة التي كان تنسيق "Short Date" فيها بشكل dd/MM/yy لذا فقد اس…

جزاك الله كل خير .

احتجت لإنشاء دالة في وحدة نمطية عامة لحساب التاريخ بناء على اختيارات ومعلومات مسجلة في جدول ، فهل الأفضل أن أستخدم الدالة Dlookup أو Dao. خاصة من حيث السرعة .

ويشبه ذلك أيضا أن تغير بالكود مصدر البيانات في النموذج . http://mypage.ayna.com/harith44/Queries22.mdb

وهذا نفس المثال مع بعض الإضافات http://mypage.ayna.com/harith44/Report222.mdb