ابو عارف

ArabicDigits =Chrw(1632) & Chrw(1633) & Chrw(1634) & Chrw(1635) & Chrw(1636) & Chrw(1637) & Chrw(1638) & Chrw(1639) & Chrw(1640) & Chrw(1641) الصق هذا بدل أرقام عريي وهذا تعديل على ملف تحويل الارقام من العربية الى الانجليزية.xlsm

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

تم حذف مشاركة

تم حذف مشاركة

تم حذف مشاركة

تم حذف مشاركة

السلام عليكم و رحمة الله و بركاته أخي محمود بشكل افتراضي الاكسل يكتب ارقام انجليزي عند كتابة لغة العربية الا في حالة تغير اعدادات لغة في ويندوز كما في الصورة في الحالة هذا لايمكن تغير أرقام الى الانجلزية حسب معلوماتي، و اما اذا غيرت خيارين الى: وتريد تحويل ارقام الى عربية هذا ممكن سواء بالكود أو بالتعبير أو بتنسيق.

وعليكم السلام و رحمة الله و بركاته ا ولكن طلبت تحويل من العربي الى انجليزية، هل هاذا ما تريده ام عكس من انجليزي الى العربي وثانيا هل تريد تنفيذ الكود في حدث بعد تحديث TextBox2 ولا عند ضغط على زر أمر حفظ

و عليكم السلام عملت ملف تنفيذي بواسطة برنامج وينرار علي كل صيغتين accdb و accde يعمل بدون اي مشكلة.

السلام عليكم اخي اليك التعديل حسب فهمي من السؤال انت عملت كود للإستخراج عدد ايام غياب و آخر لإستخراج تواريخ غياب في ورقة Dat ثم نسخه الي ورقة sheet1 وفي الحالة يمكن تتغير فرز خلايا بيانات و لصق خلايا خاطئة و في التعديل عملت كود واحد في sheet1 لإستخراج ايام غياب و التاريخ معا و في نفس الوقت. FilterForm.zip

وعليكم السلام و رحمة الله و بركاته جرب هذا تعديل DoCmd.RunSQL "UPDATE tbl_student1 SET tbl_student1.[Case] = 'منقول';"

وعليكم السلام اجعل محاذاة نص" يمين" في جدول مصدر تكست باكس

وعليكم السلام لاحظ تغير في سطر سابع Dim msg1 As String Dim ctl As Control Dim birthDateControl As Control Set birthDateControl = Me.m For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If (IsNull(ctl) Or ctl = "") And ctl.Visible = True Then Debug.Print ctl.Name If msg1 = "" Then msg1 = "لا يمكن الاستمرار توجد حقول فارغه " & vbNewLine & ctl.Name End If End If End If Next ctl If birthDateControl.Visible = True And (IsNull(birthDateControl) Or birthDateControl = "") Then msg1 = "لا يمكن حفظ البيانات، تاريخ الميلاد فارغ." & vbNewLine End If If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تـمـت عـمـلـيـة تعـديــل المـعـلـومـات بنجـــــاح", vbMsgBoxRight, " " DoCmd.GoToRecord , , acNewRec Else MsgBox msg1 & vbNewLine & "الرجاء اكمل المعلومات", vbMsgBoxRight, "بلدية سطيف" End If

وعليكم السلام اكتب معادلة تالية في مصدر بيانات حقل النصي =year([حقل التاریخ])

تفضل أخي ها احدمحاولات , يعرض لك رسالة سنين مفقودة test2023_2.accdb

السلام عليكم و رحمة الله و بركاته هذا تعديل حسب فهم مسن آخر اظهار السجل الحالي فقط.zip

اجعل مصدر تقرير استعلام اجمالي PAYMENTS (1).accdb

السلام عليكم و رحمة الله و بركاته استاذ محمد ، غير مصدر مربع "نص14" الى: ="صفحة " & [Page]\2+1 & " من " & [Pages]\2+1

جرب هذا DoCmd.SearchForRecord , "", acFirst, "[ID]='" & Str(Nz(Screen.ActiveControl, 0))&"'"

3131323.accdb

السلام عليكم وهذا احد حلول 3131323.accdb

وعليكم السلام جرب التعديل Report2.rar

جميع سجلات نموذج فرعي معروضة لو تريد تصفية نموذج فرعي نفس تقرير جرب المرفق Report.rar

تفضل أخي الكريم Report.rar

تفضل أخي Sample filter.accdb