Foksh

تفضل أخي @ازهر عبد العزيز Public Sub CreateDataFolder() On Error Resume Next Dim FolderA As String FolderA = Forms(frm).Controls("BookName").Value If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path "\Libraries\Library1\BOOKS\" & FolderA End If End Sub

التأكد من وجود المجلد الرئيسي Libraries بجانب قاعدة البيانات اينما كانت ، في حال عدم وجوده يتم انشاء المجلد ، وهكذا باقي الجمل الشرطية ..... 😊

بسيطة اخي @ازهر عبد العزيز جرب هذا التعديل ، تقدر تستخدم المديول في أي مكان وفي اي نموذج 🤗 باستخدام كود الدالة التالي :- Public Sub CreateDataFolder() On Error Resume Next Dim FolderA As String Dim FolderB As String Dim FolderC As String Dim FolderD As String Dim FormsName As String FolderA = "Libraries" FolderB = "Library1" FolderC = "BOOKS" FormsName = frm.Name FolderD = Forms(frm).Controls("BookName").Value If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & FolderA If Len(Dir(FolderB, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\Libraries\" & FolderB If Len(Dir(FolderC, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\Libraries\Library1\" & FolderC If Len(Dir(FolderD, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderD End If End If End If End If End Sub Libraries.accdb

ومشاركة مع الأخوة والأساتذة:- Private Sub StudentName_BeforeUpdate(Cancel As Integer) If DCount("*", "Student_Tbl", "StudentName = '" & Me.StudentName & "'") > 0 Then MsgBox "اسم الطالب موجود بالفعل في الجدول.", vbExclamation, "تكرار الاسم" Cancel = True End If End Sub

وعليكم السلام ورحمة الله وبركاته.. Sub CreateFolder() Dim folderPath As String Dim folderName As String folderPath = "C:\Libraries\Library1\BOOKS\" folderName = Me.TextBox1.Value MkDir folderPath & folderName End Sub فقط قم بتغيير اسم مربع النص TextBox1 واستدعِ اسم الدالة CreateFolder في الزر 😊 وكل عام وأنتم بخير 💐

ما شاء الله ، عمل جميل أخي إياد ، جزاك الله كل خير 🥰 لاحظت انك دمجت العمل بين الـ VBA والـ Macro

دائماً أول خطوة تأكد من لغة اليونيكود في الويندوز .

اقرأ هذا الموضوع قد يفيدك ويعجبك 🥰

جزاك الله كل خير أخي @عبد اللطيف سلوم ، هل برأيك أن الإعتماد على الذكاء الاصطناعي يغني عن الدراسة أو المهندسين وأصحاب الخبرة في مجال الآكسيس ؟؟

كلامك سليم 100% ، اعتبر آكسيس حاله حال أحد الشعراء ( فيحق للشاعر ما لا يحق لغيره ) ولأجل الأخ @Eng.Qassim ، استبدل هذا التعديل البسيط للكود في المديول :- 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

ومشاركة جانبية .. استخدم هذا الكود في مديول :- 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 من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع