Moosak

تفضل 🙂 الاتصال بأكثر من قاعدة.rar

وعليكم السلام 🙂 أسهل حل هو أن تضبط القيمة الافتراضية للحقل في النموذج من نافذة الخصائص .. وتستخدم أحد دوال الدومين (DLast مثلا) .. أو تشير للحقل في النموذج هكذا Forms!FormName!FieldName

السلام عليكم أخي @حمدى الظابط 🙂 بحمد الله ضبطت لك كود إرسال البريد الإلكتروني .. ولكن هناك نقطة مهمة ( ضرووووووووووووووووووووري جدا جدا جدا ) إتباع الخطوات المذكورة في الموضوع التالي كتضبيطات للجيميل لكي يتم الاتصال بالبريد وإرسال الرسائل : ويفضل أن يتم حفظ بيانات البريد الإلكتروني والباسوورد (بشكل مشفر طبعا ) لأنه لايطلب باسوورد الدخول هنا بل الرقم البديل للباسوورد الذي يوفره لك الجيميل .. ويعطيك إياه لمرة واحدة .. وقمت بتعديل على مصدر بيانات النموذج الفرعي وتغيير زر ال ✔ ليكون بطريقة أسهل 🙂 وتم الإرسال بنجاح ولله الحمد 🙂 وفي البريد الإلكتروني :

في أحد برامجي التي بها حقول كثيرة جعلت تنسيق الصفحة على الحجم A3 بالعرض فشملت جميع الحقول.. وعند الحاجة للطباعة يتم تصدير الصفحة بصيغة PDF وحينها يسهل طباعتها بحجم A4 .

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

وعليكم السلام ورحمة الله وبركاته .. 🙂 أعمل في كل سجل 3 حقول للصور مثلا .. لما تمتلي الثلاث الأولى تفتح سجل جديد .. وهكذا ..

وعليكم السلام 🙂 ضع مرفق للتطبيق عليه ..

أهلا بك أخي 🙂 طالع هذا الموضوع لعلك تجد فيه بغيتك مع التعديل حسب الحاجة :

