نجوم المشاركات

ثم بركات استاذنا المناضل محب العلم عبدالفتاح كيرة لفت انتباهي ان المشاركات زادت على الستين ، وصاحب الموضوع اكتفى بطرح السؤال ثم اختفى

ابا جودي اشششششششششكرك كل الشكر على المثال الذكي وبكود اخر يأدي نفس الغرض

اهلا بك اخي @Ahmed.IQ اتفضل اليك هذا If DCount("*", "MsysObjects", "[Name]='table1'") > 0 Then MsgBox "الجدول موجود" Else MsgBox "الجدول غير موجود" End If غير table1 باسم جدولك تقبل تحياتي

سأبدأ فى هذا الموضوع بتجميع أهم المواقع التي تقدم اختبارات ودورات و مواد مساعدة للحصول علي شهادة مدير المخاطر المعتمد من معهد ادارة المشاريع PMI-RMP Risk Management Professional المواقع ليست بكثرة مواقع شهادة ال PMP لأن هذه الشهادة أكثر تخصصا ، و الحاصلين عليها اقل بكثير عددا من الحاصلين على شهادة مدير المشاريع المحترف ، و ذلك أيضا لأنها توقيتاً أحدث و النسبة فى نهاية نوفبر 2013 هي اقل من 4 الى 1000 RMP = 1732 PMP = 500082 سأبدأ فى تجميع المواقع و تحديث الموضوع تباعا أولا مواقع مدفوعة ============= http://www.pmstar.org/index.php/examsimulators.html http://www.crosswindpm.coml http://www.ucertify.com/exams/PMI/PMI-RMP.html http://www.testking.com/exam-pmi-rmp.htm http://www.pmesimulatorexams.info/defaultunsecure.php?page=aboutrmpesim https://www.offpeaktraining.com/courses/risk-management-professional-pmi-rmp/ http://www.emunlimited.biz/pmp-exam-prep-tools.html http://thepm-instructors.com/project_management_training_online.html http://www.passguide.com/PMI-RMP.html http://www.selftestengine.com/PMI-RMP.html http://www.lead2pass.com/pmi-rmp.html http://www.passionatepm.com/pmp-exam-prep-information-and-resources جديد http://www.examarea.com/PMI-certification.html ثانيا مواقع مجانية ============== http://www.free-online-exams.com/Pages/Exams/DumpsQA.aspx?d=pmi&c=PMI-RMP_V2&q=143

