Foksh

ومشاركة جانبية .. استخدم هذا الكود في مديول :- Function ConvertDateToText(dateValue As Date) As String Dim dayText As String Dim monthText As String Dim yearText As String dayText = Choose(Day(dateValue), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة", "عشرة", "أحد عشر", "اثنا عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", "تسعة عشر", "عشرون", "واحد وعشرون", "اثنين وعشرون", "ثلاثة وعشرون", "أربعة وعشرون", "خمسة وعشرون", "ستة وعشرون", "سبعة وعشرون", "ثمانية وعشرون", "تسعة وعشرون", "ثلاثون", "واحد وثلاثون") monthText = Choose(Month(dateValue), "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") yearText = Choose(Left(Year(dateValue), 1), "ألف", "ألفان") & " و" & Choose(Right(Year(dateValue), 1), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") & " وعشرون" ConvertDateToText = dayText & " " & monthText & " " & yearText End Function وفي أي نموذج استدعي الكود في أي مربع نص كمثال :- Private Sub Text_Date_AfterUpdate() Dim myDate As Date Dim formattedDate As String myDate = Me.Text_Date formattedDate = ConvertDateToText(myDate) Me.Text_Result = formattedDate End Sub أيضاً يمكنك استدعاء الدالة فقط بهذه الطريقة :- Me.Text_Result = ConvertDateToText(Me.Text_Date) ConvertDateToText.accdb

لك حرية التغيير حسب حاجتك

أشكر مرورك أخي الكريم ، ولكن يبدو أنك لم تقم بالعمل على البرنامج

بما ان المشاركة تمت الإجابة عنها الآن ، فاقتراحي وملاحظتي كانت مستقبلاً أخي @ازهر عبد العزيز . على العموم لست ملزم ولكنه اقتراح . استدعاء كود الصوت بناءً على الزر النشط دون تكرار الكود

أخي @ازهر عبد العزيز شكراً لك تقييم الإجابة ، وتقبلني بملاحظة بسيطة . اعط العنوان حقه في شرح أو توضيح المشكلة بشكل أفضل لتسهيل البحث عنه من قبل زوار ومنتسبي المنتدى 🥰

اخي العزيز @abouelhassan فكرتك جميلة إن كانت من الكماليات.. 😊 بدايةً انت تعلم ان اكسيس لا يتعامل مع الصور المتحركة من نوع Gif بشكل مباشر إلا عن طريق WebBrowser ، ولا أعتقد أن النتيجة قد تعجبك بعد فترة لإن الأمر سيربك النظام بين التحريك للماوس وعدمه والنقر على أي مفتاح أو عدمه ( سيتسبب ذلك ببطىء النتيجة لاحقاً 🤗 ) لكن تستطيع تنفيذ الفكرة ذاتها بأن يتم فتح نموذج يطلب فقط كلمة المرور لنفس المستخدم الحالي أو إغلاق النظام . مجرد رأي طبعاً 🥰

بما انك تبحث عن عمل يدوي ، انصحك باستثمار الوقت والبدء بكتابة الأسماء العربية ونظيرها بالفرنسية 😅 لدي فكرة قام بها أخي إياد من العراق سابقاً واستغرقه الأمر تقريباً اسبوعين لحصر أكثر من 2500 اسم عربي و انجليزي لتنفيذ نفس الفكرة إن سمح لي بنشر ملفه فسأرفق المشاركة هنا لاحقاً 🤗

ممكن توضح لنا أكثر ، لانه لا علاقة بين مشاركه صاحب الموضوع ومشاركتك . ويفضل فتح موضوع جديد بطلبك مع إرفاق ملف 😊

