sandanet

ماشاء الله عليكم .. اتابعكم بصمت 

هنالك مشكلة اخرى ايضا قد تمر عليكم مستقبلاً وهي مشكلة التواريخ واعتماد بعض من برامجنا على التواريخ في اجراء العمليات والحسابات وما الى ذلك 

طيب ماهي مشكلة التاريخ؟

لو كان جهازك يستخدم التاريخ الانجليزي بالارقام ( 22/3/2016) بينما جهاز المستخدم الاخر يستخدم تاريخ انجليزي لكن بمسميات الاشهر (March  او April) وجهاز اخر يستخدم التاريخ بمسميات عربية ...الخ سنجد ان الشروط او الاجراءات المترتبة على التاريخ لا تستجيب .. ساحاول ارفاق مثال على ذلك لاحقاً في حال تم التأكد من حدوث هذه المشكلة مع احد ما غيري ام انها عندي فقط

بارك الله فيك استاذ رمهان فعلاً حلك بسيط وفعال في نفس الوقت ... وفقك الله 

يا اخي سعيد بارك الله فيك واسعد الله جميع ايامك ..نجحت العملية

وماهي الطريقة لفعل ذلك؟

السلام عليكم ورحمة الله وبركاته 
أما بعد 
فرضاً انه لدي حقل ترقيم تلقائي بهذا التنسيق 00001 و 00002 و .. 00011 الخ
والحق الثاني السنة مثلاً 1982 و 1985 و 1973 و ... الخ

ومن خلال جعل مصدر مربع نص غير منتضم في النموذج هذا الأمر 
=[Year] & [AutoNo] 
تمت عملية الدمج ... لكن عملية الدمج اصبحت كالتالي : 19821 اي ان الاصفار ماقبل الرقم في الترقيم التلقائي تم تجاهلها مع انها موجودة في الجدول!

هل من حل لهذه المشكلة؟ 

New Microsoft Office Access Application.zip

بارك الله فيك أخي جعفر ... جاري التجربة

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

ندي احمد: اعتقد انه بامكانك فتح القاعدة مرة اخرى لكن يلزمك ازالة docmd.quit ووضع الامر التالي docmd.close ومن ثم docmd.openForm "Form1" 

اخي كرار الموضوع ليس له علاقة بالترقيم التلقائي فهناك طرق عديدة في هذا المنتدى تعمل على اعادة ضبط الترقيم التلقائي

وشكراً

السلام عليكم ورحمة الله تعالى وبركاته

أما بعد.. 

أبحث عن كود برمجي يقوم بالتحقق من وجود مشغل الفلاشات flash player اذا كان مثبت على الجهاز ام لا .. اذا كان مثبت على الجهاز فانه يسمح بفتح البرنامج واذا لم يكن مثبتاً فانه يستدعي ملف ال setup.exe طبعا سيكون مرفق مع البرنامج 

هل بالامكان عمل كود مثل ذلك؟ 

تحياتي

وجدت طريقة اسهل .. اولاً الغي جميع ماسبق من خطوات واستخدمي فقط هذا الكود فيحدث "عند النقر" لزر ضغط واصلاح القاعدة واخبرينا بالنتيجة

If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _
    "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _
    vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _
    "تنبيه :  رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then

Application.SetOption "Auto compact", True

End If
DoCmd.Quit

ضع الكود التالي في وحدة نمطية جديدة 

Public Function CompactRepairDatabase()
On Error GoTo Err
'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس إنجليزي
CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction
Err:
If Err.Number = 5 Then
'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس عربي
CommandBars("Menu Bar").Controls("أ&دوات").Controls("أدوات م&ساعدة لقواعد البيانات").Controls("&ضغط قاعدة بيانات وإصلاحها...").accDoDefaultAction
End If

End Function

ومن ثم توجه الى النموذج الذي يحتوي على زر ضغط واصلاح القاعدة وضع الكود التالي في حدث "عند النقر" لزر ضغط واصلاح القاعدة

If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _
    "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _
    vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _
    "تنبيه :  رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then

Call CompactRepairDatabase

End If
DoCmd.Quit

السلام عليكم ورحمة الله وبركاته

تحية طيبة لكل الأخوة الأفاضل الكرام أما بعد ..

في المثال المرفق تقرير يظهر اسماء الموظفين وحضورهم وغياباتهم على حسب الشهر الذي يتم ادخاله من النموذج (لعرض بيانات التقرير ادخل شهر 6 مثلا).. محتاج استعلام يجمع الاستعلامين Xattends3 و Xattends4  حيث يحسب عدد أيام الحضور والغياب والإجازات لكل موظف ومن ثم وضعها في التقرير..أرجو من أهل الخبرة مساعدتي في ذلك وجزاكم الله كل خير

example.rar

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

مشكورين يا أخوان وهذا هو رابط الملف المرفق

http://www.officena.net/ib/index.php?act=S...st=0#entry49831

وعليكم السلام ورحمة الله وبركاته

أرفق مثال على ما تريد

كي تتضح الصورة

<{POST_SNAPBACK}>

أخي الكريم فتى الوادي لقد جربت المرفق لكن للأسف ليس هو المقصود في طلبي حيث تم قبول رقم حساب بنفس المصرف فمن غير الممكن تكرار رقم الحساب لشخص ما في نفس المصرف صح والا لا. عموما شكرا لك على مجهودك المبارك بإذن الله .

ما شاء الله عليكم يا أخواني والله إنكم قد حللتم مشكلتي بارك الله فيكم فعلا قد أثبتم جدارتكم في مساعدة الآخرين وسرعة تفاعلكم مع الإستفسارات والمشاكل التي تواجه الآخرين ... بارك الله فيكم أجمعين وجعل الله أعمالكم هذه في ميزان حسناتكم آمين يارب .