عمر ضاحى

اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها

عندي حقل سوف اضع به عدد الايام وليكن اسمه txtDays وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل شهر 1 شهر 2 شهر 3 وليكن اسمه cbList1 وعندي حقل اخر به الراتب ولكين اسمه txtSalary انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر يحسب ليى المبلغ مثل عدد ايام 14 يوم شهر 3 الراتب 1900 لما يحسب يشوف رقم الشهر عدد ايامه كام شهر 3 يعنى شهر مارس عدد الايام 31 يوم =1900/31*14=858 ازاى احولها معادلة انا اعرف انى تقريبا هحتاج دالة Trim Replace DateDiff وممكن اشياء اخرى بس ازاى اعملها مش عارف pro.accdb

اذا كانو ليس بهم بيانات مهمه لا بأس ارفعهم الاثنين علشان احاول اعدل لك على الملف

ممكن ترفع نسخه غير كامله او نسخه تحتوي على بيانات غير مهمه علشان احاول اشرحلك عليها

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

😌 لم اتذكرها او حتى افكر فيها الف شكر لحضرتك

اعقد ان ملف به خطأ او ان اصدار البرنامج عندي غير قادرعلى التعامل مع ملفك انت شغال باصدار كام

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

السلام عليكم معايا مشكلة فى استعلام الحاقى الغرض من البرنامج هو لما احذف اى سجل يتم نقله الى جدول اخر ويحذفه علشان اقدراستعيد البيانات فى حال اردت استعادتها بعد الحذف فقمت بعمل جدول الحاقى ياخذ هذا السجل ويقوم بنقله الى جدول اخر ومن ثم يقوم بحذف السجل المشكله انه ينقل رقم ال ID خطأ يعنى مثلا يوجد عندي 10 سجلات من 1 الى 10 وعند حذف سجل رقم 8 مثلا ينقله الى الجدول الجديد حامل رقم 1 وهكذا مع جميع السجلات يعطي نفس الرقم وهو 1 فهل من توضيح للمشكله ؟ test.accdb

طريقه جميله وفعاله والله تسلم ايدك وبارك الله فيك طريقه جميله وفعاله ايضا هههههههههه ابدا والله انا بس بحاول الم باكثر قدر ممكن من المعلومات لغرضين اولا افتح باب لعرض الافكار الابداعيه والتى من دورها تساعد المبتدئين على الفهم وتطوير طريقة الفكر ثانيا علشان انا ايضا اتعلم فن كيف اركب كود على كود وافهم اكثر استخدمات الاكواد والفائده تعم الجميع والهدف البعيد عاوز اعمل برنامج مجاني يساعد الناس فى اعمالهم لوجه الله يكون غني بالادوات والمميزات والخدمات (شئون موظفين وادارة مخازن وحسابات) ده الهدف بس بسبب انشغالى ببعض الامور الاخري فاحيانا باتوقف عن التقدم يوم او يومين دون تحديث او اضافه لشئ معين ^_^

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

اضافة اخرى لما خففت عدد الالوان الى 49 لون اشتغل تمام 50 لا ^_^ حالف هما 49 لون هل ده يعني قدرات الاكسيس كده ؟ ولا هناك شئ اجهله

فى مشكله ظهرت معايا فى الكود بعد ان اضفت مكتبة كاملة للالوان على اساس اجربها ظهر لى هذا الخطأ وحدد لى الخطأ هنا فما هو السبب ؟ وهذا الكود الخاص بالاستاذ @husamwahab Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst Do While Not rs.EOF With [bxColorSub].FormatConditions .Delete End With rs.MoveNext Loop rs.MoveFirst Do While Not rs.EOF With [bxColorSub].FormatConditions With .Add(acExpression, acEqual, "(([ID_Color])=" & rs!ID_Color & ")") .BackColor = rs!CodeColor.Value End With End With rs.MoveNext Loop

الف شكر لحضرتك وهذه ايضا احدى المكتبات بها اكود الالوان جاهزه للمبتدئين امثالى حابب افيد بها غيري رابط المكتبه

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

السلام عليكم مرفق اليكم نموج لعرض الالون من جدول كل كود فى الجدول يرمز للون المشكله انه يعرضلى كل الاكواد بلون واحد انا اريد ان يعرض لى كل لون حسب الكود الذى معه فى نفس السطر وشكرا جزيلا 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