جرب هذا التعديل اخي الكريم ، Sub XY1(soundFileName As String) My.Computer.Audio.Play("sounddd\BookName\" & soundFileName & ".wav", AudioPlayMode.Background) End Sub Private Sub Button1_Click() XY1 "1" End Sub طبعاً لك حرية التعديل على "1" بمثلاً اسم مربع النص في حدث الزر ..... إلخ وأخبرني بالنتيجة 😊

بارك الله فيك أخي @ABBO ، ورحم والديك وغفر لك ولهم ولعامة المسلمين . تم تعديل ملفات الرابط في المشاركة السابقة

اقترب عيد المسلمين مودعين به شهرهم الفضيل أعاده الله علينا وعليكم باليمن والبركات . وتقبل الله منا ومنكم الطاعات وصالح الأعمال . وسأختم به آخر تعديل على هذا المشروع البسيط ؛ متمنياً أن يكون على قدر الجهد المبذول فيه . وأعتذر بداية عن التأخير في انهاء العمل عليه ، ولكن لضيق الوقت ليس إلا . اليوم انهيت تأسيس الأساسيات في برنامج إدارة الحضور والإنصراف الذي يعمل بنظام بصمة الـ QR . وسأذكر بالتفصيل البسيط ما تم إضافته . الإضافات في النماذج :- ربط قارىء QR يعمل عن طريق الـ USB أو عن طريق الجوال بالنظام . دعم كامل لللغة العربية في قراءة رمز الإستجابة السريعة QR . اعتماد اسم الموظف بالإضافة الى رمز الـ QR . نظام التنبيه لضبط الإعدادات الرئيسية في البرنامج عند تشغيله أول مرة . إحصاء لعدد الموظفين ، الحضور ( على رأس عملهم ) ، المجازين ، المغادرات خلال اليوم . ترحيل بيانات الإجازات والمغادرات والحضور بشكل شهري ( بداية كل شهر ) . الإضافات في الأكواد :- تمت مراجعة جميع الأكواد من أي خطأ محتمل في التنظيم أو آلية العمل . تم إضافة فكرة تثبيت برنامج الربط Barcode2Win من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع

اخي الكريم أهلاً وسهلاً بك في مجتمعنا المتواضع ، اذا كان هناك مشكلة يرجى منك توضيحها لأن العنوان لا يدل على ان كان هناك مشكلة أم أنها مشاركة منك ومساهمة

مشكور أخونا @عبد اللطيف سلوم على الشرح المبسط

شرفتنا بمرورك العطر أخي @علي بطيخ سالم 💐 ولكم من الدعاء أكثر مما دعيتم 🤲

يا أهلاً بجيران الرضا ، نورتمونا يا أستاذنا @حسونة حسين .. جعل الله لكم من الدعاء أضعاف مضاعفة وسنحاول إن شاء الله تطبيق الفكرة على نسخة ويندوز 64 إن شاء الله

أخي @gavan ، في المثال الذي أرفقته مع الكود في مشاركتي ( إضافة كلمة إلى القيمة الموجودة في السجل ) وليس استبدال القيمة في الحقول كاملةً .

تفضل أخي @salah.sarea ، هذا الكود لإضافة كلمة تحددها في النموذج الى جميع السجلات في الجدول الذي تختاره ، طبعاً باستثناء حقل الترقيم التلقائي :- Sub AddWordToAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToAdd As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToAdd = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields If fld.Name <> "ID" And fld.Name <> "RecordID" Then strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = IIf([" & fld.Name & "] Is Null, '" & " " & strWordToAdd & " " & "', [" & fld.Name & "] & '" & strWordToAdd & "')" db.Execute strSQL End If Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تمت إضافة الكلمة بنجاح إلى جميع الحقول في الجدول" End Sub Add_Word.accdb

القيمة Null هي قيمة غير معروفة أو مفقودة لذلك نستخدم معها الدالة Null Zero (nz) لتعود لنا بقيمة معلومة يتم تحديدها أو كما تفضلت بالقيمة "" والتي قد تساوي 0 . اما Empty فهي باعتقادي للدلالة على متغير لم يتم تحديد قيمته ( الكيس الفارغ المفتوح ) أي قيمة قابلة للتغيير .