kkhalifa1960

تفضل المرفق بعد التعديل بــ  أكسس 2016 لا تستخدم الماكرو  للفتح أو الغلق  ....  استخدم محرر الاكواد . جرب بعد التعديل ووافني بالرد .
برنامج مصروفات Office 2016-2.rar

تفضل استاذ @layan.ali93 .
           
Private Sub office_AfterUpdate() Dim strCriteria As String Dim varResult As Variant ' تأكد من أن رقم الكتاب والجهة ليست فارغة If Nz(Me.no_of_io, "") <> "" And Nz(Me.office, "") <> "" Then ' صياغة شرط البحث strCriteria = "[no_of_io] = '" & Me.no_of_io & "' AND [office] = '" & Me.office & "'" ' البحث عن سجل مطابق في الجدول varResult = DLookup("id_mas", "master_t", strCriteria) ' إذا تم العثور على نتيجة، يعني أن السجل موجود مسبقًا If Not IsNull(varResult) Then MsgBox "رقم الكتاب والجهة تم إدخالهما مسبقًا.", vbExclamation, "تنبيه" End If End If End Sub  

استاذ @moho58 برفق اليك مرفق من أعمال استاذنا @ابو جودي انا شخصياً بستعمله .
ملاءمة عناصر النموذج حسب حجم النموذج.rar

تفضل استاذ @مصطفى حماد سيد حماد مرفق من عندي به طلبك . ووافني بالرد .
Students.accdb

تفضل استاذ @بلال اليامين طلبك حسب مافهمت بتقريرك .... وتقريري . 
Belal_Yamen.accdb

اعتذاري تفضل الملف الصحيح .
                                                                                
 
Emad.85-1.rar

في هذه الحالة استخدم طريقة استاذنا @ابوخليل كما اشار اليك استاذ @Foksh واذا محتاج شئ أو تعديل اكتب ما تريده هنا وهو انشاء الله سيرد عليك .

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

بعد اذن استاذي @Moosak وهذا تصوري للتعامل مع الجداول المرتبطة .
القاعدة الرئيسية :- 
الجدول المطلوبة اساسياً :- (tbl_DesignerPassword)  والنموذج المطلوب (frm_DesignerPassword)
بالاضافة الي جداول نظامك التي تريدها بالقاعدة الخلفية  . ونماذج نظامك كما تريد
القاعدة الخلفية :- 
استيراد بلنك  كل الجداول بالقاعد الاساسية التي تدير بها القاعدة الخلفية ولا تنسي الجدول  (tbl_DesignerPassword) .
استيراد النماذج التي تريدها وتشغيلها من النموذج (frmSwitchBoard) فهو اساسي بالنظام مع  النموذجان (Shift) و (FormKeys) .
بعد الاستيراد لاتنسي غلق الجداول وعدم تفعيل الشيفت .
ملحوظة :- استخدم القاعدة الخلفية بالمرفق وغير اسمها كما تحب لأن بها اعدادات أخرى مخفية خاصة باعدادات ال__ (Ribbon).
عند فتح القاعدة الخلفية سيفتح على النموذج :-
عند الضغط على الزر (S)  سيفتح النموذج (Shift)   كما بالجدول اذا ادخلت الباس (1001)  ويمكن تغيير بالجدول سيمكنك من تفعيل الشفت اذا خطأ  أو خالي عدم تفعيل الشفت .
عند الضغط على الزر (HideUnHideTables)  اذا ادخلت الباس (tariq1991)  ويمكن تغيير بالجدول  سيمكنك من اظهار الجداول والاستعلامات  اذا خطأ  أو خالي عدم اظهرها.
اليك المرفق للتجريب وانا حاضر لاي استفسار .
Khalifa Test.rar

