Moosak

وعليك السلام ورحمة الله وبركاته أخي @محب العقيدة 🙂 مجهودات رائعة منك لتسهيل الانتقال لقواعد بيانات ال SQL .. لك الأجر بإذن الله 🙂 ولازلنا نتابع بقية السلسلة 😉

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

أهلا بك @Mina_youssef9 في المنتدى 🙂 لتحقيق أقصى استفادة يرجى الإطلاع على : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. ************************************************************************** بالنسبة لسؤالك وحسب علمي .. يمكنك فتح ملف الأكسس في الموبايل عن طريق برامج الريموت (التحكم من بعد) مثل التيم فيور team viewer .. بحيث يكون جهاز اللابتوب شغال على طول وتفتح التيم فيور في الجهازين فكأنما تفتح شاشة اللابتوب في شاشة الموبايل .. وبهذا يمكنك فتح ما تشاء من اللابتوب ومن ضمنها برنامج الأكسس .. طبعا كل هذا شريطة اتصال اللابتوب بالانترنت ..

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

لدي فكرة لتطوير هذا المقترح : 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