Moosak

أكتب هذه المعادلة في مربع نص غير منظم .. أو في الاستعلام : = Day([Date]) على أن Date هو حقل التاريخ المراد حسابه ، وإن كنت تريد حساب عدد الأيام المنقضية من الشهر الحالي .. تكتبها هكذا : = Day(Date())

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

أستاذنا العزيز @ابا جودى .. أنت انسان محترف ما شاء الله عليك .. وأنا فهمت فكرتك من عدد الجداول الكثيرة هذا .. 😄 أحسب أنك وضعت تصور للحالات المستقبلية التي تسهل للمستخدم استخدام البرنامج واختلاف ضروف كل دورة بحيث تكون المعطيات (المتغيرات) متوفرة يصل لها المستخدم بضغطة زر بدل إعادة كتابتها من جديد .. وهذا فكر مستقبلي متوسع ، أي أنك تعطي المستخدم أكثر مما يطلبه .. وهذه هي روح الإبداع .. 😉 ولكن هناك ميزة سقطت سهوا في نموذجك نحتاج إليها في محل عملنا وهي خاصية ( النص المنسق ) ، بحيث تمكن المستخدم من تنسيق وتضبيط الخطوط وألوانها بنفسه .. وهذه الميزة هي من أساسيات فكرة البرنامج الذي نحتاجه 😅 ، حيث أنني في برنامجي الحقيقي أضفت للمستخدم إمكانية تحميل الخلفية (الإطار) اللذي يريده وليس ذلك اللذي في التقرير فقط .. 🙂 وكانت تنقصني هذه الآليتين ( حفظ الجميع ك PDF و إرسال الجميع كبريد إلكتروني ) ، ... أما الأولى فقد حليتها أنت بارك الله فيك .. وأما الثانية فأعتقد أنه يمكن حلها بنفس الآلية الأولى ولكن نستبدل كود التصدير للـPDF بكود إرسال الإيميل : DoCmd.SendObject acSendReport, "CertificatesR", "*.PDF", Me.Email, , , Me.Subject, Me.Message, False, False هذا حسب علمي القاصر .. وإلا فأنتم أهل الخبرة ..

بارك الله فيك أخي العزيز .. بانتظار تطبيقك على بركة الله .. على الملف الأخير الذي أرسله أستاذنا @ابا جودى ..

أحيانا السبب هو أن نسخة الآوتلوك قديمة يحتاج تعمل لها تحديث .. أو تحذفها وتنزلها من جديد.. حصلت معي سابقا ..

جرب وسيختلف ظنك ... 😉 هذا هو الكود كاملا : DoCmd.SendObject acSendReport, "ReportName", "*.PDF", "ABCDEF@GMAIL.COM", , , "Subject", "Your Message here...", False, False طبقه عندك وأخبرنا بالنتيجة

تفضل أخي علي .. Nouveau Microsoft Access Database (7).accdb

هذا الكود DoCmd.SendObject يغنيك عن الحفظ في الجهاز .. فهو يقوم بالإرسال مباشرة عن طريق قاعدة البيانات

الله الله الله عليك يا مبدعنا يا مهندس يا محمد عصام ... الحقيقة أنا معجب جدا جدا باهتمامك بأدق التفاصل وإخلاصك في إخراج العمل بصورة مشرفة .. 😄 .. كل التقدير لك 🌹 أنا يكفيني أن أعبر عن إعجابي بعملك فقط بمجرد النظر إلى هذه الخارطة الجميلة الرائعة 😃 : جزاك الله كل خير أستاذي العزيز @ابا جودى .. وأحسن الله إليك .. ومتعنا الله بعمرك وعلمك ودوام الصحة لك 🌹 فقط تتبقى لدينا جزئية الإرسال بالإيميل ... وكفكرة هناك طريقة من إثنتين ( أو كلاهما 🙂 ) : 1- الطريقة الأولى : إرسال الشهادات مباشرة عن طريق تحويلها PDF وإرسالها وأعتقد هذه يمكن عملها عن طريق .. DoCmd.SendObject 2- الطريقة الثانية: حفظ الشهادات كملفات PDF ( وهو ما قام به أخي العزيز الأستاذ @ابا جودى ) .. ومن ثم كود إرسال إيميل وجعل المرفق هو ملف ال PDF الذي تم حفظه مسبقا .. أعلم المطلوب .. ولكن يصعب علي التطبيق 😅

أكيد .. أنت فارس الميدان 😁