ضع هذا الكود داخل حدث BeforeDelConfirm أو Delete في نموذج fm4 حسب ما يناسبك. الأفضل استخدام BeforeDelConfirm لأنه يسبق الحذف ويمنحك فرصة التسجيل قبل الإزالة.
📌 الخطوات:
افتح النموذج fm4 في وضع التصميم.
اضغط على النموذج نفسه (وليس عنصر داخل النموذج).
من نافذة الخصائص، اختر الحدث BeforeDelConfirm.
اضغط على زر "..." واختر "منشئ الكود".
الصق الكود التالي:
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strT4 As String Dim strUser As String Dim strComName As String Dim dtNow As Date Dim userChoice As VbMsgBoxResult ' عرض رسالة تأكيد userChoice = MsgBox("هل أنت متأكد أنك تريد حذف هذا السجل؟", vbYesNo + vbQuestion, "تأكيد الحذف") If userChoice = vbNo Then ' إلغاء الحذف Cancel = True Response = acDeleteCancel Exit Sub End If ' استخراج البيانات من السجل الحالي strT4 = Nz(Me.t4, "") strUser = Environ("Username") strComName = Environ("Computername") dtNow = Now ' فتح الجدول وإضافة سجل جديد Set db = CurrentDb Set rs = db.OpenRecordset("hestable", dbOpenDynaset) rs.AddNew rs!oldrec = strT4 rs!User = strUser rs!Comname = strComName rs!curdata = dtNow rs.Update rs.Close Set rs = Nothing Set db = Nothing ' السماح بالحذف Response = acDeleteOK End Sub 💡 ملاحظات مهمة
تأكد أن الحقول التالية موجودة في جدول hestable:
oldrec (نص)
User (نص)
Comname (نص)
curdata (تاريخ/وقت)
الكود يستخدم Environ("Username") و Environ("Computername") للحصول على اسم المستخدم واسم الجهاز.
إذا أردت منع الحذف في حالات معينة (مثلاً إذا كان t4 فارغًا)، يمكن تعديل الكود لإلغاء الحذف عبر:
Cancel = True Response = acDeleteCancel  

تفضل استاذ @soik225998 حسب ما فهمت مع اني لا أتعامل مع مسميات عربية بالبرمجة  ولا يهمك  ..... نصيحة لا تعتمد على تسجيل مسار الصورة بالجدول
لأنك لو شغلت البرنامج من مكان غير أو كمبيوتر غير لا يأتي بالصورة     . اليك المرفق ووافني بالرد .
تجربة 1-1.rar

استاذ @استاذ القلوب  كي يستفيد غيرك بهذا الموضوع اضغط على تمت الاجابة . علي مشاركتي بأخر مرفق لي .
 

تفضل استاذ @gavan حسب مافهمت اليك المرفق  .
Test-1.accdb

بعد اذن استاذنا @ابوخليل تفضل استاذ @sabry fahmy مشروع كامل بطلبك ادرسه جيداً . ووافني بالرد .
Sabry_Fahmy.rar

تقضل استاذ @ابو عبد الرحمن اشرف الشرح والكود .
                                 
Private Sub txtFrom_AfterUpdate() If Me.txtFrom > Me.txtTo Then MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical Undo Exit Sub End If End Sub Private Sub txtTo_AfterUpdate() If Me.txtFrom > Me.txtTo Then MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical Undo Exit Sub End If End Sub  
                                                

لاتنسى الضغط على تمت الاجابة على مشاركتي حتي يعم الخير لغيرك .

تفضل استاذي .
takhrij-2.rar

مشاركة بعد اذن اساتذتي . تفضل استاذ @عالم الهندسة مرفق كامل ... اذا يلبي طلبك !!! .ووافني بالرد
عالم الهندسة-1.rar

تفضل استاذي @الحلبي طبعاً مفيش أصغر من ذلك وكل البرمجة بالفورم . ووافني بالرد .
2AnalogClock.rar

الكود باضافة شرط اللون :-
DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate = #" & [DDate] & "# AND NOT IsNull(colour)", , Screen.ActiveControl.Caption  

تفضل استاذ @الميزار طلبك بعد التعديل . ووافني بالرد .
Miraz-1.rar

تفضل استاذ @خالد جميل طلما طلبت اقصى تقدير 5 فواتير  . اليك مرفق جديد وعند فتحه يوجد زر اسمه اقرأني أولاً . ووافني بالرد . وعيد اضحى مبارك على الجميع .
MultiInvoic - PopUp.rar

استاذ @RAIANESAMI ممكن تشرح طلبك على المرفق . اليك المرفق .
DDFinding Differences-Last-111.rar

تفضل استاذ @Osama Mohammad طلبك حسب مافهمت . 
برنامج مخازن جديد 19-5.rar

تفضل استاذ @RAIANESAMI اليك المرفق بعد التعديل وبه طلبك . جرب ووافني بالرد .  واذا كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك من هذا العمل .
DDFinding Differences-EmpIDtxt.rar