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

Moosak

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

  • Posts

    2175

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

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

  • Days Won

    55

 نوع المحتوي 

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

  1. Moosak
    عديتها في الجدول فوجدتها 6 غرف .. مطابقة للرقم في التقرير
  2. Moosak
    انتبهت لها وعدلت على المشاركة السابقة .. راجعها .. بالنسبة لعدد الغرف لاحظ Count وليس Sum
  3. Moosak
    جرب هذا للغرف المغادرة : =DCount("[Id]";"[tbl_bookings]";"[IsEnd] =true And [bToDate] = #" & Format([bFromDate];'mm/dd/yyyy') & "# ") problem_count (1).accdb
  4. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي سيمو 🙂 لإجمالي الغرف أكتب : =Count([riFullName]) ولكن ما هو المعيار لمعرفة الغرف المغادرة ؟
  5. Moosak
    الجواب : ..... نعم 🙂 1- أضفه في جدول الجمع TeachersCourses 2- جرب .. 🙂
  6. Moosak
    تعمل جيدا عندي .. باركك الله أخي محمد 🙂
  7. Moosak
    وعليكم السلام ورحمة الله وبركاته 🙂 من خصائص النموذج إجعل شكلي أو مشروط = لا 🙂
  8. Moosak
    أعتقد أن الموضوع متعلق بتمكين المحتوى و الماكرو .. أغلق الرسالة والنموذج الرئيسي LOGO .. وسترى شريط أصفر أمامك .. إضغط على زر [تمكين المحتوى] .. ثم أعد تشغيل البرنامج من جديد .. 🙂
  9. Moosak
    لو وضحت الصورة .. يمكن بعدها تفكيك رقم العقد لأجزاء رقمية يمكن التعامل معها بسهولة 🙂
  10. Moosak
    ما وجدت الرابط بين رقم العقد والتواريخ المذكورة ورقم الشقة والمستأجر .. !! كيف أخرجتها ؟
  11. Moosak
    حياك الله أخي @figo82eg 🙂 الحل هو في دالة تحضر لك رابط قاعدة البيانات سواء كانت مقسمة أو غير مقسمة .. وهذه هي الدالة : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "") If FullLinkedPath <> "" Then LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function وسيتغير الكود الذي استخدمته أنت للوصول إلى الملف هكذا : File_Path = BECurrentPath & "CONTACT\" حسابات.rar
  12. Moosak
    ما شاء الله تبارك الرحمن 🙂 شكرا جزيلا أخي @محمد احمد لطفى .. جمعت كل أصحابنا المطلوبين في فورم واحد 😄 بس يارت لو تعمل حساب الأجهزة ذات النواة 64 بت .. لأن كثير من الدوال تشتغل على ال 32 بت فقط 🙂
  13. Moosak
    جرب هذا عمر 🙂 On Error GoTo HandleError Dim ObjName As String Select Case ObjName Case Is = "FrmAddNewPOTally" If CurrentProject.AllForms(ObjName).IsLoaded Then txtLPOID = Forms![FrmAddNewPOTally]![cbIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If End If Case Is = "FromPoTallySearch" If CurrentProject.AllForms(ObjName).IsLoaded Then txtLPOID = Forms![FromPoTallySearch]![SubFromPoTally].Form![txtIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If End If End Select HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = 2467 Then Exit Sub ' ElseIf Err.Number = 2478 Then ' Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit
  14. Moosak
    طبع البرنامج الذي ذكره والدنا العزيز المهندس قاسم @Eng.Qassim هو عبارة عن أداة أو إضافة مجانية مقدمة من شركة مايكروسوفت وظيفتها تشغل ملفات الأكسس بدون الحاجة لشراء البرنامج الأصلي .. وطريقة عملها هو تنصيبها في الجهاز كما تنصب أي برنامج آخر .. ومن ثم تشغل ملفات الأكسس عندك عن طريقها .. ومهمتها تقتصر على تشغيل البرنامج فقط دون القدرة على التحكم في تصميم البرنامج وتعديله .. أما بخصوص النسخ الاحتياطي فهذا حكاية ثانية تماما .. يمكنك أن تبحث بعبارة (النسخ الاحتياطي) في المنتدى وستجد عشرات المواضيع التي تتكلم عنه 🙂 أنظر هنا مثلا : https://www.officena.net/ib/search/?&q=النسخ الاحتياطي&type=forums_topic&quick=1&nodes=89&search_and_or=and&sortby=relevancy
  15. Moosak
    وعليكم السلام ورحمة الله وبركاته أستاذ عمر 🙂 دعني أسألك أولا : ماذا تريد من الكود أن يفعل بالضبط ؟ ثانيا : هذا السطر تحديدا يرجع لك قيمة من نوع True / False .. لذلك ينبغي من خيارات دالة الـ Select Case أن تكون إما True أو False .. يعني لو كانت True تفعل كذا ......... ولو كانت False تفعل كذا ......... وليس هناك خيار ثالث إلا أن كانت Null مثلا .. لذلك يمكنك التعويض عنها بدالة IF إن شئت 🙂
  16. Moosak
    بما أنك لن تحتاج لإجراء أية عمليات حسابية على أرقام العقود فليس هناك حرج من جعلها بصيغة نصوص .. مثلها مثل أرقام الهواتف وغيرها .. أما إن احتجت إلى التعامل معها كأرقام فهناك دوال وطرق مختلفة لإعادتها لصيغة أرقام .. وتعتمد الإجابة على مدى حاجتك لذلك وكيف ستتعامل معها ...🙂
  17. Moosak
    أجمل البرامج وأروعها هي اللي مصممها من عمق التخصص لطبيعة عملها وتفرعاتها 🙂
  18. Moosak
    أعتقد أن سبب هذه المشكلة هو أن بعض العمليات الحسابية ينبغي عملها في الاستعلام وليس النموذج .. خصوصا المجاميع
  19. Moosak
    وعليك السلام أخي @سك بابك 🙂 أنت بحاجة لجدول يجمع بين جدولي المعلمين والدورات ويكون ذو علاقة (متعدد إلى متعدد ) ثم يتم إدراجه كنموذج فرعي في نموذج المعلمين .. بعد ذلك يمكنك أن تعرف مجموعة الدورات التي يدرسها أي مدرس .. أو هذه الدورة من هم المدرسين الذين يقدمونها .. كل ذلك عن طريق الاستعلامات 🙂 SCH_DB.rar
  20. Moosak
    اللهم اشفه شفاءا لا يغادر سقما يارب
  21. Moosak
    أخي @ابوالعزائم .. الخيار التالي : () يوضع للمشاركة التي تحتوي على الحل الأنسب لمشكلتك التي طرحتها في الموضوع 🙂 للعلم 🙂
  22. Moosak
    طب بص كده 😏 وكمان أشرت لك في الموضوع وشوف التاريخ 😄 مع تحيات المكتبة العامرة 😙
  23. Moosak
    طبعا سبب السؤال كان أن نفس هذا الكود مر علي سابقا .. أخذته من أحد برامجك السابقة .. بل واستخدمته في برامجي للتشفير ... بس كان الكود بدون المعامل المحترم b .. 😁 .. لذلك ما عرفت أيش اللي حشره معانا في النص إلا بعد ما تفضلت بالشرح 🙂 طبعا .. طبعا .. لا شك لكن لولا شرحك لصعب على الكثيرين فهم المغزى من الكود أو كيفية استخدامه 🙂
  24. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي @مصطفى العراقي1988 🙂 هل تقصد الصفوف الفارغة تماما من أية بيانات ؟ طبعا ستحتاج لتنفيذ ذلك إلى استعلام حذف .. بحيث تكتب في معيار جميع الخلايا ( Is Null ) أو تضع هذه ="" ثم تشغل الاستعلام .. وشيء آخر أخي مصطفى ، حاول ألا تجعل أسماء الحقول أرقام فقط أو جملة تبدأ بأرقام .. وإنما أعد تسميتها هكذا مثلا : Day1 Day2 Day3 Day4 ...................... وهكذا وذلك تجنبا للمشاكل البرمجية لاحقا .. 🙂
  25. Moosak
    أهلا بك يا @ابوالعزائم 🙂 .. شرفت المنتدى .. يا ريتك تمر على هذي النقاط للإطلاع 🙂 : *--------------------------------------------------------------------------------------------------------------------------------* قواعد المشاركة فى الموقع: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف *--------------------------------------------------------------------------------------------------------------------------------* ولا تنسى ترفق ملفك 🙂
×
×
  • اضف...

Important Information

  I accept