Moosak

أخي فادي @fadi83 أهلا وسهلا بك في المنتدى 🙂 🌹🌼 نصيحتي لك الآن وفي المشاركات المقبلة أن تقوم بإرفاق نسخة من برنامجك ( الجزئية الخاصة باستفسارك فقط ) لكي تسهل الحل على الإخوة المساعدين .. ولكي تجد المساعدة بسرعة ودقة تناسب احتياجاتك 🙂👌🏻

وعليكم السلام أخي يوسف @يوسف محمد 555 🙂 أهلا وسهلا بك في المنتدى 🙂 🌹🌷🌼 الشرح بدون مرفق فيه صعوبة في فهم الموضوع وتصوره .. أقترح عليك أن ترفق نسخة من برنامجك + ملف الوورد حتى تسهل الموضوع على الإخوة وكي تجد الإجابة سريعا .. 😏

ما شاء الله تبارك الله أستاذ فادي @Foksh إبداع وتميز وجمال 🙂🌹 روعة التصميم ودقة التنفيذ تعبران عن حسك الفني الرائع وإتقانك البديع 🙂👌🏻 عندي ملاحظات تحسينية ليس إلا .. ولا تنقص من حجم العمل وروعته 🙂 : - هناك زري إغلاق (يمين ) و ( أعلى يسار ) أحدهما يغلق البرنامج ويخرج والآخر يقفل النموذج ويبقى الأكسس مفتوحا . - حبذا لو تضيف زر تصغير الشاشة للأسفل Minimize . حبذا لو تضيف خيار تشغيل البرنامج عند تشغيل الكمبيوتر ليعمل البرنامج مباشرة عند تحميل الويندوز . استفسار : ما الداعي لإعادة تشغيل البرنامج بعد تغيير الإعدادات ؟ أليست تتطبق بعد حفظها مباشرة ؟ 🙂

أسعد الله صباحك عمي @ابوخليل 🌹 إبدعت وأجملت 👍🏻🙂 .. حاولت بالطرق السهلة أن أحصل على القيمة السابقة للعمود الثاني ولكن لم أفلح .. ولم أجد خاصية مدمجة تدعم ذلك .. لذلك حسب ما أرى أنه يمكن التغلب على هذه القضية بأحد حلين .. الأول : الطريقة التحايلية بحيث يتم تخزين القيمة السابقة في متغير ثم يتم استدعائها عند الحاجة .. الثاني وهذا ما عملت به في برنامجي سابقا : أن يكون تسجيل التغييرات على مرحلتين .. الأولى : عند إضافة سجل جديد حينها ستتخزن القيمة كإدخال جديد . الثانية : عند تغيير القيمة لاحقا أو عند التعديل ستتخزن القيمة الجديدة فقط ولكن حينها يمكن الرجوع للقيمة القديمة من خلال سجل التعديلات السابقة 🙂 وهذا شكل سجل التعديلات من برنامجي : ستلاحظ أن هناك تعديلات مكتوب عليها (تم إضافة: ...) وأخرى مكتوب عليه ( قام بتعديل : من ... إلى: ..... ) وهذا ينطبق على مربعات النص والقوائم المنسدلة .. إلا أن القوائم المنسدلة متعددة الأعمدة تكتب ( تم التعديل إلى : ... ) فقط هكذا :

مبارك عليك أخي @محمد احمد لطفى 🙂🌹 وفقك الله أينما حللت 🌼🤲🌼

بالنسبة لهذه النقطة عمي @ابوخليل جرب هذه الطريقة للحصول على القيمة النصية بدل الرقمية من النموذج : ' تعطيك القيمة النصية الظاهرة Me.ComboBox.Text ' تعطيك القيمة الرقمية أو الحقيقية للحقل Me.ComboBox.Value 🙂 كم أن لدي نموذج إجتهدت عليه سابقا لتسجيل التغييرات بكل التفاصيل التالية : وسأعرضه لاحقا إن شاء الله للاستفادة 🙂

يمكن الخروج من هذا التعقيد كله بطريقة سهلة 🙂 وذلك بجعل حقل النص من نوع : Long Text وضبط الخيار Text Format إلى : Rich Text ... كما هو واضح في الصورة .. وبعدها ستتمكن من إظهار مربع الخط والألوان بمجرد تظليل النص المراد تنسيقه 🙂 وستتخزن التنسيقات تلقائيا في الجدول .. تنسيق الخط والألوان.accdb

نعم ممكن .. وله طرق متعددة لتنفيذه .. منها أن تحول هذه الأكواد لكودين منفصلين .. وقبل أن تنادي الأكواد تضع متغير يحصي عدد السجلات التي وضع لها علامة الصح DCount، فإن كانت أكبر من واحد فمعناه أن أحد الحقول تم تحديده لذلك ينادي كود إلغاء التحديد للكل .. وإذا كان عدد الحقول المحددة صفر فينادي على كود تحديد الكل .. 🙂

العفو أخي كريمو 🙂🌼

هذا يعمل جيدا مع أوفيس 365 👍🏻😉

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل : Verment.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 هذا الكود لعمل تحديد الكل : Private Sub btnSelectAll_Click() Dim strSQL As String ' SQL statement to update the "select" field to True strSQL = "UPDATE YourTableName SET [select] = True" ' Execute the SQL statement CurrentDb.Execute strSQL ' Refresh the form to reflect the changes Me.Requery End Sub وهذا لعمل إلغاء تحديد الكل : Private Sub btnDeselectAll_Click() Dim strSQL As String ' SQL statement to update the "select" field to False strSQL = "UPDATE YourTableName SET [select] = False" ' Execute the SQL statement CurrentDb.Execute strSQL ' Refresh the form to reflect the changes Me.Requery End Sub استبدل "YourTableName" باسم الجدول لديك واستبدل "select" باسم حقل الاختيار

