Moosak

قبل لا نخرج عن الموضوع الرئيسي .. 🙂 الفكرة هي التصويت على الأفكار المتميزة بمختلف مواضيعها ثم تسليط الضوء عليها وتكريم أصحابها .. المشاريع الجماعية فكرة أخرى سننظر فيها لاحقاً .. 😄

لدي فكرة لتطوير هذا المقترح : 1- دعنا في هذا الموضوع نجمع المواضيع التي يتم ترشيحها للتصويت .. ومن ثم في موضوع جديد يتم عمل التصويت عليها 🙂 2- يتم تجميع المواضيع المتميزة خلال سنة 2022 إلى الآن مثلا .. (هل الفترة مناسبة ؟) 3 - يتم إعادة التصويت مرة أخرى في منتصف كل عام . 4- المواضيع المتميزة يتم وضعها في موضوع خاص بها يتم تثبيته لمدة محددة تكريما لأصحابها 🙂 5- يمكن اقتراح هدية معينة للفائزين 🧐 هل من أفكار إضافية ؟

وعليكم السلام ورحمة الله وبركاته 🙂 فكرة رائعة ومحمسة .. أخي طاهر .. أقترح أن تضع أنت المواضيع .. ويرشح عليها الإخوة 🙂

وعليكم السلام أخي @moho58 🙂 بالبحث ستجد الكثير من المواضيع التي تتكلم عن جدول الحصص المدرسي .. أنظر هنا مثلا : وهذا رابط البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=جدول+حصص+مدرسية+Access&sa=Search

أنا يظهر لدي الملف فارغ .. 🙂 أوفيس 365 ويندوز 10 .. وأعتقد أن المشكلة ليس لها علاقة بالأوفيس ولا الويندوز .. لعلها مشكلة ترتيب الكود فقط ..

جرب هذا الكود أخي محمد 🙂 Public Sub PrintPicture(ByVal strFilePath As String) Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "mspaint.exe", "/p " & Chr(34) & strFilePath & Chr(34), "", "print", 1 End Sub

العفو حبيبنا سيمو 😁 لك ذاكرة طويلة المدى ما شاء الله .. ولمزيد توضيح .. يقال للشخص: أنت مُتَدَوْدِه .. بالمعنى الذي ذكرته .. وتقول عندما تدعو له : الله يبعد عنك لمْدودَهْ 😄 أبعده الله عنا وعنكم يا غاويين 😁🌹 هل تؤدي نفس الغرض أخي أبو أحمد ؟ .. وهل تتجاهل فروقات التنسيق بين الذي معنا والتنسيق الأمريكي ؟

اللهم آمين وإياكم 🙂🤲🌷

عديتها في الجدول فوجدتها 6 غرف .. مطابقة للرقم في التقرير

انتبهت لها وعدلت على المشاركة السابقة .. راجعها .. بالنسبة لعدد الغرف لاحظ Count وليس Sum

جرب هذا للغرف المغادرة : =DCount("[Id]";"[tbl_bookings]";"[IsEnd] =true And [bToDate] = #" & Format([bFromDate];'mm/dd/yyyy') & "# ") problem_count (1).accdb

وعليكم السلام ورحمة الله وبركاته أخي سيمو 🙂 لإجمالي الغرف أكتب : =Count([riFullName]) ولكن ما هو المعيار لمعرفة الغرف المغادرة ؟

الجواب : ..... نعم 🙂 1- أضفه في جدول الجمع TeachersCourses 2- جرب .. 🙂

تعمل جيدا عندي .. باركك الله أخي محمد 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 من خصائص النموذج إجعل شكلي أو مشروط = لا 🙂

أعتقد أن الموضوع متعلق بتمكين المحتوى و الماكرو .. أغلق الرسالة والنموذج الرئيسي LOGO .. وسترى شريط أصفر أمامك .. إضغط على زر [تمكين المحتوى] .. ثم أعد تشغيل البرنامج من جديد .. 🙂

لو وضحت الصورة .. يمكن بعدها تفكيك رقم العقد لأجزاء رقمية يمكن التعامل معها بسهولة 🙂

ما وجدت الرابط بين رقم العقد والتواريخ المذكورة ورقم الشقة والمستأجر .. !! كيف أخرجتها ؟

حياك الله أخي @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

ما شاء الله تبارك الرحمن 🙂 شكرا جزيلا أخي @محمد احمد لطفى .. جمعت كل أصحابنا المطلوبين في فورم واحد 😄 بس يارت لو تعمل حساب الأجهزة ذات النواة 64 بت .. لأن كثير من الدوال تشتغل على ال 32 بت فقط 🙂

جرب هذا عمر 🙂 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

طبع البرنامج الذي ذكره والدنا العزيز المهندس قاسم @Eng.Qassim هو عبارة عن أداة أو إضافة مجانية مقدمة من شركة مايكروسوفت وظيفتها تشغل ملفات الأكسس بدون الحاجة لشراء البرنامج الأصلي .. وطريقة عملها هو تنصيبها في الجهاز كما تنصب أي برنامج آخر .. ومن ثم تشغل ملفات الأكسس عندك عن طريقها .. ومهمتها تقتصر على تشغيل البرنامج فقط دون القدرة على التحكم في تصميم البرنامج وتعديله .. أما بخصوص النسخ الاحتياطي فهذا حكاية ثانية تماما .. يمكنك أن تبحث بعبارة (النسخ الاحتياطي) في المنتدى وستجد عشرات المواضيع التي تتكلم عنه 🙂 أنظر هنا مثلا : https://www.officena.net/ib/search/?&q=النسخ الاحتياطي&type=forums_topic&quick=1&nodes=89&search_and_or=and&sortby=relevancy

وعليكم السلام ورحمة الله وبركاته أستاذ عمر 🙂 دعني أسألك أولا : ماذا تريد من الكود أن يفعل بالضبط ؟ ثانيا : هذا السطر تحديدا يرجع لك قيمة من نوع True / False .. لذلك ينبغي من خيارات دالة الـ Select Case أن تكون إما True أو False .. يعني لو كانت True تفعل كذا ......... ولو كانت False تفعل كذا ......... وليس هناك خيار ثالث إلا أن كانت Null مثلا .. لذلك يمكنك التعويض عنها بدالة IF إن شئت 🙂

بما أنك لن تحتاج لإجراء أية عمليات حسابية على أرقام العقود فليس هناك حرج من جعلها بصيغة نصوص .. مثلها مثل أرقام الهواتف وغيرها .. أما إن احتجت إلى التعامل معها كأرقام فهناك دوال وطرق مختلفة لإعادتها لصيغة أرقام .. وتعتمد الإجابة على مدى حاجتك لذلك وكيف ستتعامل معها ...🙂

أجمل البرامج وأروعها هي اللي مصممها من عمق التخصص لطبيعة عملها وتفرعاتها 🙂