اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kkhalifa1960

الخبراء
  • Posts

    2512
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    75

كل منشورات العضو kkhalifa1960

  1. اسماء الجداول والنماذج والتقارير والاستعلامات وحقولهم لابد من اللغة الانجليزية أما غير ذلك أي لغة وبخصوص التقرير تبغاه بأي نموذج .
  2. تفضل استاذ @bader770 محاولتي حسب مافهمت اليك المرفق اليوزر (Bader) والباس (770) وباسوورد الشفت (tariq1991). ويوجد تقرير دخول وخروج المستخدمين . واي استفسار أو تعديل وافني بالرد . Bader770-1.rar
  3. مشاركة مع استاذ @Foksh تفضل استاذ @mostafa_27 محاولتي حسب ما فهمت . اليك المرفق . ووافني بالرد . AQSAM-1.rar
  4. تفضل استاذ @Abdelaziz Osman حسب ما فهمت تفضل الشرح والمرفق ووافني بالرد . Abdelaziz Osman1.rar
  5. تفضل استاذ @shiblelayth مرفق من عندي به طريقتي ادخل البيانات بالنموذجان الاولان ثم النموذج الثالث عند اختيار الموظف يعطيق النتائج التي تريدها . ووافني بالرد shiblelayth.rar
  6. بعد اذن استاذي @Moosak وهذا تصوري للتعامل مع الجداول المرتبطة . القاعدة الرئيسية :- الجدول المطلوبة اساسياً :- (tbl_DesignerPassword) والنموذج المطلوب (frm_DesignerPassword) بالاضافة الي جداول نظامك التي تريدها بالقاعدة الخلفية . ونماذج نظامك كما تريد القاعدة الخلفية :- استيراد بلنك كل الجداول بالقاعد الاساسية التي تدير بها القاعدة الخلفية ولا تنسي الجدول (tbl_DesignerPassword) . استيراد النماذج التي تريدها وتشغيلها من النموذج (frmSwitchBoard) فهو اساسي بالنظام مع النموذجان (Shift) و (FormKeys) . بعد الاستيراد لاتنسي غلق الجداول وعدم تفعيل الشيفت . ملحوظة :- استخدم القاعدة الخلفية بالمرفق وغير اسمها كما تحب لأن بها اعدادات أخرى مخفية خاصة باعدادات ال__ (Ribbon). عند فتح القاعدة الخلفية سيفتح على النموذج :- عند الضغط على الزر (S) سيفتح النموذج (Shift) كما بالجدول اذا ادخلت الباس (1001) ويمكن تغيير بالجدول سيمكنك من تفعيل الشفت اذا خطأ أو خالي عدم تفعيل الشفت . عند الضغط على الزر (HideUnHideTables) اذا ادخلت الباس (tariq1991) ويمكن تغيير بالجدول سيمكنك من اظهار الجداول والاستعلامات اذا خطأ أو خالي عدم اظهرها. اليك المرفق للتجريب وانا حاضر لاي استفسار . Khalifa Test.rar
  7. استاذ @gavan راجع هذه الهدية بتحصل نفسك استقبلتها من قبل ........ بتحل لك مشكلتك من هــــــــــــــنا .
  8. ممكن مشاركتكم اساتذتي بهذا المرفق . كلمة التشفير كلمة واحدة للكل (tariq1991) . أما بخصوص تشفير الرقم اذا كان الحقل (Number) والتاريخ اذا كان الحقل (Date/Time) .مايصير تشفيرهم ويرجعوا كتكست بنفس الحقول . AhmedAmroof.rar
  9. ما باقي بالعمر الكثير ...... وانا بدعبس بملفاتي حصلت مجموعة برمجيات كنت سويتها سابقاً منها هذا المرفق وهو يعمل لدي أحد أصدقائي وللحين مابه مشاكل .. باسوورد تحديث الجداول (1001) وباسوورد الوحدات النمطية أو الشفت (tariq1991) .... أنا برفق الفولدر كامل . القاعدة (WaitingMain 2010) بحجرة التسجيل . القاعدة (Role_CheckUp) بحجرة الكشف العام . القاعدة (Role_Consultation) بحجرة الاستشارات . القاعدة (Role_MedicalAnalytics) بحجرة العلاج الطبيعي . القاعدة (Role_Pharmacy) بالصيدلية . القاعدة (Role_Physiotherapy) بمعمل التحاليل . القاعدة (Role_Radiology) بحجرة الاشعة . .القاعدة (Role_Surgery) بحجرة العمليات . ولابد كل القواعد على شبكة واحده لأن الكل مرتبط بحجرة التسجيل . . واي استفسار أو طلب أنا حاضر . Khalifa Hospital.rar
  10. ضع هذا الكود داخل حدث 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
  11. مش فاهم تمت الاجابة للبرنامج أم لمن !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  12. استاذنا @ابوخليل دعنا نكمل رغم ان استاذ @المهاجر ابو معاذ لم يرد احتمال يكون منتظر نهاية العمل.... اعرض عليك المرفق التالي قبل تنفيذ ملاحظاتك ... ProductionOrderTest.rar
  13. مشاركةً مع استاذ @Foksh إليك هذا المرفق ادخال الصورة من أي مكان وعرضها بأي مكان حتى لو شغلته علي غير كمبيوتر . ولو عندك اقسام وتريد انشاء فولدر باسم القسم وحفظ صور موظفينه به . وافني بالرد وانا حاضر . Insert Images.rar
  14. استاذنا @ابوخليل من وجهة نظري افترضنا انتاج بلوفر ... فعملت كتالوج به المكونات وخلافه .............. لانتاجه هذه هي الجداول ونماذج انتاجها. هل اكمل.... . ProductionOrderCreateTables.rar
  15. تفضل استاذ @soik225998 حسب ما فهمت مع اني لا أتعامل مع مسميات عربية بالبرمجة ولا يهمك ..... نصيحة لا تعتمد على تسجيل مسار الصورة بالجدول لأنك لو شغلت البرنامج من مكان غير أو كمبيوتر غير لا يأتي بالصورة . اليك المرفق ووافني بالرد . تجربة 1-1.rar
  16. تفضل استاذ @gavan حسب مافهمت اليك المرفق . Test-2.accdb
  17. ابشر شغال عليه لكن محتاج وقت .
  18. تفضل استاذ @soik225998 حسب ما فهمت ولانك لم ترسل مرفق ، فعملت مرفق من عندي اليك الشرح والمرفق ووافني بالرد . Soik225998.rar
  19. تفضل استاذ @gavan حسب مافهمت اليك المرفق . Test-1.accdb
  20. استاذ @استاذ القلوب كي يستفيد غيرك بهذا الموضوع اضغط على تمت الاجابة . علي مشاركتي بأخر مرفق لي .
  21. تفضل استاذ @gavan حسب مافهمت اليك الشرح والمرفق . Test.accdb
  22. تفضل @استاذ القلوب عملت الموضوع من الاول فأخذ وقت موضوع العمله هذا من اعدادت الكمبيوتر لديك لو ظابط الاعدادات عل ريال بيعطيق العمله بالريال .... أما موضوع الواتساب لازم بعدما تمت الاجابة تفتح موضوع جديد بطلب الواتساب لأنه موضوع كبير وفيه اشتراكات و........... المهم اليك المرفق والشرح للجديدبه . FamilyBox.rar
  23. مبارك لك اخي @محب العقيدة نسأل الله لك التوفيق والسداد
  24. تفضل استاذ @علاء فوزي الحجازي عل عجالة انشاء الله يفيدك . ووافني بالرد . Alaa_Fozi.rar
  25. تفضل استاذ @استاذ القلوب تفضل المرفق + الشرح ... أقرأه وجربه .... طبعاً به اشياء زيادة ..... بعد طلباتك ... والتقارير المطلوبة سأعيد لك النسخة النهائية خالية من الزيادات . Professor_Hearts.rar
×
×
  • اضف...

Important Information