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

Foksh

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3857

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

  • Days Won

    158

 نوع المحتوي 

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

  1. Foksh
    أخي الكريم السلام عليكم ورحمة الله وبركاته ,, أولاً أهلا وسهلاً بك معنا في هذا الصرح الكبير .. ونتمنى أن تجد ما تبحث عنه دائماً من حلول وإجابات لإستفساراتك .. لاختيارك الإجابة التي تريدها والتي حققت لك طلبك بشكل كامل ، انظر الفيديو التالي ، للإستفادة منه كي لا تقع في نفس المشكلة لاحقاً .. وشكراً لك ، وأهلاً بك مرة أخرى
  2. Foksh
    عايز 37 حقل في ورقة وحدة وبجنب بعض في صف واحد 😅 .. طب إزااااااي ؟؟
  3. Foksh
    وإياكم أخي الكريم .. بارك الله فيك
  4. Foksh
    وهذا هو المطلوب أخي الكريم .. شكراً لك ، ولكم من الدعاء النصيب الأكبر بإذن الله .
  5. Foksh
    أخي الكريم ، اذا رأيت أن مشكلتك قد تم حلها ( والحمد لله ) ، فضلاً وليس أمراً لا تنسى النقر على عبارة للإجابة التي حققت طلبك .
  6. Foksh
    بارك الله بك ، ونفع بك ,, أشكرك أخي ناقل على تهنئتك
  7. Foksh
    مداخلة فيما يتعلق بإعدادات اللغة الإقليمية في الويندوز ,, اذا كان الويندوز لديك إصدار 10 أو 11 ، فجرب اقرأ ها الموضوع ، عله يكون مفيداً لك .. الإصدار الأخير من الأداة في هذه المشاركة هنا ..
  8. Foksh
    وعليكم السلام ورحمة الله وبركاته .. رغم أنك الى حد ما قريب من تحقيق هدفك في محاولتك داخل الزر .. إلا ان بعض النقاط قد غابت عنك ، مثل :- تنسيق التاريخ بشكل صحيح . استخدام دالة DLookup بطريقة سليمة عند مقارنة التواريخ . يفضل استخدام Format عند التعامل مع التواريخ في SQL لتفادي أخطاء اللغة الإقليمية وتنسيق التواريخ . على العموم ، جرب هذا التعديل على ملفك الصلي إن كان صحيحاً :- Private Sub أمر24_Click() Dim numFonct As Long Dim dateGrade As Date Dim critereRecherche As String Dim resultat As Variant numFonct = Nz(Me!num, 0) dateGrade = Nz(Me!date_grade_poste_actuel, #1/1/2000#) critereRecherche = "code_fonct = " & numFonct & " AND date_nomination = #" & Format(dateGrade, "yyyy-mm-dd") & "#" resultat = DLookup("code_fonct", "tbl_masser_mihani", critereRecherche) If Not IsNull(resultat) Then MsgBox "هذه المعلومات موجودة من قبل", vbExclamation + vbMsgBoxRight, "" Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL _ "INSERT INTO tbl_masser_mihani (code_fonct, loi_fondamontale, grade, sinf, date_nomination, numero_visa_cf, date_visa_cf) " & _ "SELECT num_fonctionnaire, loi_fondamontale, grade_poste_actuel, categorie, date_grade_poste_actuel, num_visa_grade_poste_actuel, date_visa_grade_poste_actuel " & _ "FROM tbl_info_fonctionnaire " & _ "WHERE num_fonctionnaire = " & numFonct DoCmd.SetWarnings True MsgBox "تمت الإضافة بنجاح", vbInformation + vbMsgBoxRight, "نجاح" End Sub
  9. Foksh
    اخي افتح المرفق التالي ، واختر فلترة عشوائية لأي بيانات ، وانقر زر افتح التقرير .. الترتيب والتصميم حسب رغبتك . ما تم هو انشاء تقرير مبني على الإستعلام Qsearch4 ، وإضافة الحقول نفسها من الاستعلام الى التقرير .. حيث ان الاستعلام مشروط بالفلترة ، وما سيتم تطبيقه على التقرير هو عرض السجلات التي تم فلترتها فقط الجمعية 28.zip
  10. Foksh
    أهلاً باشمهندس @عمر ضاحى ،، جميع ما ذكرته تقريباً ، هو ما تم التلميح له سابقاً ، وقم تم إدراجه في التحديث الجديد.. أما إنشاء نسخة احتياطية Dat ، فهي تعمل بشكل سليم ، ولكن ما لم يكن مدرجاً هو الإستعادة من هذه الصيغة 😅 أما فيما يخص فأعتقد أن الأزرار والعناوين واضحة بشكل كافي ، ولكن أعتقد أيضاً أن كثيرة هي المواضيع التي تناولت موضوع النسخ الاحتياطي وبنفس النمط 😅 ، مع محاولتي الإحتفاظ بالتسميات للأزرار دون تعديلها بإختصارات. بكل الأحوال يسعدني ويشرفني مرورك العطر 💐 💐
  11. Foksh
  12. Foksh
    فهمتك معلمي الفاضل .. بالطبع ، ويمكن تقييد المستخدم العادي من عدم الدخول أساساً الى لوحة النسخ الإحتياطي ( وهذا لا خلاف عليه ) في الأداة جعلتها قادرة على التعامل مع القواعد المنقسمة والغير .. وإذا كان النسخ الإحتياطي الذي نريده ان يتم على القاعدة لجميع الجداول ( عند محاولة استرجاع طبعاً ) محصوراً فقط بالجداول المحلية ، فلا أعلم الهدف ( والسبب أن 99% ممن يقوم بتقسيم قواعد بياناته هو لتجنب تلف وتضخم قواعد البيانات بسرعة ولحمابة البيانات والجداول ) . على العموم سأرى ما يمكن تفعيله وتعديله في النسخة الجديدة ان شاء الله أهلا مهندسنا الغالي ,, في الواقع ، من المفترض أن يتم انشاء المجلدات عند فتح الواجهة ، ولكن يبدو أنني لم أعد استدعاء الدالة الى حدث عند الفتح ,, لذا تم التعديل لاحقاً في النسخة الجديدة ان شاء الله 👍 الإسترجاع في الإصدار السابق محصور فقط للـ MDB ، وقد التعديل والتطوير في الإصدار الجديد أيضاً .. لكني هنا في طور استنتاج النقاط التي يمكن إضافتها وتحسينها 😊
  13. Foksh
    وعليكم السلام ورحمة الله وبركاته .. المعطيات من خلال الملف المرفق :- 1. نوع التنسيق = نسبة مئوية ( Percent ) . 2. النتيجة في المربعات النصية التي فيها المشكلة = #Num! دلالة على أنه غير قادر على إدراج النتيجة 0 كنسبة مئوية .. جرب في مربع النص d67 داخل ا لتقرير استخدام الجملة التالية :- =IIf([d55]=0,0,([d63]+[d61]+[d59])/[d55]) بدلاً من التعبير السابق :- =([d63]+[d61]+[d59])/[d55] وبناءً عليه قم بالتطبيق بنفس الأسلوب 🤗
  14. Foksh
    هو الحل الأبسط من باب الأمان عند التراجع 😅 هنا نأتي لفكرة السلاح ذو الحدين .. والأمر يعود للمستخدم بأن يتم تحديد الجداول كاملة في اإعدادات أم بعض الجداول !!!! النسخ الإحتياطي التلقائي ( حسب ضبط الإعدادات ) متاح التحديد بعدد الساعات أو الأيام !! ومن السهل جعل النسخ التلقائي مقرون فقط بجميع الجداول وليس بالإعدادات المتاحة في جدول الإعدادات .. هي إما مرونة أو تضخيم للفكرة 😁
  15. Foksh
    وعليكم السلام ورحمة الله وبركاته ,, لم تحدد التقرير الذي تريده ان يكون النتيجة للفلترة أخي الكريم ..
  16. Foksh
    أخي الكريم ، شكراً لمتابعتك .. ولكن برأيك هل المرفق يحتوي على بيانات أو سجلات كي يتم فهم الموضوع ؟؟؟؟؟؟ حاول ادراج بيانات غير حساسة وغير شخصية في المرات القادمة كعينة على المشكلة .. على العموم ، قمت ببعض التعديلات ( نوع حقل رقم القضية ، استعلام جديد وجعلته مصدر بيانات النموذج المخصص للبحث .... ) متابعة القضايا.zip
  17. Foksh
    شكراً للإفادة
  18. Foksh
    قد يكون هناك مخرج يلبي خط الرجعة هذا بحيث يتم انشاء نسخة خاصة قبل الاستعادة !!!! ما رأيكم 🤔 ؟؟ وبهذا سيكون له حرية الرجوع إليها متى يشاء !!!
  19. Foksh
    وجهة نظرك سليمة 100% ، ولا اختلف معك فيها .. فالنسخة الإحتياطية التي تم استعادتها من الطبيعي انها تحتوي سجلات سابقة ولا يوجد بها السجلات الجديدة !!!! كحال اي برنامج يقوم على استعادة نسخة احتياطية سابقة ، والهدف الوظيفي هو الإستعادة وليس التحديث !!!!
  20. Foksh
    بارك الله بك ، ونفع بك ، وزادك من علمه ,, شكراً لك على مشاركتنا هذا العمل الجميل . ونأمل منك أن تقوم بتطوير الفكرة لتشمل الترجمة الإنجليزية لكل آية بترجمة صحيحة ومعتمدة . علها تكون لك أضعافاً من الحسنات عند نشر هذا العمل وأنصحك بفتح موضوع جديد بهذه النتيجة لتعم الفائدة بشكل أكبر .
  21. Foksh
    وعليكم السلام ورحمة الله وبركاته .. ملاحظة مهمة بخصوص المتغيرين i و ii :- حيث تم تعريفهما كـ String ، بينما من الواضح ( وبناءً على ما أذكر من مشاركات سابقة ) أنهما يمثلان رقم الترم المخزن في العمود الأول (Column(0)) من الـ ComboBox . صحيح ؟؟ Private Sub Report_Open(Cancel As Integer) Dim i As Long, ii As Long i = Forms!frm_Reports!ComboSaf.Column(0) ii = Forms!frm_Reports!termNum.Column(0) Me.tsmya1.Caption = funSanahDrasyahDate() If ii = 2 Then Me.tsmya2.Caption = "الدور الأول" Else Me.tsmya2.Caption = "الدور الثاني" End If DoCmd.Maximize End Sub
  22. Foksh
    وعليكم السلام ورحمة الله وبركاته .. في الورقة "بينات" لاحظ التكرار في القيم لـ CAR على سبيل المثال ، فأي عدد معدات سيتم اعتباره العدد الصحيح للمعدات ؟؟؟ وكذلك الأمر لباقي المطلوب .. وحتى عدد الساعات !!!!!!! فسر لنا بالضبط الشروط والمعايير التي على أساسها سيتم اعتماد القيم الصحيحة لإنشاء معادلاتك !!
  23. Foksh
    نعم صحيح ، يتم التعامل مع الجداول فقط دون الحاجة الى حذفها وإعادة العلاقات اليها .. ما يتم هو حف السجلات بدءً بجداول الأبناء للعلاقات ، ثم حذف السجلات من الجداول الآباء . وعند الإستعادة يتم الأمر بالعكس !! حيث ستكون الإستعادة أولاً لجداول الآباء ثم الأبناء تباعاً ,, التجربة هي الفيصل في الأمر 😅 . حيث قمت بالتجربة على اكثر من مشروع لدي وكان الأمر ناجحاً دون حدوث اي مشاكل ولله الحمد ولإجراءاتكم بالتجربة والإفادة بالنتيجة 😇
  24. Foksh
    مهو انا ما وضعتهوش وقاصد ده .. لأنه لسه في تحديثات جديدة وقلت نشوقكم حبتين
  25. Foksh
    أخي الفاضل ، الجداول مخفية .. انظر الصورة لإظهارها تم ذكر التوضيح في المشاركة الأصلية
×
×
  • اضف...

Important Information

  I accept