وعليكم السلام ورحمة الله وبركاته 🙂 مشاركة مع أخي أحمد .. وجدت هذا الكود ووظيفته حساب عدد الملفات ( وليس المجلدات ) في مجلد معين ويعطيك عددها : Public Function CountFilesInFolder(strDir As String, Optional strType As String) 'DEVELOPER: Ryan Wells (wellsr.com) 'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox 'INPUT: Pass the procedure a string with your directory path and an optional ' file extension with the * wildcard 'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\") ' Call CountFilesInFolder("C:\Users\Ryan\", "*txt") Dim file As Variant, i As Integer If Right(strDir, 1) <> "\" Then strDir = strDir & "\" file = Dir(strDir & strType) While (file <> "") i = i + 1 file = Dir Wend MsgBox i End Function وتستخدمه هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\") ويمكنك من حساب عدد ملفات من نوع معين ( ملفات الأكسل مثلا ) هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\", "*.xls*") https://wellsr.com/vba/2016/excel/vba-count-files-in-folder/

وعليكم السلام ورحمة الله وبركاته 🙂 هذا جواب سؤالك الأول:

ما هي المشاكل التي تواجهها أخي حمدي ؟

هذه قائمة بأنواع الحقول الرقمية وخصائص كل نوع

يستاهل المهندس قاسم 👍🏼😊🌹 الله يوفقك مهندسنا العزيز 🌸🌷🌹

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

بالعكس .. كان زكاة للوقت 😊 بارك الله فيك أخي حمدي 🌹

مبارك عليك الترقية أخي 🙂 @سامي الحداد وشهادة غالية من عمالقة المنتدى 🙂 وفقك الله وبارك الله لك في كل جزء من الثانية من حياتك 😊🌹

وعليكم السلام 🙂 جرب الآن .. If Len(Me.attach & "") <> 0 Then If Len(Dir(Me.attach, vbDirectory)) = 0 Then MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End Else .AddAttachment Me.attach GoTo Contenue End If End If If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbYes Then GoTo Contenue Else If Len(Me.attach & "") = 0 Then: MsgBox "يرجى إضافة المرفق", vbOKOnly + vbCritical: End If Len(Dir(Me.attach, vbDirectory)) = 0 Then MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End Else .AddAttachment Me.attach End If End If Contenue: flds("urn:schemas:mailheader:content-type") = "multipart/alternative" flds.Update .Send ارسال Moosak.rar

علشان تعمل هذي الخطوة .. لازم تحفظ القيم في جدول .. ولما يفتح أي نموذج ياخذ القيم من الجدول .. وهذي لحالها قصة ثانية 🙂 وأترك موضوعها للشباب .. لأني بكون مشغول خلال الفترة القادمة 😉🌹

وعليكم السلام أخي TQTHAMI 🙂 شكرا لك على دعواتك الطيبة ، وتقبل الله منا ومنك 🤲 تم التنفيذ ولله الحمد .. (ولكن بشرط أن تكون النماذج مفتوحة أثناء التغيير ) وهذه هي الدالة المستخدمة : Public Sub ChangeBtnPic(PicNum As Integer, BtnTag As Integer) On Error Resume Next Dim Frm As Form, ctl As Control For Each Frm In Access.Forms If CurrentProject.AllForms(Frm.Name).IsLoaded Then For Each ctl In Frm.Controls If ctl.ControlType = acCommandButton Then If ctl.Tag = BtnTag Then ctl.Picture = PicBt & PicNum & ".bmp" End If End If Next ctl End If Next Frm End Sub icon - Moosak.rar

وعليكم السلام ورحمة الله وبركاته أخي حمدي 🙂 تفضل هذا هو التعديل : If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbNo Then If Len(Me.attach & "") = 0 Then: MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End If Len(Dir(Me.attach, vbDirectory)) = 0 Then MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End Else .AddAttachment Me.attach End If End If

طبعا يمكنك تطبيقها أينما شئت ( نموذج / استعلام / تقرير /..... ) .. الفكرة تكمن في أنك تجعل مصدر بيانات العنصر الذي تريده سواء كان ( نموذج ، تقرير ) مصدره يكون استعلام يجمع الجدولين ( جدول الفصول وجدول الصفوف ) وبهذا نستطيع الحصول على الأرقام المقابلة لحقول النصوص لأسماء الفصول أو الصفوف .. وبكود بسيط ( نفس الموجود في مربع نص الفصول بالأرقام ) تجمع الأرقام وتجعلها بين قوسين 🙂 هكذا : "(" & [FosoolCbo].[column](0) & "/" & [SofoofCbo].[column](0) & ")" وفي حالة الملف الذي أرفقته .. يجب أن تجعل للتقرير مصدر بيانات ( استعلام ) يمكنك من خلاله أن تحدد الفصول المطلوب عرضها في التقرير .. وفي التقرير تجمع الأرقام بن قوسين .. أدري أن الشرح النصي يشتت .. لكن يحتاج أن ترتب برنامجك بالأول .. وتصمم النموذج اللي يفتح التقرير ويحدد الصف اللي تريد تطبعه في التقرير ( وهذا ليس محور حديثنا الآن ) 🙂 وبعدها نضبط التقرير 🙂

عذرا حصل خطأ مطبعي 😅🖐 نزله الآن من جديد من المشاركة السابقة ..

الآن صار الموضوع أسهل 🙂 تحويل النصوص إلي أرقام.rar

أعتقد أن الأكواد المستخدمة معقدة نوعاً ما 🙂 أنصح باستخدام أكواد أبسط منها والاستعانة بالدوال المتعارف عليها بدل دوال ال API . وجهة نظر 🙂

وعليكم السلام ورحمة الله وبركاته جرب الآن حسب فهمي المتواضع للشرح : 🙂 icon - Moosak.rar