kkhalifa1960

ممكن مشاركتكم اساتذتي بهذا المرفق . كلمة التشفير كلمة واحدة للكل (tariq1991) . أما بخصوص تشفير الرقم اذا كان الحقل (Number) والتاريخ اذا كان الحقل (Date/Time) .مايصير تشفيرهم ويرجعوا كتكست بنفس الحقول . AhmedAmroof.rar

ما باقي بالعمر الكثير ...... وانا بدعبس بملفاتي حصلت مجموعة برمجيات كنت سويتها سابقاً منها هذا المرفق وهو يعمل لدي أحد أصدقائي وللحين مابه مشاكل .. باسوورد تحديث الجداول (1001) وباسوورد الوحدات النمطية أو الشفت (tariq1991) .... أنا برفق الفولدر كامل . القاعدة (WaitingMain 2010) بحجرة التسجيل . القاعدة (Role_CheckUp) بحجرة الكشف العام . القاعدة (Role_Consultation) بحجرة الاستشارات . القاعدة (Role_MedicalAnalytics) بحجرة العلاج الطبيعي . القاعدة (Role_Pharmacy) بالصيدلية . القاعدة (Role_Physiotherapy) بمعمل التحاليل . القاعدة (Role_Radiology) بحجرة الاشعة . .القاعدة (Role_Surgery) بحجرة العمليات . ولابد كل القواعد على شبكة واحده لأن الكل مرتبط بحجرة التسجيل . . واي استفسار أو طلب أنا حاضر . Khalifa Hospital.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

مش فاهم تمت الاجابة للبرنامج أم لمن !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

مشاركةً مع استاذ @Foksh إليك هذا المرفق ادخال الصورة من أي مكان وعرضها بأي مكان حتى لو شغلته علي غير كمبيوتر . ولو عندك اقسام وتريد انشاء فولدر باسم القسم وحفظ صور موظفينه به . وافني بالرد وانا حاضر . Insert Images.rar

استاذنا @ابوخليل من وجهة نظري افترضنا انتاج بلوفر ... فعملت كتالوج به المكونات وخلافه .............. لانتاجه هذه هي الجداول ونماذج انتاجها. هل اكمل.... . ProductionOrderCreateTables.rar

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

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

ابشر شغال عليه لكن محتاج وقت .

تفضل استاذ @soik225998 حسب ما فهمت ولانك لم ترسل مرفق ، فعملت مرفق من عندي اليك الشرح والمرفق ووافني بالرد . Soik225998.rar

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

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

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

تفضل @استاذ القلوب عملت الموضوع من الاول فأخذ وقت موضوع العمله هذا من اعدادت الكمبيوتر لديك لو ظابط الاعدادات عل ريال بيعطيق العمله بالريال .... أما موضوع الواتساب لازم بعدما تمت الاجابة تفتح موضوع جديد بطلب الواتساب لأنه موضوع كبير وفيه اشتراكات و........... المهم اليك المرفق والشرح للجديدبه . FamilyBox.rar

مبارك لك اخي @محب العقيدة نسأل الله لك التوفيق والسداد

تفضل استاذ @علاء فوزي الحجازي عل عجالة انشاء الله يفيدك . ووافني بالرد . Alaa_Fozi.rar

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

ابشر انشاء الله قرب يكتمل لكن عطني وقت لأني بوعكة صحية .

مشاركة مع استاذ @Foksh تفضل استاذ @shabrawy محاولتي حسب ما فهمت ... كي لايتأثر الجدول الاساسي من التشكيل بنضيف جدول مؤقت ونأخذ منه البيانات بعد ازالة التشكيل وغيره لعرضها بالنموذج . عملت لك نموذجين واحد بالبحث بالزر والثاني بمجرد الكتابة بمربع البحث . اليك المرفق ووافني بالرد . Shabrawy.rar

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

تفضل استاذ @sabry fahmy المرفق الجديد وبه ماطلبت وأي شء أخر أنا حاضر .. ووافني بالرد . Sabry_Fahmy_Last.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