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

د.كاف يار

الخبراء
  • Posts

    1,681
  • تاريخ الانضمام

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

  • Days Won

    60

كل منشورات العضو د.كاف يار

  1. التعديل الذي تم هو في الصفحة الرئيسية طبق نفس التعديل على صفحة اضافة قيد جديد فقط
  2. طيب اشرح لي العلاقات بين الجداول اتوصلت لبعض الجداول القابلة للربط مثل لكن ايش الرابط بين كل هذي الجداول حسب توقعاتي ان الجدول الرئيسي هو Accounts اذا كان كذلك فيجب ربط الجداول مع بعضها لكي تحصل على نتائج مترابطه
  3. تفضل التعديل يابو الحسن الدائن و المدين.zip
  4. الف الف مبروك اخي عمرو اشرف @Amr Ashraf و اسأل الله العظيم رب العرش العظيم أن يجعل من علمك الذي تنشره في ميزان حسناتك و شفيعا لك و نشكر ادارة هذا الكيان العظيم في حسن اختيارهم و نسأل الله لنا و لكم التوفيق ,,, ,
  5. اقترح عليك اضافة عمود جديد في الجدول و ليكن اسمه مثلا ( حالة القيد ( مرحل / غير مرحل ) ) ففي حال كانت السجلات غير مرحلة عند الانتقال او اغلاق النموذج تظهر رسالة مثلا ( الفاتورة غير مرحلة ! هل تريد ترحيل الفاتورة الآن ؟ اضغط لا لحذف الفاتورة )
  6. من الطبيعي ان تواجه مشكلة من الطبيعي ان تتوقف الجداول عن اضافة المزيد من الحقول اخي عدد الحقول لكل جدول هو 255 عمود بعد الوصول للحد الاقصى فلن تكون قاعدة البيانات قابلة للتعديل لكي تتجاوز هذه المشكلة فإن ايسر الحلول و اسهلها انشاء جدول جديد من خلاله تستطيع اضافة حقول تتجاوز العشرة آلاف لكن بالطرق السليمة الصحيحة ومن خلال ربط الجدول الجديد مع الحالي تكون قد حققت الهدف بعيد عن التحميل الغير منطقي على قاعدة البيانات و تكون النتيجة بهذا الشكل تم الاستغناء عن 236 حقل و التعويض عنها بعدد 4 حقول مترابطة سليمة حين يكون العمل بالصورة السليمة سوف تجد سهولة في التعامل مع طبق التعديلات تطبيقا منطقيا و اعد رفع الملف ان واجهت مشكلة اخرى التسويات 8-2022.zip
  7. تفضل هذه الطريقة انشئ وحدة نمطينة جديدة Module و الصق الكود التالي Public Function RNumber(etText As Integer) As Integer Dim i As Integer, NewNumber As Integer For i = 1 To Nz(DMax("م", "tbl_BB"), 1) If Nz(DLookup("م", "tbl_BB", "[م]=" & i), 0) = 0 Then NewNumber = i Debug.Print NewNumber Exit Function Else NewNumber = Nz(DMax("م", "tbl_BB"), 0) + 1 End If Next i RNumber = NewNumber End Function و في ازرار الحفظ ضع التالي txt = RNumber(txt) سيتم جلب الرقم الشاغر و في حال عدم وجود رقم شاغر سيتم استكمال الترقيم التلقائي
  8. عندك اكثر من حل لكن للأسف و لا حل فيهم ناسبك اقترح عليك ترجع و تعيد الشرح بشكل محتلف لكي تصل المعلومة بالشكل الصحيح
  9. ماشاء الله لا قوة الا بالله شغل بكل ما تعنيه الكلمة احترافي و مرتبع جدا جدا
  10. في حدث عند الفتح ضع التالي DoCmd.Maximize
  11. تفضل طريقتين داخل الملف الدرجه.accdb
  12. تفضل هذه الفكرة الأحرف المتاحة فقط أول 11 حرف كذلك ارفقت لك المقطع الصوتي الكامل في حال ناسبك الصوت المرفق لتحميل مقطع الصوت كامل اضغط هنا 1266614553_.zip
  13. الواضح انه مجموع المبالغ المتبقية لأنه التكنيك الي وضعته انه في حال اضافة رصيد جديد يتم جمع الرصيد السابق مع الرصيد الجديد في حدث بعد التحديث
  14. لكي تحصل على المساعدة بالشكل المطلوب يجب تحديد طلبك بدقة
  15. و جرب هذي الطريقة منع الحاق سجل تم الحاقه سابقة له نفس التاريخ.zip
  16. تفضل هذا التعديل 927122524_b-saderwared.zip
  17. اشرح المطلوب بالتفصيل النموذج المذكور لم افهم المقصد منه
  18. تفضل هذا التعديل تجريبي.zip
  19. لإخفاء الاصفار ضع المعيار التالي <>0 كرر نفس المعيار في نفس الصف للعمود الآخر المعيار في نفس الصف يمثل " AND " المعيار الثاني في غير الصف المعيار الأول يمثل " OR "
  20. اعتذر منك لسوء الفهم هذا هو ما توصلت له ارجوا ان تجد من يساعدك في الوصول لمطلبك شكرا لك
  21. تفضل ملفك حضور وانصراف موظفين.zip
  22. لديك خطأ في المعيار عدل الخطأ و سيعمل معك Like "*" & [Forms]![frmSearchAllReqords]![txtSearch] & "*"
×
×
  • اضف...

Important Information