اذهب الي المحتوي
أوفيسنا

Foksh

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

  • Posts

    4011

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

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

  • Days Won

    167

 نوع المحتوي 

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

  1. Foksh
    ابدأ بتطويرها ، واعتبرها طرف الخيط لأفكارك وإبداعاتك ، وإن واجهت أي صعوبات فكلنا هنا لمساعدة بعضنا 😊
  2. Foksh
    أخي الكريم @Abdelaziz Osman بداية اعتقد العلاقات تم ربطها بالشكل السليم ابتداءً من اسم العمل ثم مجموعة الصنف ثم مكونات فاتورة مجموعة الصنف . انا بالنسبة لباقي الطلبات ، فأرجو منك التوضيح بشكل تفصيلي ماذا تريد ، بعد أن تقوم بتصميم النماذج لإنشاء التقارير حسب الاستعلامات التي ستكون مصدر النماذج ( على الأغلب ) . index.mdb
  3. Foksh
    استعمل خاصية البحث أخي الكريم ، تفضل هذا الموضوع قد يفيدك
  4. Foksh
    الحمد لله أنك وجدت الحل الشافي لطلبك أخي الكريم ، ولكن اسمح لي بنقطتين مهمتين :- الأولى لاحظ أنك طلبت في طلبك ما يلي :- لقد طلبت ان يضاف يوم واحد الى معادلة تاريخ المباشرة ، وجاء حلك دون إضافة هذا اليوم الذي طلبته ثانياً والأهم ( ردد معي )
  5. Foksh
    اخي الكريم @NoorShams رغم أن البيانات في الجدول قد لا تساعد في الإحصاء ، إلا أن هذه محاولتي في عدد السجلات التي تحتوي م1 أو م2 في جدولك ، ورغم أني غير مقتنع بالحل ، ولكن تفضل 1111-1.accdb
  6. Foksh
    اخي الكريم ارسل ملف بسيط من مشروعك يضم ما تريد العدد له ، للتطبيق عليه . وإن شاء الله الأخوة لن يبخلوا عليك بأي معلومة 😊
  7. Foksh
    ليس بالتأكيد ، ولكن عن تجربتي مع ويندوز 11 والعمل على آكسيس واجهت بعض المشاكل ومنها ما ذكرت ( الخطوط في التقارير ) ، واضطررت للعودة إلى ويندوز 10 ووجدته الأكثر استقراراً في العمل على بيئة آكسيس.
  8. Foksh
    أخي الكريم سأحاول فهم واستيعاب مطلبك ، وتقديم حل لك بأقرب وقت ممكن.
  9. Foksh
    لا مشكلة في إنك تحولها ، أو تتركها دون تحويل ، هي الفكرة فقط في حال التطوير والتعديل فإنك تفقد هذه الصلاحية اذا قمت بتحويلها 😊
  10. Foksh
    لا أزايد على خبرة الأستاذ @jjafferr ، ولكن يبدو أن (.) سقطت سهواً في المديول mod_ConvertToaccDE استبدله بهذا الكود ، فقط . Option Compare Database Option Explicit Public Function ConvertToaccDE(sourcedb As String, targetdb As String) Dim accessApplication As Access.Application Dim extn As String extn = db_Name_n_Extension(sourcedb) If Right(targetdb, 1) <> "\" Then targetdb = targetdb & "\" End If targetdb = targetdb & extn Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Set accessApplication = Nothing End Function Public Function db_Name_n_Extension(db_name_n_path As String) As String Dim db_Extension As String Dim db_name As String db_Extension = Mid(db_name_n_path, InStrRev(db_name_n_path, ".") + 1) 'accdb or mdb db_name = Mid(db_name_n_path, InStrRev(db_name_n_path, "\") + 1) 'abc.accdb or abc.mdb db_name = Mid(db_name, 1, Len(db_Extension)) 'abc. If db_Extension = "accdb" Then db_Name_n_Extension = db_name & ".accde" ElseIf db_Extension = "mdb" Then db_Name_n_Extension = db_name & ".mde" End If End Function
  11. Foksh
    شكراً للتوضيح ، تداخلت معي الأمور بعد البخور اللي استعملناه عشان الاستاذ ابو جودي
  12. Foksh
    بخرت والله ، وانا برضو استغربت ، وقلت بنفسي يمكن العمل مربوط بالديسك توب على العموم جزاك الله خير ، وما كنت أشكك في عملك ، ولكن كحالة استغربت بس
  13. Foksh
    مداخلة لتصحيح الخطأ بعد اذن أستاذي @Eng.Qassim ، وصاحب الموضوع @imad2024 بعد تجربة المرفق وجدت ان حساب الفرق بين التاريخين خاطئ !! فارتأيت تعديل بسيط بعد إذنك طبعاً . التاريخ.accdb
  14. Foksh
    أكيد طبعاً أستاذي الكريم ، شكراً للتوضيح
  15. Foksh
    ملغي والله
  16. Foksh
    لا يوجد وظيفة مباشرة تسمى COUNTIF في Access على حد علمي كما في برامج جداول البيانات الأخرى مثل Excel. ومع ذلك، يمكنك استخدام استعلام SQL لتحقيق نفس الغرض ، وهذا مثال بسيط في الاستعلام SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة'; وهذا مثال آخر من خلال الـ VBA :- Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Long Set db = CurrentDb Set rs = db.OpenRecordset("SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة';") recordCount = rs("RecordCount") rs.Close Set db = Nothing
  17. Foksh
    عمل جميل جداً منك أستاذنا الكبير @ابو جودي ولكن واجهتني مشكلة غريبة ، ارفقتها في فيديو لتتضح ؛ هل من تفسير ؟؟ 2023_12_16_145730.zip
  18. Foksh
    تفضل أخي ، إن كان ما فهمته صحيح جدول أنتهاء الأجازات.mdb
  19. Foksh
    ارسل مرفق بسيط اذا أحببت ، لنر أين المشكلة
  20. Foksh
    مربعات النص في نموذجك غير مرتبطة في الجداول ( ليس لها مصدر سجلات ) جميع الحقول تعتمد في بياناتها على تحديث الحقل نهاية العمل. وسأعدل اللازم واوافيك بأقرب فرصة ، إلا إن سبقنا أحد الأساتذة ، ولهم جزيل الشكر سلفاً 😊
  21. Foksh
    Mde
  22. Foksh
    تفضل محاولتي اخي الكريم التاريخ (1).accdb
  23. Foksh
    يبقى هشوف الكود وازبطه بس اوصل الكمبيوتر
  24. Foksh
    أخي الكريم في أقرب فرصة ، لأني حالياً بعيد عن الكمبيوتر.
  25. Foksh
    في حدث بعد التحديث للحقل to تاريخ نهاية العقد. و سيكون هكذا: Result= Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd") حيث result هو مربع النص الذي سيكون فيه الناتج ( منتصف المدة )
×
×
  • اضف...

Important Information

  I accept