الساده / أعضاء المنتدى المحترمين سلام الله عليكم جميعا ورحمته وبركاته قمت بعمل تجميع لعديد من البرامج الجاهزة وقد قمت بتجميعها من خلال البحث فى المنتدى فسامحونى إن كنت نسيت نموذج لأحد الأساتذه الأعضاء نتمنى من الله عز وجل أن ينتفع بها الجميع تلك البرامج و النماذج القيمه هى مجهود للساده الأعضاء بارك الله فيهم وزادهم الله من فضله وجزاهم رب العالمين عنا خير الجزاء وبرامج ونماذج قاموا بتنفيذها بناء على طلبات من الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير أخيكم فى الله محمود الشريف وإليكم النماذج برنامج متابعه حركة السيارات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49733#entry303008 برنامج مصاريف سيارات وأرصده للأستاذ / محمد مصطفى أبو حمزة http://www.officena.net/ib/index.php?showtopic=46058#entry273859 برنامج مراقبة خطابات الضمان للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38044#entry209393 برنامج نظام حركة المستودعات ومتابعة المخزون للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38870#entry213211 برنامج للعيادات الطبية للأستاذ / مدحت http://www.officena.net/ib/index.php?showtopic=32830#entry169369 برنامج السكرتير الخاص للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 برنامج للأقساط _ مجهود مشترك بين الأستاذ / حسام والأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279457 تعديل للبرنامج السابق للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279481 تعديل للبرنامج السابق للاستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279786 برنامج أقساط الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry148900 برنامج أقساط الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149116 برنامج أقساط الإصدار الثالث للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149553 برنامج أقساط الإصدار الرابع للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry150361 برنامج متابعة الوثائق للأستاذ / الجزيرة http://www.officena.net/ib/index.php?showtopic=31712#entry161472 برنامج لقاعده بيانات عمل مشترك بين الأستاذ / قارى _ والأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=44485#entry259617 نموذج أقساط للأستاذ /سايق الخير http://www.officena.net/ib/index.php?showtopic=38538#entry210055 قام بالتعديل عليه الأستاذ / عبد الله المجرب http://www.officena.net/ib/index.php?showtopic=38538#entry210056 قام بالتعديل عليه الأستاذ / بن عليه حاجى http://www.officena.net/ib/index.php?showtopic=38538#entry210084 برنامج المخزون الإصدار الأول للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=41247#entry233101 برنامج المخزون الإصدار الثانى للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=43332#entry250295 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2007 : 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج مرتبات للقطاع الخاص للأستاذ / سعيد بيرم http://www.officena.net/ib/index.php?showtopic=41465#entry240172 برنامج الصادر والوارد _ الإتصالات الإدارية للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46813#entry281283 برنامج الإتصالات الإدارية الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199078 برنامج الإتصالات الإدارية الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199224 برنامج الإتصالات الإدارية الإصدار الأخير للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199421 برنامج للتعامل مع طلبات الشراء والموردين للأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=30844#entry155312 برنامج حجز الغرف الفندقية عمل مشترك بين الأستاذ / هانى بدر والأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=39568&page=2#entry224762 برنامج حسابات المطاعم للأستاذ هانى بدر http://www.officena.net/ib/index.php?showtopic=32220&page=2#entry189567 برنامج دليل الهاتف الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=27222#entry131055 برنامج فواتير منوع للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26948#entry129215 برنامج حافظة شخصية دليل الهواتف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26211#entry124665 برنامج التقويم ( التاريخ ) للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26155#entry124252 فاتورة للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24322#entry113573 برنامج الفواتير كامل للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج سندات القبض والصرف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج خبور المحاسبى برنامج كامل للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=17944#entry80465 برنامج خبور المحاسبى الإصدار الثالث للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16879#entry74858 برنامج خبور الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16256#entry71834 برنامج خبور المحاسبى الإصدار الأول للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=15933#entry69998 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14978#entry65693 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14880#entry65142 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14619#entry63693 برنامج شراكة العقارات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=49900#entry304640 برنامج الشيكات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50143#entry306916 برنامج كشوف حسابات ( منه له ) للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50819#entry312828 معظم برامج شئون العاملين وما يتعلق بها لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51271&hl= نسخة تجريبية لنموذج شيك لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51306#entry317305 برنامج لمتابعة أسعار الصرف ( العملات ) لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51109#entry315286 برنامج متابعة حركة السيارات قابل للتعديل وبه امكانية متابعة الوثائق لـ / محمود الشريف http://www.officena.net/ib/index.php?showtopic=51386#entry318102 برامج ونماذج التنبيه لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51261&hl= برنامج دليل الهاتف المتطور للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=33881#entry176806 برنامج دليل الهاتف العصرى للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=34679&page=2#entry182322 برنامج دليل الهاتف على طريقة سامسونج للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46463#entry277636 برنامج خاص لمحاسبة وجرد وصيانه الهواتف للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48351#entry292775 برنامج تسيير الأشخاص للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48251#entry292035 برنامج تسيير شركات النقل للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=47818#entry289335 برنامج تسيير شئون الموظفين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46153#entry274883 برنامج تتبع للمضيفين والآليات للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45902#entry272143 برنامج الموردين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45883#entry271941 برنامج ادارة الإيجارات الإصدار الأول للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=50382#entry309122 برنامج إدارة الخدمات المصرفية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=51110#entry315312 برنامج إدارة الإشتراكات الشهرية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49929#entry304870 برنامج مستحقات نهاية الخدمة للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47291#entry284873 برنامج سند صرف مع بيان الدفعات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49296#entry299662 برنامج كشف حساب للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=48492#entry293528 برنامج استمارة العائلة الإلكترونى للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47555#entry287386 برامج الكنترول والمدارس لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51265&hl=

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم موضوع اداراة الأيجارات يشغل بال الكثيرون ممن يعملون او مهتمين بمجال العقارات وبعد طلب لاخي الفاضل / محمود السيد في تصميم برنامج لادارة الايجارات ومتابعة تحصيلها وابرام العقود وما الي ذلك من العمليات المتعلقة بالموضوع وبالاخص في العقارات المتعددة التي تحتاج الي متابعة دورية وفقني الله سبحانه وتعالي بعمل هذا البرنامج المتواضع وطرحته اليوم لتناقش حوله لتطويره واكمال النقائص فيه وادعوا الله ان يكون فيه النفع للسائل او المهتم بالمجال هدية الترقية لجميع معلميني الافاضل و اخواني واحبائي بالمنتدي وقمت بعمل شرح مبسط لخيارات البرنامج المتعددة ليكون البرنامج مطروح للجميع ومحل دراسة لتطويره ان شاء الله تعالي ولا تنسونا بدعوة صالحة بظهر الغيب بصلاح الحال وجمعة مباركة ويسعدني ملاحظاتكم وأرائكم لتطوير البرنامج اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الاول تجريبي - ضاحي الغريب.rar

