بوعبد الله محفوظ

حياك وبياك وجعل الجنة متقلبك ومثواك لقد وجدت الكود وقمت بإضافته وتمت المهمة بنجاح On Error GoTo btnDeleteRecord_Click_Err If MsgBox("هل تريد الإستمرار في عملية الحذف؟", vbYesNo + vbCritical, "حذف سجل") = vbNo Then Exit Sub End If On Error Resume Next باقي الكود كما هو vbCritical لإضافة اللمسة الجمالية أو التحذيرية آآآآآآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج

السلام عليكم ورحمة الله تعالى وبركاته لدي الكود التالي وأريد إضافة رسالة تأكيد الحذف Private Sub btnDeleteRecord_Click() On Error GoTo btnDeleteRecord_Click_Err On Error Resume Next DoCmd.GoToControl Screen.PreviousControl.Name Err.Clear If (Not Form.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If If (Form.NewRecord And Not Form.Dirty) Then Beep End If If (Form.NewRecord And Form.Dirty) Then DoCmd.RunCommand acCmdUndo End If If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If btnDeleteRecord_Click_Exit: Exit Sub btnDeleteRecord_Click_Err: MsgBox Error$ Resume btnDeleteRecord_Click_Exit End Sub هل يمكن ذلك

السلام عليكم ورحمة الله تعالى وبركاته عندي مشروع عملته بأكسس 2016 -64 بيت على ويندوز 10 64 بيت لكن لما أفتحه على نسخة أكسس 2016 32 بيت على ويندوز 10 أو ويندوز 7 32 بيت يرفض الفتح عند الضغط على shift ثم فتح الملف يفتح لكن لا يمكن تشغيله في وضع الفورم جربت تثبيت AccessDatabaseEngine 2010 لكن دون فائدة هل من حل لهذه المشكلة بارك الله فيكم مقدما ClinetPhoneNumber.rar

مشكووور مشرفنا الغالي أتعبناك معنا لقد اتبعت نصيحتك فعلا وقمت بتوحيد رقم الحركة شكرا جزيلا لك

مشكووووور مشرفنا الغالي على اهتمامك لكن أيهما أفضل أن أدعه على حاله يعني رقم سند الصرف ورقم سند القبض أم كما أشرت علينا "رقم الحركة" لأني قمت بإضافة الكود التالي في رز حفظ وأدى المهمة على أكمل وجه If Me.ÇáãÈáÛ_ÅíÏÇÚ.Value = 0# Then Me.txtKabedNumber.Value = 0 DoCmd.Requery "txtKabedNumber" ElseIf Me.ÇáãÈáÛ_ÕÑÝ.Value = 0# Then Me.txtSarefNumber.Value = 0 DoCmd.Requery "txtSarefNumber" الكلمة الأولى الغير مفهومة هي المبلغ_إيداع الكلمة الثانية الغير مفهومة هي المبلغ_صرف أي ملاحظات أخرى مرحب بها بارك الله فيك وفي علمك

السلام عليكم ورحمة الله تعالى وبركاته إخواني الكرام صادفتني مشكلة أرقتني رغم تجريبي لكثير من الحلول إلى أنها لا تجدي نفعا آخر حل ما ستجدونه في "Form_AfterUpdate" لكن بعد الحفظ لا ينتقل إلى سجل جديد مشكلتي مع "رقم سند القبض" و "رقم سند الصرف" ماذا يحدث عند اختيار مثلا سند صرف يتم ظهور رقم سند الصرف وبعد ملأ جميع الخانات وعند الضغط على حفظ يتم كل شيء بخير ويتم الانتقال إلى سجل جديد لكن إذا توجهت إلى جدول الحركات أين يتم التخزين تجد أن رقم سند القبض قد أخذ قيمة أيضا رغم أننا لم نحدده ماذا أريد أريد تسجيل رقم السند الذي أشتغل عليه فقط والآخر يأخذ القيمة الافتراضية وهي 0 تجربتي قمت بالاعتماد على قيمة الظهور If Me.ÇáãÈáÛ_ÅíÏÇÚ.Visible = False Then Me.txtKabedNumber.Value = 0 ElseIf Me.ÇáãÈáÛ_ÕÑÝ.Visible = False Then Me.txtSarefNumber.Value = 0 End If الكلمة الأولى الغير مفهومة هي المبلغ_إيداع الكلمة الثانية الغير مفهومة هي المبلغ_صرف تشتغل عادي لكن لو قمت باختيار مثلا سند الصرف ثم في نفس اللحظة قمت بإعادة الاختيار وسيكون طبعا سند القبض أو انتقلت إلى الفئة ثم عدت لتعديل نوعية السند تجد أن القيمة في رقم السند أخذت القيمة 0 وليس الرقم المراد أخذه وهذا ما يحدث أيضا بالاعتماد على القيمة If Me.ÇáãÈáÛ_ÅíÏÇÚ.Value = 0 Then Me.txtKabedNumber.Value = 0 ElseIf Me.ÇáãÈáÛ_ÕÑÝ.Value = 0 Then Me.txtSarefNumber.Value = 0 End If الكلمة الأولى الغير مفهومة هي المبلغ_إيداع الكلمة الثانية الغير مفهومة هي المبلغ_صرف ملاحظات: رقم السند الصرف ورقم سند القبض فوق بعضهما البعض المبلغ إيداع والمبلغ صرف فوق بعضهما البعض اسم الزبون واسم الموظف فوق بعضهما البعض فعلت هذا حتى لا يحس الذي يعمل على البرنامج بالتغير أي نصائح أخرى بخصوص الكود مرحب بها هناك بعض المشاكل الأخرى سأطرحها في مواضيع منفصلة أرجوا أني وقفت لشرح المشكلة بارك الله فيكم مقدما آآآآآآآآآآسف على الإطالة PreTest - Afterchange.rar

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

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

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

مشكور أخي على اهتمامك لكن للأسف لازال الاشكال قائما حيث أن أول سند صرف يأخذ القيمة 0 وبالطبع أنا أريده أن يأخذ القيمة 1 كما أني لا اريد إضافة أول سجل يدوي لتفادي هذا الاشكال test.rar

السلام عليكم ورحمة الله تعالى وبركاته ماهي طريقة إتمام التاريخ تلقائيا بعد كتابة اليوم فقط عندي تاكست بوكس نوعه تاريخ format: dd/m/yyyy أريد بمجرد كتابة اليوم وليكن مثلا 04 ثم الضغط انتر يقوم بإتمام التاريخ ليصبح مثلا 04/12/2015 وأيضا في رقم السند أريده أن يبدأ الترقيم من 1 لكنه يبدا من 0 test.rar

بارك الله فيك أخي الكريم ماحبيت اغير لكي لا تتشتت بالعكس سيدي أنا أريد أن أتعلم على الأصول في انتظار ردكم في آمن الله

مشكور على اهتمامك تم ارفاق الملف New Microsoft Access Database (2).rar

هل يمكن ان تدلني على الطريفة بدون مرفق

السلام عليكم ورحمة الله تعالى وبركاته مشكورين على هذا الموقع الرائع والمتميز عندي فورم يحتوي على ثلاث كمبو بوكس الأول اسمه الفئة يحتوي على "العمال,الشركات,الوكالة" الثاني اسم الموظف يظهر فقط عند اختيار العمال من الفئة الثالث اسم الزبون يظهر فقط عند اختيار الشركات من الفئة القيمة الافتراضية ل اسم الموظف و اسم الزبون هي visible=false مشكلتي كالتالي لنفترض أنني اخترت من الفئة العمال وظهر اسم الموظف واخترته بعد الضغط على سجل جديد يبقى اسم الموظف ظاهر رغم ان السجل جديد والفئة لم يتم تحديدها بعد هل يمكن إخفاء اسم الموظف و اسم الزبون مباشرة بعد الادخال ------------------------------------------------------ جربت Private Sub Form_AfterInsert() Me.اسم الزبون .Visible = False Me.اسم الموظف .Visible = False لكن لم تفلح