السجلات مسرودة بشكل رأسي عمودي .. ماذا تقصد بيمينا ويسارا ؟ ممكن توضح أكثر ؟

وهناك مشاركة في موضوع مشابه للباش مهندس محمد عصام @ابو جودي هنا:

ولمجرد المشاركة هذه فكرتي لتحويل الأيام إلى سنوات وشهور 🙂 تعتمد الفكرة على إضافة عدد الأيام المعطى لتاريخ اليوم ثم يتم حساب الفترة بين التاريخين ( من تاريخ اليوم وحتى عدد الأيام المعطاه ) بدون الحاجة لافتراض أن الشهر 30 يوم ، بل يتم الحساب بعدد الأيام الفعلية للأشهر المقبلة. Public Function DaysToYMD(NumberOfDays As Long) As String 'لتحويل الأيام إلى سنوات وشهور وأيام Dim EndDate As Date Dim years As Integer Dim months As Integer Dim days As Integer Dim intH As Integer 'إضافة عدد الأيام لليوم الحالي EndDate = DateAdd("d", NumberOfDays, Date) ' حساب المدة بين التاريخين intH = Int(DateDiff("m", Date, EndDate)) + _ (EndDate < DateSerial(Year(EndDate), Month(EndDate), Day(Date))) years = Int(intH / 12) months = intH Mod 12 days = DateDiff("d", DateAdd("m", intH, Date), EndDate) DaysToYMD = years & " سنة و " & months & " أشهر و " & days & " يوم" 'MsgBox " المدة : " & DaysToYMD End Function طريقة الاستخدام هكذا : DaysToYMD(500)

هذه فكرتي 🙂 .. Database.rar

وعليكم السلام 🙂 ممكن تستخدم هذا الكود لتوحيد الحروف ثم تبحث : دالة لاستبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عمليات البحث وتلافي أخطاء الكتابة الكود: Public Function ReplaceArabicLetters(strText As Variant) As String ' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة ' أ،إ،ا =(تحول إلى)=> ا ' ي،ى =(تحول إلى)=> ي ' ـه،ـة =(تحول إلى)=> ـه ' Moosak strText = Nz(strText, "") strText = Replace(strText, "أ", "ا") strText = Replace(strText, "إ", "ا") strText = Replace(strText, "آ", "ا") strText = Replace(strText, "ى", "ي") strText = Replace(strText, "ة", "ه") ReplaceArabicLetters = strText End Function طريقة الاستدعاء (الاستخدام): ReplaceArabicLetters("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم") النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

حبيبنا @Foksh أقترح عليك أن تضع آخر نسخة بالتحديثات وسنقوم بتحديثها في المشاركة الأولى .. وذلك لتسهيل العمل على المستفيدين والمتعلمين أمثالنا

أستاذ @Foksh أين وضعت الملف المحدث ؟ 🙂

طيب أنظر إلى هذه الفكرة :

أخي إياد المثال الذي أرسلته غير واضح .. من خلال هذ الملف .. كيف يفحص المرسل أن المرسل إليه قرأ الرسالة ؟ وكيف يطلع المرسل إليه على الرسائل الواردة ؟ + محرر الأكواد مغلق برقم سري !! 🙂

الأمثلة كما رأيت كثييييييييييييرة لا تعد ولا تحصى .. أرفق ملفك الذي تعمل عليه لكي يوافق الحل ما تطلبه مباشرة 🙂 وهذه أحد الأفكار : التنسيق الشرطي حسب الحالة.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 وكفكرة أخرى إضافة لفكرة والدنا العزيز @ابوخليل .. ممكن تعمل حقل اسمة Status أو الحالة ( تم الإرسال - تمت القراءة - غير مقروء ) أو شيئ من هذا القبيل .. وفي الخلفية مربع نص تعمل عليه تنسيق شرطي .. لو الحالة = "تم الإرسال" يتلون أخضر ... ولو الحالة = "غير مقروء" يتلون أحمر .. مثلا 🙂

السلام عليكم 🙂 أعتذر أنا دخلت عرض في الموضوع 😅🖐🏻 ما رأيك في هذه الطريقة لاستعراض الملفات الموجودة في مجلد البرنامج ؟ وهذا الموضوع مرجع لك : OpenFolders.rar

عمل راااائع ما شاء الله تبارك الرحمن أخي @Foksh عندي سؤال : لماذا لم تحفظ الترجمة في جدول بالبرنامج بدل حفظها في ملفات خارجية ؟ 🙂 ثانيا : أضفت لمسة للبرنامج وهي أنه يقوم بإعادة تشغيل البرنامج تلقائيا بعد اختيار اللغة المطلوبة 🙂 وذلك باستخدام هذا الكود : Sub RestartAccess() Dim vbsFilePath As String vbsFilePath = CurrentProject.Path & "\Restart.vbs" ' Change the file path as needed Dim vbsContent As String vbsContent = "WScript.Sleep(2000)" & vbCrLf & _ "CreateObject(""Shell.Application"").Namespace(0).ParseName(""" & CurrentProject.FullName & """).InvokeVerb ""Open""" ' Create the VBS file and write the content Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim vbsFile As Object Set vbsFile = fso.CreateTextFile(vbsFilePath, True, False) vbsFile.Write vbsContent vbsFile.Close ' Shell execute the VBS file to restart Access Shell "wscript.exe """ & vbsFilePath & """", vbNormalFocus ' Exit Access Application.Quit End Sub Change Language.zip