عمر ضاحى

بسم الله ما شاء الله هذا هو الف شكر

السلام عليكم مرفق اليكم نموج لعرض الالون من جدول كل كود فى الجدول يرمز للون المشكله انه يعرضلى كل الاكواد بلون واحد انا اريد ان يعرض لى كل لون حسب الكود الذى معه فى نفس السطر وشكرا جزيلا Color.accdb

والله يا هندسه حضرتك ايضا دائما الاحظك ان اجدك اول الرادين على استفساراتى لذا لك شكرا وعرفاني لك لجميلك ويحفظك الله من كل شر ولا يريك فى عزيز مكروه وبالنسبه لاشارتك هذا فعلا ما احاول ان اتعلمه بارك الله فيك وفى امثالك ان ادرس كل كود لكن بالنسبه لى هذا مبهر لسبب تركيبة الكود على بعض الابداع اعشقه 😍

والله مهما شكرت حضرتك لا اكفيك قدرك فقدرك عظيم عندنا وربنا يبارك فيك الكود يعمل جيد جدا بل ممتاز واكثر بارك الله فيك نفسي اكون مثلك فى علمك

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

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

الف الف شكر وجزاك الله كل خير

بص اولا الله يبارك فيك ويكرمك ويوسع عليك ثانيا هو انا اقدر افهم انت عملتها ازاى لان ده فعلا ال انا عاوزه يعنى لو امكن تشرحلى الفكره كلها عملتها ازاى تكسب فينا كلنا ثواب لان انا متلغبط فيها وعاوز افهمها كويس هل هكذا التطبيق يكون صحيح ؟ If Me.txtPassWord = "123" Then Dim Msg As String Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه") If Msg = vbYes Then MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام" On Error GoTo Error_TruncateTables Dim db As DAO.Database Dim TDF As DAO.TableDef Dim strSQL_DELETE As String Set db = CurrentDb() For Each TDF In db.TableDefs If Left(TDF.Name, 4) <> "MSys" Then If TDF.Name <> "tbl1ACC" Or TDF.Name <> "tbl2Allows" Or TDF.Name <> "tbl3FormList" Then strSQL_DELETE = "DELETE FROM " & TDF.Name & ";" db.Execute strSQL_DELETE End If End If Next MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه" db.Close Exit_Error_TruncateTables: Set TDF = Nothing Set db = Nothing Exit Sub Error_TruncateTables: Select Case Err.Number Case 3376 Resume Next Case 3270 Resume Next Case Else MsgBox Err.Number & ": " & Err.Description Resume Exit_Error_TruncateTables End Select Else MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام" End If Else MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه" End If لان دلوقتى مش بيستثنى اى جداول وبيحذف الكل زي مكان فى الاول

لكن هذا ما حدث معي لا اعرف كيف الجداول موجوده والبيانات بها اما النماذج غير موجوده

هذا الكود حذف لى النماذج وترك الجداول انا اريد ان احذف البيانات التى فى الجداول ما عدى جدول مثلا AAA1 و AAA2 و AAA3 هذا ما ارته الف شكر لحضرتك ولى اضافه اذا ارت ان اجعل مفتاح واحد يعدل على الكل فجربت الكود بهذه الصيغه لكن لم تعمل ما الخطأ Private Sub AllowAll_Click() On Error Resume Next Dim db As DAO.Database Dim sSQL As String If (AllowEdit Or AllowOpen Or AllowDelete Or AllowAdd) = -1 Then Set db = CurrentDb sSQL = "UPDATE tbl2Allows SET [AllowOpen] = -1,[AllowDelete] = -1,[AllowAdd] = -1,[AllowEdit] = -1 WHERE [UserCode]=" & ID db.Execute sSQL Else Set db = CurrentDb sSQL = "UPDATE tbl2Allows SET [AllowOpen] = 0,[AllowDelete] = 0,[AllowAdd] = 0 ,[AllowEdit] = 0 WHERE [UserCode]=" & ID db.Execute sSQL End If frmSubAllows.Requery End Sub كيف اطبقها انا اريد ان يحذف البيانات من داخل جميع الجداول ما عدا بعض الجداول المعينه لا يقرب لها

السلام عليكم معايا اكثر من مشكله فى الملف المرفق به 3 نماذج رئيسيه كل نموذج به مشكله بسيطه ان شاء الله نبدأ ب بسم الله الرحمن الرحيم 1- اسم النموذج : Delete All Data عمل هذا النموذج هو تفريغ قاعدة البيانات وهو يعمل جيدا لكن اريد ان اذيف اثتسناء لبعض الجداول بحيث يحذف كل البيانات من جميع الجداول ماعدا بعض الجداول التى اريد ان احتفظ بالبيانات بداخلها فقط هذا 2- اسم النموذج : frmACC هذا الفورم خاص بصلاحيات الموظفين من تعديل واضافه وغيره اريد شئين ا- من القائمة المنسدله عند اختيار رقم المستخدم يجلب لى البيانات ب- عند اختيار احد الاختيارات اسفل القائمة المنسدله يتم تلقائيا التعليم على جميع الاختيارات المقابل لها فى النموذج الفرعي فى نفس الفورم يعنى لما اختار الكل فتح يعلم على صف فتح ليعطي صلاحية فتح النموذج 3-اسم النموذج : frmSalaryHistory هذا الفورم خاص بعرض جميع الرواتب للموظفين اريد ان اجعل حقل اجمالى جميع الرواتب يجمع لي جميع الرواتب الظاهره اسفله وايضا اريد عند اختيار السنه اولا يظهر لى الشهور وعند اختيار الشهر يظهر لى الرواتب الخاصه بهذه الشهر ولكم جزيل الشكر T2t2.accdb

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

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

