Moosak

ما هو عمل هذه المكتبة تحديدا ؟

أهلا بك في المنتدى أخي محمد 🙂 لكي تحصل على إجابة شافية ، ضع جميع التفاصيل بوضوح .. 🙂 ضع الكود هنا كنص .. وأشرح ما هو عمل الكود تحديدا ؟ ... وضع مرفق به الكود المذكور لكي يتم تتبع أصل المشكلة .. 👍🏼

أخي أبو عبدالله .. للتحكم بالنموذجين في نفس الوقت تأكد أنك حاط المودل = No أما بالنسبة لفتح النموذج أكثر من مرة فحسب علمي فيه طريقة متقدمة بالأكواد يمكن تعمل كذا .. ولكن ما تعمقت فيها .. 🙂

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

طيب الحين هذا البرنامج .. وهذي مؤسسة لم يتم زيارتها .. ونريد نرحلها .. أيش هو الشي اللي نغيره علشان نرحلها ؟ نغير التاريخ ؟ أو ننقلها لجدول ثاني ولا أيش بالضبط ؟ اسمحلنا بنتعبك معانا علشان نفهم المطلوب .. 😁 واللي فاهم الحكاية من الإخوة المبدعين يبادر بالحل 🙂

الأخ محمد هون عليك 😅🖐️ القضية وما فيها .. شكله الإخوان لا يعرفون الجواب لسؤالك .. لذلك لم يشارك الإخوة في الموضوع .. نصيحتي لك بأن تقوم بتحويل سؤالك لجهة أخرى كمايكروسوفت أو شركة الوينرار مثلا 🙂

أخي سعود .. أين تريد أن تظهر النتائج ؟ وكيف تعرف المنشئات التي لم يتم زيارتها ؟ وكيف يتم ترحيلها ؟

وعليكم السلام ورحمة الله وبركاته أخي صابر .. 🙂 والحاج الباش مهندس قاسم ☺️🖐🏼️ دار الكثير من الحوار هنا حول نفس الموضوع تقريبا .. ( ستجد عدة حلول ستستفيد منها إن شاء الله ) :

حياك وبياك العوام .. قريب منكم 😄🌹 والله نتشرف بك عمي قاسم 😄🖐🏼️ نحن منكم وإليكم .. وحياك الله في أي وقت بعمان ☺️🌹

وفيك يبارك الله 🙂 🌹 نعم أخي العوام ممكن 🙂 هناك الكثير من المواضيع التي تتكلم عن البحث بين تاريخين في المنتدى يمكنك الاستفادة من الكثير من الأفكار .. أنظر هنا : https://www.officena.net/ib/search/?q=البحث بين تاريخين&quick=1&type=forums_topic&search_and_or=and&search_in=titles

اللهم آمين .. وإياكم أخي العزيز 😊🌹

تسلم عمي قاسم .. 🙂 🌹

تفضل أخي @العوام 🙂 store1.accdb

تفضل أخي figo82eg 🙂 Private Sub OpenPDFBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = (BECurrentPath & D & [Text10] & D & [نوع الخطاب] & D & [Combo1] & D & [Combo2] & D & [crn] & D & [crn] & ".pdf") 'Debug.Print DesPath If IsFileExists(DesPath) Then FollowHyperlink DesPath Else MsgBox "لم يتم العثور على الملف", vbOKOnly, "تنبيه" End If End Sub ارشيف - Moosak.rar

هل تقصد .. عند الضغط على الزر (1) تنتقل الالأصناف في رقم (2) إلى النموذج ؟ ومن الزر (3) تطبع الفاتورة ؟

شكرا لك دكتور 🙂

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

أهلا بك أخي العزيز .. 🙂 ياليت لو تشرح المطلوب ( بالمسميات ) الموجودة في الملف المرفق .. يعني في النموذج ( كذا ) في الحقل ( كذا ) في الجدول ( كذا ) ............

وعليكم السلام 🙂 هل الهدف معرفة الفرق بين التاريخين ؟ >> في هذه الحالة ليس منطقيا أن نحسب الشهور كلها ل 30 يوم !! وإذا كان الهدف أنك تريد معرفة ما هو التاريخ الذي يصادفه لو أضفنا 30 يوم إلى تاريخ البداية مثلا .. فهذا ممكن عن طريق الدالة DateAdd ..

وعليكم السلام 🙂 في لوحة الخصائص ومن Other الخيار Cycle تختار السجل الحالي

أخي figo82eg لا تنسى نقل الموديول basBrowseFiles إلى برنامجك 🙂

وعليك السلام ورحمة الله وبركاته أخي ابو عبد الله العراقي الحل أنك تحول حقل البريد الإلكتروني إلى حقل نصي عادي .. ولتفعيل الرابط التشعبي وضعت لك زر لإرسال بريد إلكتروني مباشرة MustenterValue.rar

أهلا بك أخي figo82eg 🙂 تم عمل المطلوب ،،، وهو على جزئين : 1 - كود لإنشاء المجلدات المطلوبة موضوع على الزر الخاص بالحقل CRN : Public Sub CreatFolders() Dim Fldr1 As String, Fldr2 As String, Fldr3 As String, Fldr4 As String, Fldr5 As String Dim DBPath As String Dim D As String: D = "\" 'فحص ما إذا كانت جميع الخانات معبئة If IsNull(Text10) Or Text10 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Text10.SetFocus: Exit Sub If IsNull(Me.نوع_الخطاب) Or Me.نوع_الخطاب = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.نوع_الخطاب.SetFocus: Exit Sub If IsNull(Me.Combo1) Or Me.Combo1 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.Combo1.SetFocus: Exit Sub If IsNull(Me.Combo2) Or Me.Combo2 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.Combo2.SetFocus: Exit Sub If IsNull(Me.crn) Or Me.crn = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.crn.SetFocus: Exit Sub Fldr1 = Me.Text10 Fldr2 = Me.نوع_الخطاب Fldr3 = Me.Combo1 Fldr4 = Me.Combo2 Fldr5 = Me.crn 'إنشاء المجلدات DBPath = BECurrentPath MkDir (DBPath & D & Fldr1) MkDir (DBPath & D & Fldr1 & D & Fldr2) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3 & D & Fldr4) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3 & D & Fldr4 & D & Fldr5) MsgBox "تم إنشاء المجلدات بنجاح" End Sub 2- كود لإحضار الملفات أو الصور على زر مسار الصورة ( ينسخ لك الصورة في المجلد المطلوب ، ثم يعرضها لك) : Private Sub cmdAdd_Click() Dim file As String Dim fileName As String Dim DesPath As String Dim D As String: D = "\" DesPath = (BECurrentPath & D & [Text10] & D & [نوع الخطاب] & D & [Combo1] & D & [Combo2] & D & [crn] & D) If IsFileExists(DesPath) = False Then Call CreatFolders file = selectFile If IsNull(file) Or file = "" Then Exit Sub fileName = GetFileName(file) DesPath = DesPath & fileName FileCopy file, DesPath Me.ImagePath = fileName Me.ImageFrame.Requery MsgBox "تم إضافة الملف بنجاح" End Sub طبعا تم الاستعانة بعدة دوال عامة جميعها موجودة في الموديول basBrowseFiles جرب وأخبرني بالنتيجة 🙂 ارشيف - Moosak.rar

تأكد من الإعدادات الإقليمية عندك في الويندوز واجعلها كلها بالعربي و أختر الدولة التي تعيش فيها ..