Moosak

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

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

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

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

وفيك يبارك الله 🙂 🌹 نعم أخي العوام ممكن 🙂 هناك الكثير من المواضيع التي تتكلم عن البحث بين تاريخين في المنتدى يمكنك الاستفادة من الكثير من الأفكار .. أنظر هنا : 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

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

حياك الله أخي خليفة 🙂 باستخدام خاصية البحث في المنتدى ستجد العديد من المواضيع التي تتكلم عن نفس الموضوع .. ستستفيد منها إن شاء الله .. https://www.officena.net/ib/search/?q=Translate &quick=1&type=forums_topic&nodes=89&search_and_or=and

شغالة معي تمام .. 👍🏼 فقط أضف هذين السطرين لزر الطباعة : Private Sub أمر43_Click() If IsNull(Me.tx3) Or Me.tx3 = "" Then: MsgBox "يرجى كتابة عدد النسخ": Me.tx3.SetFocus: Exit Sub If IsNull(Me.tx4) Or Me.tx4 = "" Then: MsgBox "يرجى كتابة التاريخ": Me.tx4.SetFocus: Exit Sub DoCmd.OpenReport "Q1", acViewPreview, , , acHidden DoCmd.PrintOut , , , , [tx3] End Sub

وعليكم السلام ورحمة الله وبركاته أخي أبولو .. 🙂 كيف تميز السجل الأول عندك ؟ يحتاج تعمل شرط يستثنيه من بين السجلات .. وممكن تستخدم الجملة التالية كشرط أو معيار لجملة ال SQL أو الاستعلام إن كان لديك حقل ID في الجدول : DCount("*";"[TableName]";"[id]<=" & [id]) <> 1

الله يعافيك أخي العزيز ، وصحة وعافية وهنا يارب 😊