انا فاهم الجذء ده لكن الجذ التالى هو ايه ؟ بس فى نقطه مش فاهمها ازاى 10% من 1000 تكون 3300 المفترض كده 10% كل شهر وليس كل 3 اشهر لان كل ثلاث اشهر زيادة 10% هتكون النتيجه اذا كانت الزيادة بسيطه بعد سنه 1400 لان الزيادة جاية من اصل المبلغ ال هو 1000 مضروب فى 10% يعطينى 100 تجمع بال 1000 يصبح الناتج 1100 وبعد مرور سنه ستكون 1400 لان السنه فيها 4 اربع (3*4=12شهر) 4*100=400 فى حال كانت الزيادة زيادة مركبه هنا هتكون فيها شويه تعقيدات بالنسبه لى لان اعرف اعملها على الاكسيل لكن الاكسيس لم اجربها عليه من قبل ولتوضيح الفكره هتكون كالتالى وزي ما هو وضاح فى الجدول الزيادة بتكون على الرصيد السابق للربع السابق مضروب فى 10% ومجموع عليها الرصيد السابق للربع اتمنى ان تكون الفكره وضحة فى الفرق بينهم والله اعلم قد اكون نسيت امور فى النقطه فاذا كنت اخطأ فرجاء ان توضحو لى خطئى وشكرا

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

مهتم (رجاء رفع الملف الصحيح هذا الملف الذى رفعته يحتوي على اختصاره للملف فقط)

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

طيب معلش فى نقطه الطريقه شغاله تمام والحمد لله بس انا لما اجي اضيف باقى الكود علشان يظل النموذج فى المقدمه DoCmd.OpenForm "frmVacation", , , xTab = 1, , acDialog Forms!frmVacation!xTab = 1 لا يعمل فى حين ان الكود اذا اصبح هكذا DoCmd.OpenForm "frmVacation", , , xTab = 1 Forms!frmVacation!xTab = 1 فانه يعمل يا ريت تتفضل على بشرح افهم منه الامر كامل اقصد امر DoCmd.OpenForm

هذا هو ما اريد الف الف شكر وربنا يجزيك خير ويبارك فيك

السلام عليكم اساتذتى الكرام تحية طيبه وبعد؛ انا معى استفسار معرفش اذا كان هذا ممكن ام لا انا عندي فورم به صفحات هل يمكن ان اجعل مفتاح فى فورم اخر عند الضغط عليه يفتح لى الصفحة الاولى لهذا الفورم وزر اخر عند الضغط عليه يفتح لى الفورم فى الصفحة الثانية ؟ هل يمكن فعل هذا ؟ واذا كان نعم كيف يمكن فعلاها يوجد مرفق للتوضيح استفسارى Database1.accdb

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

مش فاهم قصدك لكن جرب هذا الكود DoCmd.OpenReport "xxxxxxxx", acViewPreview واستبدل ال xxxxxxxx باسم التقرير بتاعك

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

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

اولا اشكر حضرتك على ردك ثانيا المعادلة نفسها فيها غلط مش راكب يعنى المفترض المعادلة تكون كالتالى اذا كان حقل الماشرة فارغ وتاريخ اليوم يساوي او اقل من تاريخ موعد العودة يعطينى انه فى اجازه اذا كان حقل الماشرة به تاريخ مباشرة وتاريخ اليوم يساوي او اقل من تاريخ موعد العودة يعطينى انه فى يعمل اذا كان حقل الماشرة به تاريخ مباشرة وتاريخ اليوم اكبر من تاريخ موعد العودة يعطينى انه غياب وقمت باعادة ترتيبها Me.txtstatVacation = IIf(IsNull(Me.txtDateBack), "غياب", IIf(Me.txtdateend + 1 < Date, "اجازة","يعمل")) Me.txtstatVacation = IIf(IsNull(Me.txtDateBack) Or Me.txtDateBack < Date, "غياب", IIf(Me.txtdateend + 1 < Date, "اجازة","يعمل")) ايضا لا يعطينة النتيجه المرجوه وايضا هناك مشكلة اخرى حاولت ان اجعل الكود يعمل دائما لكني لم انجح حطيت الكود فى حدث عند التحديث برضه لم يعمل حاولت جعله فى حدث بعد الادراج برضه لا يعمل فاطريت ان اجعله فى حدث عند النقر فى الحقل علشان يعمل فهل هناك طريقه اجعله يعمل عند تغير اى شئ فى الفورم ؟ Project2.rar