نجوم المشاركات

عدل هنا تنسيق التاريخ بما يناسبك For i = 1 To OnRng For j = 0 To UBound(colVisu) cnt(i, j + 1) = TblBD(i, colVisu(j)) تنسيق التاريخ If IsDate(cnt(i, j + 1)) Then cnt(i, j + 1) = Format(cnt(i, j + 1), "dd/mm/yy") <=========== Next j Next i الى If IsDate(cnt(i, j + 1)) Then cnt(i, j + 1) = Format(cnt(i, j + 1), "dd/mm/yyyy")

عليكم السلام اذا كل صف له مملىء ومراجعه وكاتب ومراجعه ارى الافضل .. انك تضيف 4 اعمدة في جدول الصفوف وتكتب الاسماء امام كل صف كذا يمكن جلب الاسماء بناء على صف التقرير ايضا التعديل والتغيير عليهم يكون يسيرا من خلال فورم الصف

المشكلة هنا قريبة من السابقة يعني يسيرة جدا المشكلة الحقيقية فيك انت اخي العزيز .. لا بد تحاول الاكتشاف .. بالمحاولة والخطأ تعلمنا ارفق لك المثال حاول تكتشف مكان التعديل .. سوف المح لك .. غيرت رقم صفر بــ رقم 1 CNA_7.rar

شكرا أخي الفاضل سأفتح موضوع جديد

طيب سوف اراه .. ومتأكد ان سبب المشكلة حاجة بسيطة جدا

تمام .. الله ينور شكراً لحضرتك

وعليكم السلام ورحمة الله تعالى وبركاته ,, فقط غير في الكود من "أنثى" إلى "انثى" ( بدون الهمزة فوق الألف ) . ولتفريغ مربعي السرد ( الديانه والحالة الاجتماعية ) ، في حدث عند التحميل مثلاً أضف ما يلي :- Me.الديانه.RowSource = "" Me.الديانه.Value = Null Me.الحالة_الاجتماعية.RowSource = "" Me.الحالة_الاجتماعية.Value = Null

بارك الله فيك استاذنا عبدالله بشير

تم التعديل استمارة الكترونية1.xlsm

احسنت والله استاذنا محمد هشام كم انت رائع حقا

New Microsoft Access Database.rar

تفضل جرب هدا Option Explicit Sub Convert_Arabic() Dim WS As Worksheet, OnRng As Range, ky As Range Dim i As Integer, j As Integer, NumArr As Variant, tmp As Variant Dim val As String, c As String, newVal As String, n As Boolean NumArr = Array(ChrW(1632), ChrW(1633), ChrW(1634), ChrW(1635), _ ChrW(1636), ChrW(1637), ChrW(1638), ChrW(1639), ChrW(1640), ChrW(1641)) tmp = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") Set WS = Sheets("Sheet1") Set OnRng = WS.UsedRange Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.ErrorCheckingOptions.BackgroundChecking = False For Each ky In OnRng If Not IsEmpty(ky.Value) And Not ky.HasFormula Then val = Trim(ky.Text): newVal = "": n = False If val Like "*[" & Join(NumArr, "") & "]*" Then GoTo SubApp If Right(val, 1) = "%" Then n = True: val = Left(val, Len(val) - 1) For i = 1 To Len(val) c = Mid(val, i, 1) If c Like "[0-9]" Then newVal = newVal & NumArr(CInt(c)) Else newVal = newVal & c End If Next i If n Then newVal = newVal & "%" ky.NumberFormat = "@": ky.Value = newVal End If SubApp: Next ky Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub أو يمكنك التنقل بينها على الشكل التالي تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز -v2 .xlsb

نعم أخي يمكننا فعل دالك للتوضيح : تم إظافة تحديث الإسم الكامل للموظف عند الإدخال مباشرة للمعاينة فقط لأنه في الأصل يحدث عند كل ترحيل أو تعديل للبيانات المرفقات https://www.mediafire.com/file/bq3nkauzlo9j3jt/بيانات+الموظفين+v2.rar/file تم رفعه في المشاركه قاعدة بيانات الموظفين 2 .xlsm بيانات الموظفين v2.rar