Moosak

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

السلام عليكم إخواني الأعزاء ... لدي قاعدة بيانات وظيفتها صناعة وطباعة شهادات المشاركة للمتدربين وإرسالها لهم بالبريد اللأكتروني .. أو حفظها كملفات 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

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

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

...

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

أكيد طبعا أستاذنا الغالي @ابا جودى 😄

حياك الله وبياك جعفر 😄 🌹 بصراحة أحس بالأنس وانت موجود في المنتدى 👍🏼😁 وشكرا على النصيحة 🌹