أبو آدم

أحسن الله اليك أبا خليل شكرا لمرورك الطيب

للتراجع عن عملية الحفظ للسجل الحالي في النموذج و عند حدث ( قبل التحديث ) ... نضع الكود التالي : Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Dirty = True Then If MsgBox("Do you wish to save the changes?", vbQuestion + vbYesNo, "Save Record?") = vbNo Then Cancel = True Me.Undo End If End If End Sub

أخي طاهر ما تطلبه متاح ولكن هل تسمح وتشرح لي سبب تكرار المعلومات في الجدولين !! شكرا

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

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

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

الاخوة و الاخوات ... الزملاء و الاحبة منذ 2015 ثبت الاخ الفاضل ابو خليل موضوعا مهما لابي البراء عن توجيهات نابعة من خبرة ودراسة للاخوة الفضلاء قرأها أقل من 3000 مرة كل رواد المنتدى وطلاب العلم فيه و المارون و العابرون و من فتح المشاركة ولم يقرأ منها مهماً و ان قلّب سطورها . إخوتي و اخواتي الفضلاء لا اريد ان تعتبر مشاركتي هذه تنظيراً ، لذا سابتعد عن الاطالة و أقصر القول ... البحث عصب و شريان و باب منير من ادوات طالب العلم جلّ المتجولين في المنتديات ... كجالس على شاطئ ينتظر المدّ ليقذف اليه خير البحر ... و هو جالس يراوح مكانه في قلب البحر ... لهذه المنتديات ... درر قضى فيها المتطوعون و الدارسون و طلاب العلم ليلهم ونهارهم و نور عيونهم و خمائل اذهانهم ، فجعلوها بين ايديكم ، تحويها صدفات و اضحات غير مخفيات و لا مكتنزات لا تدرك ، بل وضحوها و طرحوها و فسروها ، و وضعوها بين ايديكم ... و ما عليكم الا بذل قليل جهد ... بالبحث ... و اعذروني لطرح الموضوع ... و لكنه و الله من أخ لكم مشفق محب يرجو لكم الخير و الفائدة و أخشى ان يكون تكرار فتح المواضيع المتشابهة المكررة منفرا للسائل و المجيب و الله من وراء القصد ...

Private Sub Fup_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl000") rst.MoveFirst Do Until rst.EOF If rst!الرقم = Me!OrderID Then MsgBox " السجل موجود ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub تفضل أخي العزيز

أعتذر عن المقاطعة ، و من باب الفضول ، احب ان اعرف القانون المرفق الذي يمنح للموظف 50 يوم اجازة ، لاي بلد ؟ لطفا وليس امراً شكرا

يرجى عدم تكرار المواضيع https://www.officena.net/ib/topic/72189-كيف-ننشأ-زر-كهذا/#comment-466834

قم بانشاء جدول بحقل واحد اسم الجدول tblCheck اسم الحقل strCheck نوع الحقل Number في النموذح وعند حدث عند الضغط لزر الأمر انسخ Private Sub Command0_Click() lntCount = DCount("*", "tblcheck") If lntCount > 0 Then MsgBox " mohamed" MsgBox " salah" Exit Sub End If MsgBox " waleed" strSQL = "INSERT INTO tblcheck (strCheck) VALUES (1 );" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True MsgBox " mohamed" MsgBox " salah" End Sub

شكرا للتفاعل ، ويرجى عدم تكرار الاسئلة في اكثر من موضوع منعا للتشويش على زملائك تم الاجابة عن السؤال الثاني في موضوع مستقل آخر لك اجيبك هنا عن السؤال الثالث وارجو ان تفرد لكل سؤال موضوع مستقل شكرا عند حدث عند الضغط لزر الامر انسخ Private Sub Command7_Click() Dim ADate As Date ADate = DateAdd("yyyy", 10, Me.Text0) Me.Text3 = ADate End Sub Text0 هو اسم الحقل الذي يحمل التاريخ الذي نريد اضافة 10 سنوات اليه Text3 هو اسم الحقل الذي سيتم عرض النتيجة به

نعم

و عليكم السلام ورحمة الله وبركاته انشئ وحدة نمطية جديدة انسخ اليها Public Function RunForm() Dim RunSunDayForm As String RunSunDayForm = Format(Now(), "dddd") If RunSunDayForm = ("SunDay") Then 'Call your codehere DoCmd.OpenForm "form2" End If End Function Form2 هم اسم النموذج الذي نريد ان يفتح كل يوم احد ثم وفي حدث عند التحميل للنموذج الافتتاحي ( او نموذج رئيسي ) انسخ Private Sub Form_Load() Call RunForm End Sub

Private Sub Command2_Click() Me.Text0 = Date End Sub

قيد التجربة ...

هل المسار /:e متوفر على جهازك ؟؟

تحية و بعد تم التنزيل النسخ الاحتياطي لقاعدة البيانات ( الجداول ) تم بنجاح ... ( بعد تعديل مسار الملفات ) جاري المتابعة بالمتابعة النسخ الاحتياطي لقاعدة البيانات ( البرنامج) تم بنجاح الكودات سليمه ... التطبيق سلس ( النسخ الاحتياطي ) ... لم أجد ما يوجب المراجعة أعد محاولات التطبيق لديك ، مع مراعاة تحديد و تعديل مسارات الملفات شكرا

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

شكرا ابا خليل

اتمنى ان تستخدم خاصية البحث بالمنتدى فالامثلة كثيرة شكرا

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

جهد طيب ، يبنى عليه بارك الله بك

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

أخي العزيز يرجى ارفاق مثال مصغر للتطبيق شكرا