::: تفضل اخي طلبك ..لا تنسى التقييم . Db 32_UP.rar

شكرا لك على التنبيه والذي لم انتبه له من قبل .. اكرر شكري وتقديري

السلام عليكم لو كان الوزن هو 1935 كيلو هل النتيجة المطلوبة هي : 12.135 مما يعني أن النتيجة هي 12 أردب و 135 كيلو؟ بن علية

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

اذا كنت تريد ان يعمل على كل صف يمفرده (كي يعمل الكود يجب ان لا تكون الخلية C في نقس الصف فارغة) اليك هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Intersect(Target, Range("b:b")) Is Nothing Or Target.Row < 6 Then GoTo 1 If Target.Offset(0, 1) = "" Then GoTo 1 Dim My_Row As Long Dim m_B As Range My_Row = Target.Row Set m_B = Target.Offset(0, 2).Resize(1, 2) m_B.Formula = "=IF($B" & My_Row & "="""","""" ,ROUND($C" & My_Row & "*d$4,2))" m_B.Value = m_B.Value 1: Application.EnableEvents = True Set m_B = Nothing End Sub

هذه بركات شهر الصيام علوم متتابعة وفقك الله لكل خير و كل عام و أنتم بخير

بنفس الطريقة استاذنا @رمهان القي نظرتا الى هذا لثلاث سجلات القي نظرتا الى الاستعلام q3record و استعلام التحديث باسم tahdith3record testo.rar

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

نعم قبل قليل انا عملت ونجحت انتظرني راح ارفق لك القاعدة عندك استعلام q1 واليك هذا الاستعلام للتحديث UPDATE t1 INNER JOIN q1 ON t1.id = q1.id SET t1.t3am = [q1]![lasttaqd], t1.taq = [q1]![taqlast], t1.t3am2 = [q1]![befortaqd], t1.taq2 = [q1]![taqbefor]; اليك القاعدة testo.rar

تم المراد من رب العباد جزيل الشكر لك أخى الحبيب @Shivan Rekany لابد من الاستبدال ب صفر فى الأول i لأن قيمة الصفر سيبنى عليها قيمة rr زاد الموضوع ثراء بالفكرة العبقرية للأستاذ @رمهان أعتقد يمكن تطوير هذه الفكرة للحصول على أحدث 3 سجلات و ليس اثنين هذا التحديث بالكود فهل يمكن التحديث بالاستعلام مع استخدام نفس الفكرة؟ جربته لم يفلح رسالة خطأ اختلاف النوع مع أنها نفس الحقول التى بالكود جزيل الشكر لكم جميعا

استاذي الحبيب لان حضرتك قلت انا قلت ولان قبل ان انشر انا عملت التجربة انا قلت هههه شكرا لك استاذي الحبيب

شيفان المحترم هذا سؤال أم خبر سار؟ جار التجربة شكرا لك

استخدم nz مع الكود i = Nz(DMax("yy", "t2", "empid=" & x), 0) ii = Nz(DMax("yy", "t2", "empid=" & x & "and [yy]<>" & i), 0) r = Nz(DLookup("taqq", "t2", "yy=" & i & " and empid=" & x), " ") rr = Nz(DLookup("taqq", "t2", "yy=" & ii & "and empid=" & x), " ") واشتغل 100%

السلام عليكم ورحمة الله وبركاته بارك الله لكم جميعا ربما يفيدك هذا المثال المصنوع على عجالة للتعرف على أكواد المفاتيح ascii & ceycode وفتح نموذج عند الضغط على مفتاح معين open form by keys.rar

شكراً لك لحضرتك اخي وبارك الله بك