السلام عليكم إخواني الأعزاء ... لدي قاعدة بيانات وظيفتها صناعة وطباعة شهادات المشاركة للمتدربين وإرسالها لهم بالبريد اللأكتروني .. أو حفظها كملفات PDF أو طباعتها مباشرة ... وهذا شكلها (نموذج) : بعد تعبئة البيانات وإضافة أسماء المتدربين وبياناتهم ثم الضغط على زر [ عرض الشهادات] يتم فتح التقرير الذي يحوي تصميم الشهادات مع البيانات هكذا : المطلوب وكما هو موضح لديكم : 1- طريقة لإرسال جميع الشهادات لجميع المتدربين كل في بريده الإلكتروني ومرفق معه شهادته فقط بصيغة PDF... 2- إمكانية جعل نص الرسالة وعنوانها تقرأ من مربعي النص اللذان بالأسفل كما هو واضح لديكم في الصورة الأولى .. 3- طريقة لحفظ الشهادات بشكل متفرق .. كل شهادة في ملف PDF باسم المتدرب ورقمه الوظيفي . أنتم لها وهي لكم 😄💪🏼 ولكم مني أجمل تحية ،، (مرفق لكم قاعدة البيانات ) إرسال شهادات المتدربين بالإيميل.accdb

من هنا يمكنك اختيار الأنماط والتنسيقات ..

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

لله درك أخي ناقل .. أصبت عين الطلب 👍🏻😃 شكرا لك بحجم السماء ، وجعله الله في ميزان حسناتك 🌹 سؤال : هل هناك طريقة لفصل الأسماء من حقل القائمة المتعددة عن طريق الاستعلامات دون الحاجة لإنشاء جدول جديد ؟

أمورك طيبة الحبيب 👍🏼

قاعدة البيانات بكبرها ما تفتح على الأكسس نسخة 365 😅

استخدم هذا الكود لربط الواجهة بالجداول في ال Back End : On Error GoTo ErrHandler '----------------------------------------------------------- ' File Dialog Code Starts '----------------------------------------------------------- Dim fd As FileDialog Dim filedialogPath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = ChrW("1581") & ChrW("1583") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1604") & ChrW("1601") & ChrW("32") & ChrW("1602") & ChrW("1575") & ChrW("1593") & ChrW("1583") & ChrW("1577") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") fd.InitialFileName = CurrentProject.path & "\ChatAppDB.accdb" fd.Filters.Clear fd.Filters.Add "Access DataBase", "*.accdb" If fd.Show = True Then filedialogPath = fd.SelectedItems(1) Else MsgBox ChrW("1604") & ChrW("1605") & ChrW("32") & ChrW("1578") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1576") & ChrW("1578") & ChrW("1581") & ChrW("1583") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1604") & ChrW("1601") Exit Function End If '----------------------------------------------------------- ' From Here Relinking Starts '----------------------------------------------------------- Dim path As String Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database path = filedialogPath Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & path tdf.RefreshLink End If Next MsgBox ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1578") & ChrW("1589") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1576") & ChrW("1606") & ChrW("1580") & ChrW("1575") & ChrW("1581") DoCmd.Close DoCmd.OpenForm "LoginF", acNormal Exit Function ErrHandler: MsgBox "Error Number : " & Err.Number & " / Error Description : " & Err.Description ولا تنس كتابة كلمة المرور مكان الأصفار هنا : Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000")

تقصد في الفورم ؟ التاريخ يهر عندي بشكل جيد .. ربما المشكلة في إعدادات اللغة والوقت الإقليمية في جهازك .. تأكد أنها عربي(اسم دولتك) ...

ما يفتح في الإصدارات الجديدة أخوي جعفر

تكتب اسم الدالة في منشئ التعبير هكذا : Calcdiffy(vdate1 As Date, vdate2 As Date) بعدها تقوم بوضع المتغيرات .. vdate1 و vdate2

تفضل أخي .. عملتها لك بشكل آخر عن طريق السب فورم .. وتعطيك نفس النتيجة 1234.accdb

تفضلي أختي .. الكود يعمل عند إغلاق النموذج وليس البرنامج .. test.rar

هذا بالضبط ما تفعله المعادلة .. في الصورة التي أرسلتها لك 3 أعمدة .. الأول هو الرابط الأصلي ... الثاني الرابط بعد الزيادة (بعد تطبيق المعادلة عليه ) ... الثالث الرابط بعد النقصان (بعد تطبيق المعادلة عليه ) .... أنت لن تحتاج الاستعلام المسمى ExampleQ .. فقد وضعته لك كمثال .. أنت ستشغل الاستعلام UpdateQ وستتعدل الروابط تلقائيا في الجدول ..

تفضل أخي العزيز .. منع حذف اول سجل.accdb

العفو أخي العزيز 🌹