king5star

السلام عليكم اخوانى معي مشكلة مع قاعدة if و msgbox مكون من ثلاث ازرر فاننى اريد عند الضغط على yes ينفذ امر و no يغلق النموذج و cancel يبقي كل شئ كما هو فقمت باستخدام هذا الكود ولكن تعمل yes فقط style = vbYesNoCancel + vbMsgBoxRight + vbQuestion Title = "تجربة" If MsgBox("تجربة1", style, Title) = vbYes Then MsgBox "تم بنجاح", vbInformation ElseIf vbCancel Then DoCmd.Requery ElseIf vbNo Then DoCmd.Quit Else 'no thing End If فما الخطأ

استاذنا Elsayed Bn Gemy منذ ان دخلت المنتدى وانت استاذ فاضل بكافة ردودك ومساعداتك وهذا العمل الضخم الذي ليس له مثيل فعلا رائع وفقط الله الى ما تبغي دائماً وجاري التجربة وإطلاعك على النتائج .

اخى لو امكن وضع مثال فيكون لك جزيل الشكر .

السلام عليكم اخوانى اتمنى ان اشارك معكم فى هذا العمل الرائع حتى يكون مرجع للاعضاء. اتمنى ان لا ينسي هذا الموضوع وهذه مشاركة محذوفة اتمنى ان تعيد تنشيط الموضوع . الدالة DateAdd يمكنك استخدام الدالة DateAdd لإضافة فاصل زمني معيّن أو طرحه من تاريخ ما. على سبيل المثال، يمكنك استخدام الدالة DateAdd لحساب تاريخ لمدة 30 يوماً من اليوم أو وقت لمدة 45 دقيقة من الآن. وصيغتها كالاتى DateAdd ( الفاصل الزمني، رقم، تاريخ ) الفاصل الزمني : ويوضع رمز للمتغير الذي تريد اضافة القيمة الزمنيه إليه رقـــــــــــــــــم : ويوضع الرقم الذى تريد اضافته للمتغير الذي قمت بتحديده تــــــــــــــاريخ : ويوضع هنا الزمن الذي به المتغير موضح به القيمه الحاليه حتى يتم اضافة الرقم إليه حسب المتغير الذي قمت بتحديده مثال 1 : يقوم المثال التالي بإضافة شهر واحد إلى 31 يناير DateAdd("m", 1, "31-Jan-95") جدول اكود المتغيرات " الفواصل الزمنيه " yyyy السنة q ربع سنوي m الشهر y يوم من السنة d اليوم w يوم من الأسبوع ww الأسبوع h الساعة n الدقيقة s الثانية مثال 2 : أذا اردت مثلاً اضافة شهر الى القيمه الحالية للتاريخ DateAdd("m", 1, Date)

قم باسترداد النموذج الى ملف برنامجك وضع كود استدعاءه تحت صوره عند حدث النقر المزدوج او ما تحب Shift.zip Shift.zip

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

اسف اخى على التأخير نظراً لظروف العمل هذا فكره عامة للطريقة قم بنسخ الاكواد من نموذج تقسيط التعليم الى نموذج الباص وسوف يعمل ايضاً بنفس الكفائة حمدي الضابط.zip 2003حمدي الضابط.zip

سلمت يداك اخى حمدي ان شاء الله سوف اقوموم بالتعديلات واوفيها لك اليوم

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

اخى حمدى الظابط انا سوف اساعدك للنهاية ولكن قم بترتيب الجداول اولا هكذا : 1- اكتب اسماء الجداول باللغة الانجليزية هكذا msrofat , St_name هكذا وبدل استخدام المسافات استخدم "_" 2- اسماء الحقول ايضا باللغة الانجليزية . 3- قم بعمل جدول اساسى مثل st_Name ويكون به جميع بيانات الطالب اسمه رقمه القومي عنونانه رقم هاتف والده وهكذا 4- قم بعمل جدول المصروفات الدراسية والباص ويتم ربطهم بعلاقه عن طريق رقم الطالب مثل ما قال اخينا أواب 5- قم بارسال هذه القاعدة وسوف اكون معك خطوه خطوه قم بعمل ما تستطيع وما لا تستطيع عمله فقط اكتبه واكمل الى النهاية وسوف اقوم عنك بالباقي . وفقك الله

عن جد تستحق هذا اللقب اخى أبو عبدالله الحلوانى وزادك الله من علمه واعلي منزلتك .

اخى أبو عبدالله الحلوانى مهما تحدثت فلن اوفيق حقك وفقك الله دائماً ووفقك الى ما ترضي .

هذا درس من استاذتنا زهره اننى شخصياً استخدمه اتمنى ان يفيد http://arabteam2000-forum.com/index.php?/topic/56706-حماية-قاعدة-البيانات-برقم-الهارد-دسك/&page=2 وهذا لعمل عد تنازلى للنسخة وبعد ذلك تحتاج الى ترخيص https://www.officena.net/ib/topic/61535-نسخة-تجريبية-بالعد-التنازلى/?page=1

شكراً لك اخى أمير2008 على المساعده الرائعة ولكنها لم تصب واعتمت نهائياً وقمت بطرح مشاركة جديدة هنا وتم الحل النصف وتبقى الاخر ولك جزيل الشكر اخى أمير2008

فقط استخدم الوحده النمطية والنموذج الذى بالمشاركة الاولى وضعهم فى قاعدة بياناتك وسوف تجد كود فى زر انشاء النسخة الاحتياطيه مثل هذا Call ExportNew("BackUp Dir " & "\" & pro & ".dat", pass) قم باستبدال BackUp Dir الى مسار الملف الذى تريد حفظ النسخة به وستعمل لديك بدون مشاكل وعندما ننتهي من المشكلة الحالية بامكانك استخدامها ايضاً . ولا تحزن على عدم المشاركة فلا يكلف الله نفساً إلى وسعها . وفقك الله اخى .

تفضل اخى ستجد ما تريده فى نموذج Bdate قاعدة بيانات2.zip

ستجد ما تريد فى هذه المشاركة

وجدت الحل الحمد لله بتغير الجملة الى Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2, True, False, ";pwd=Pass") حيث ان Pass هو الرقم السري المراد انشاءه . وضبطت وتم عمل الباسورد والحاق العلاقات وتبقت المشكلة عند الاسترداد فهل من مساعدة .

برجاء المساعدة اخوانى فانني احاول ولم تضبط معي

شكراً لمجهودك اخى الكريم قمت بتركيبها ولكن ظهرت هذه الرسائل على الترتيب ظهرت رساله الامان بشكل متعدد بعدها ثم

السلام عليكم اخوانى لدي طلب بسيط هو اننى اريد عندما اقوم بالضغط على انشاء نسخة احتياطيه ونسخ الجداول يحمى القاعدة الجديدة الخاصة بالنسخة الاحتياطيه برقم سري ووضعه فى زر الاستيراد لنسخ الجداول مره اخري مثال backup.zip

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

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

السلام عليكم اخوانى مجدداً ولكن هذه المره بالحل لفت اتباهي اخى أبو عبدالله الحلواني إن من الممكن ان تكون المشكلة فى الدوال التكريريه والحمد لله طلعت هي فقط قم بابدال هذا الكود If (tdfCurr.Attributes And dbSystemObject) = 0 Then بهذا If (tdfCurr.Attributes) = 0 Then ولدي سؤال كيف اضع رقم سري للنسخة الاحتياطيه ؟ هل باستخدام كود او امر او ماذا !

للرفع برجاء المساعدة وحتى بنموذج جاهز ولكنه يعمل !