مجدى يونس جزاك الله خيرا و كل عام و انتم بخير

اهلا بك مجددا اخي @Ahmed.IQ استخدم Total: VAL([CO2])+VAL([TN2]) واذا ما وفقت عليه ارفع نسخة مصغرة من قاعدة بياناتك واذا هو المطلوب اعمل علامة صح امام الجواب لكي من يتصفح الموقع يعرف ان تم الجواب على هذا السؤال تقبل تحياتي

شكراً اخي وبارك الله بك ورمضان كريم

جرب هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim My_Row As Long Dim m_B, My_range As Range My_Row = Range("b:B").Find("", after:=Range("b5")).Row - 1 Set m_B = Range("b6:b" & My_Row) Set My_range = Range("d6:e" & My_Row) If Intersect(Target, m_B) Is Nothing Then GoTo 1 My_range.Formula = "=IF($B6="""","""",ROUND($C6*d$4,2))" My_range.Value = My_range.Value 1: Application.EnableEvents = True Set m_B = Nothing: Set My_range = Nothing End Sub

مرحبا اخي عبدالفتاح وعذرا على التاخير فقد غاب عني هذا الموضوع بالنسبة لترتيب المكتبات لازم اعمل تست واعود لك وقد يكون فعلا له تاثير مع اعتقادي بان اصدار الاكسس هو الاهم كما احب المشاركة في هذا الموضوع بفكرة اعتقد سهلة جدا 1. لاستخراج اخر سجل DMax("id", "table1") 2. لاستخراج قبل الاخير DMax("id", "table1", "id<>" & DMax("id", "table1")) ويمكن توظيفهم في استعلام تحديث تحياتي للجميع

السلام عليكم كنت ابحث عن كود تشغيل برنامج السكنر المرفق مع ملف تثبيت الطابعة HP وحصلت على كود تشغيل السكنر مباشرة Shell ("C:\Program Files (x86)\HP\HP Deskjet 1510 series\bin\HPScan.exe") بالنسبة لكود تشغيل برنامج السكنر الموجود على windows Shell ("c:\windows\system32\wiaacmgr.exe") حيث وجدت فرق بين الاثنين

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

اضافة الى ما قاله اساتذتى @ابوخليل و @Shivan Rekany ضع الكود فى حدث فى النموذج On Keydown حتى يشتغل الكود عند الضغط على الزر المطلوب ليصبح الكود بالشكل التالى Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 52 And Shift = 0 Then 'الرقم 52 يمثل رقم الزر 4 والرقم 0 يمثل رقم شفت 'DoCmd.Close 'عند الضغط على الرقم 4 من لوحة المفاتيح سوف يغلق النموذج DoCmd.Close ولا تنسى ما قاله الاستاذ شيفان من تفعيل الكى بريفيو بالتوفيق

كل الحلول اعلاه لعمل نسخة من قاعدة الجداول فقط

المشكلة ان الزر رقم 4 يقابله الرقم 52 وليس 100 استبدل الرقم 100 الموجود بالكود بالرقم 52 وإليك هدية ارقام لوحة المفاتيح ارقام لوحة المفاتيحKey ASCII Values.rar

اعتقد استاذ شيفان انه للاستاذ محمد ايمن وبالرابط السابق للاستاذ ابو خليل

