Foksh

بناء على استعلامات أخي @عبد اللطيف سلوم ، فكرتك كانت في 3 استعلامات منفصلة ، وخطر ببالي استعلام توحيدي واحد يجمعهم معاً لتحقيق الهدف . SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours1 AS cours_name, hol.yearcours1 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours1 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours2 AS cours_name, hol.yearcours2 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours2 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours3 AS cours_name, hol.yearcours3 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours3 Is Not Null;

أخي لو لم تتم التجربة لما ارفقت الملف لك تفضل ، Dim FolderA As String FolderA = BookName.Value If Len(Dir(CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA, vbDirectory)) > 0 Then Shell "explorer.exe """ & CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA & """", vbNormalFocus Else MsgBox "المجلد غير موجود", vbExclamation End If ضع هذا الكود في أي زر أو حدث تريده

وهذه مشاركتي مع الأستاذ @عبد اللطيف سلوم . تم بناء استعلام توحيد وبناءً ، وتم بناء التقريرين عليه . الأول حسب المدرس ، والثاني حسب السنة Stu.accdb

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

في كلمة فيديو اخي الكريم 😁 و أيضاً تفضل https://www.mediafire.com/file/0wkox54o9b53q9e/ISO_Craft.mp4/file

😅 حاااضر ، تفضل هذا الملف مع التعديل بناءً على طلبك . CreateFolder.accdb

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

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

تفضل يا صديقي. هذا رابط فيديو ، اتبع نفس الفكرة بأي انواع ملفات تريدها 🤗

اذا كان عندك نسخة اوفيس 2016 بصيغة iso ، فقط قم بنسخه الى ذاكرة الهاتف وكما في الصورة السابقة اختر الملف وقم بتشغيل النظام.

نعم اخي @loay77 ، باستخدام برنامج iso craft نستطيع انشاء اسطوانات بصيغة iso ، ثم إضافتها الى البرنامج الرئيسي هي هذا الجزء

تفضل أخي @ازهر عبد العزيز 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

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

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

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