Moosak

جرب وسيختلف ظنك ... 😉 هذا هو الكود كاملا : 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

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

اخترعت لك هذه الدالة 😁 Public Function ChangeImageName(FullPath As String, NumberPlus As Integer) As String Dim FileName As Integer Dim NewName As Integer FileName = CInt(Left((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), InStr((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), ".") - 1)) NewName = FileName + NumberPlus ChangeImageName = Replace(FullPath, FileName, NewName) End Function وظيفتها أن تقوم بزيادة أو تنقيص الرقم في اسم الصورة .. ( أنت تحدد الرقم بالزيادة أم النقصان 🙂 ) تضعها في استعلام تحديث .. وتضع مكان (تحديث إلى:) تحت حقل مسار الصور الدالة بهذه الصورة : ChangeImageName([Image];1) بحيث مكان الرقم 1 تضع الرقم الذي تريد زيادته ، وإذا بالقصان تضع (-1) مكان الرقم 1 .. وهذا مثال لما تصنعه هذه الدالة : (مرفق لك الملف ) ImagesCorrection.accdb

تفضل أخي أبو عبدالله .. 99.accdb

السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb

ما شاء الله عليك يا باش مهندس .. ما لاحقين عليك من كثر الأفكار والروائع اللي تتحفنا بها كل يوم 😅 الله يزيدك من علمه وتوفيقه ..

للأسف لن أتمكن من عمل نموذج خلال هذه الفترة فمنك العذر .. وسينبري لهذه المهمة خبراء المنتدى إن شاء الله 💪🏼