استأذن من استاذنا @ابوخليل و @رمهان لا اعرف هذه الاكواد من صتع اي من اخواننا اولا سيعمل لك فولدر باسم باك اب في قرص دي وايضا يعمل باك اب للجداول والعلاقات اتفضل اليك الصق هذا في وحدة نمطية Option Compare Database Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Public Function ExportNew(myfile As String) ' إنشاء ملف جديد Dim wrkDefault As Workspace Dim dbsNew As Database Dim mydb On Error GoTo gv mydb = Dir(myfile) If mydb = "" Then Set wrkDefault = DBEngine.Workspaces(0) Set dbsNew = wrkDefault.CreateDatabase(myfile, dbLangArabic) Call exportTbl(myfile) GoTo gv1 Else Call exportTbl(myfile) GoTo gv1 End If gv: Resume gv1: End Function Public Function exportTbl(myfile As String) 'تصدير نسخة لجميع الجداول الموجودة' Dim tdfCurr As TableDef Dim strBackupDatabase As String strBackupDatabase = myfile For Each tdfCurr In CurrentDb().TableDefs If (tdfCurr.Attributes And dbSystemObject) = 0 Then DoCmd.TransferDatabase acExport, "Microsoft Access", _ strBackupDatabase, acTable, tdfCurr.Name, _ tdfCurr.Name End If Next tdfCurr End Function Function ExportRelations(DbName, DbName2 As String) As Integer 'الحاق العلاقات بالجداول المنسوخة Dim ThisDb As dao.Database, ThatDB As dao.Database Dim ThisRel As dao.Relation, ThatRel As dao.Relation Dim ThisField As dao.Field, ThatField As dao.Field Dim Cr As String, i As Integer, cnt As Integer, RCount As Integer Dim j As Integer Dim ErrBadField As Integer Cr$ = Chr$(13) RCount = 0 Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2) Set ThatDB = DBEngine.Workspaces(0).OpenDatabase(DbName) For i = 0 To ThatDB.Relations.Count - 1 Set ThatRel = ThatDB.Relations(i) Set ThisRel = ThisDb.CreateRelation(ThatRel.Name, _ ThatRel.Table, ThatRel.ForeignTable, ThatRel.Attributes) ErrBadField = False For j = 0 To ThatRel.Fields.Count - 1 Set ThatField = ThatRel.Fields(j) Set ThisField = ThisRel.CreateField(ThatField.Name) ThisField.ForeignName = ThatField.ForeignName On Error Resume Next ThisRel.Fields.Append ThisField If Err <> False Then ErrBadField = True On Error GoTo 0 Next j If ErrBadField = True Then Else On Error Resume Next ThisDb.Relations.Append ThisRel If Err <> False Then Else RCount = RCount + 1 End If On Error GoTo 0 End If Next i ThisDb.Close ThatDB.Close ExportRelations = RCount End Function Public Sub autobackup() Dim datefile As Date Dim timefile As Date Dim pro As String datefile = Date timefile = Time pro = Mid(CurrentProject.Name, 1, (Len(CurrentProject.Name) - 4)) & " " & _ Format(datefile, "yyyy-mm-dd") & " " & Format(timefile, "hh-nn-ss") Path = "D:\Backup\" x = Path Select Case x End Select MakeSureDirectoryPathExists Path & "\" Call ExportNew(x & "\" & pro & ".dat") Call ExportRelations(CurrentProject.FullName, x & "\" & pro & ".dat") MsgBox "تم انشاء نسخة احتياطية بشكل آلي بنجاح في المسار" & vbCrLf & "D:\Backup\", vbInformation End Sub وفي نموذج خلف زر اكتب هذا Call autobackup

كل عام والجميع بخير

شكرا لاهتمامك استاذي العزيز جلست مرة اخرى مع صاحب الجمعية ورسم لي البرنامج على اوراق ويريدها كما رسمها فأرجو من حضرتكم نصيحتي كيف اعمل عسى ان تصلكم فكرة ما اريد علما اني جعلت الصور في5 ملفات ورد مضغوطة لان الموقع لايسمح باكثر من المقرر ولكم الاجر والثواب ( الدال على الخير كفاعله) 1.rar 1.rar 2.rar ملحق الصور يتبع ملحق الصور 3.rar صور صور

اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar

بسم الله الرحمن الرحيم السلام عليكم الموضوع واضح من العنوان وقد طرح الموضوع سابقا على يد الاستاد /احمد حمور جزاه الله خيرا في الموضوعين / دليل هاتف متطور و دليل هاتف v2باستخدام كيبورد احرف وارقام داخل الفورم مع امكانيات متعدده لكني احببت ان اعيد طرح الموضوع بطريقة مختلفة نوعا ما لن اطيل الكلام واترككم مع رابط تحميل البرنامج ارجو ان ينال اعجابكم هدا البرنامج اهديه بشكل خاص للاستاد جمال عبد السميع (ملك المعادلات) Rabie_Phone.rar

أليك أخى ( أبو على ) معادلة جمع الخلايا المفلترة وستلاحظ إنها نفس المعادلات ولكن تم تغيير الرقم الوظيفى للمعادلة ( FUNCTION NUMBER ) جمع الخلايا المفلترة.rar

أخى الحبيب ( فضل ) جرب هذه المعادلة ستحقق طلبك =SUBTOTAL(102;C:C)

أخى الكريم / جلال محمد تفضل الرقم الأول معامل الدالة SUBTOTAL.rar