ولد المجرب

السلام عليكم هذا المرفق بعد التعديل حسب فهمي لما تريد (زر اضافة سجل جديد) هو اساس العملية حيث سيتم ترقيم متسلسل لرقم الفاتورة 1000 - 1001 -1002 وهكذا وفي الفورم الفرعي سيبداء الترقيم من 1 مع كل ضغطة زر ادراج سجل جديد شاهد المرفق 11.rar

هنا

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

الاستعلام الحالي يجلب البيانات جميعها لانه لا يوجد معيار يحدد البيانات المطلوبة الرجاء التوضيح اكثر

اليك هذا الحل مقدم من قبل الاستاذة ام عهود من هنا

هل تقصد هكذا تثبيت التاريخ.rar

جرب هذا التعديل ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte, ByVal Ndec_pl As String, ByVal dsx As Boolean) As String Dim Td$, dwow$, Td1$, R As Integer On Error GoTo 1 If co = 0 T…

هذا الموضوع مكرر وقد تم اضافة رد في الموضوع الاخر

السلام عليكم شاهد هذا الرابط

بارك الله فيك استاذة زهرة شرح وافي

السلام عليكم هذا تعديل ليتم كتابة رقم الشهر وليس اسمه Private Sub mon_AfterUpdate() Dim MyArr As Variant, i As Integer VBA.Calendar = vbCalHijri MyArr = Array("محرم", "صفر", "ربيع الأول", "ربيع الثاني", "جمادى الأولى", "جمادى الثانية", "رجب", "شعبان", "رمضان",…

السلام عليكم اليك الملف بعد التعديل Aziz02.zip

السلام عليكم استبدل وحدة معالجة الكسر بهذه ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte, ByVal Ndec_pl As String, ByVal dsx As Boolean) As String Dim Td$, dwow$, Td1$ On Error GoTo …

السلام عليكم اخي الفاضل قمت باضافة هذا السطر لوحدة معالجة الكسر If Len(Mid(dNum, InStr(dNum, "."), 3)) = 2 Then Td = "0.00" & Mid(dNum, InStr(dNum, ".") + 1, 3): GoTo 10 جرب المرفق واتمنى التقيم للمشاركة اذا افادتكم aa (1).rar

السلام عليكم هل تقصد انك لا زلت تريد ان يتم كتابة الرقم 120.5 ويقراء مائة وعشرون دينار وخمسة قروش

السلام عليكم اخي اعتقد انه لتحصل على ما تريد يجب ان تكتب اارقم هكذا 120，005 والله اعلم

استخدمت دالة منقولة للاستاذ عبدالله باقشير (استخدمها في ملف اكسل) ان شاء الله تنال رضاك جرب المرفق aa.rar

السلام عليكم بخصوص الترقيم 1000 -1001- 1002 ........... شاهد التعديل على المرفق 6---2.rar

السلام عليكم بخصوص 102.02 تقراء مائة ودينارين وقرشين بدل من مائة واثنان دينار واثنان قرش لاحظ التعديل حيث تم اضافة شرطين للدالة المعرفة aa.rar

السلام عليكمالاستاذة الفاضلة زهرةيكفيني ردك على المشاركة واشكر لك تشجيعي وهذه بداياتي مع الاكسس فخبرتي كلها اكسل الاخوة الكرام اياد بيك الاستاذ القحمCreative Manاشكركم على التقييم بالنسبة للدالة فهي منقولة وتعديلي تم على مرونة الاستعلام وتطبيقها على الملف