جعل الكسر يظهر بخط أصغر من الرقم الصحيح

[ASSOUSI]

السلام عليكم ورحمة الله وبركاته

اخواني المشرفين على البرنامج اطلب منكم كيفية

تنسيق الأرقام العشرية مثلا العدد الصحيح كبير والعدد بعدة الفصلة صغير 11,95 

وجزاكم الله خيرا

تحياتي
 

 

Data.rar

 

[ASSOUSI]

السلام عليكم

 

[Shivan Kurdi - شڤان کوردی]

13 ساعات مضت, ASSOUSI said:

تنسيق الأرقام العشرية مثلا العدد الصحيح كبير والعدد بعدة الفصلة صغير 11,95 

هل تريد ان يظهر هكذا

انا استخدمت هذا

=IIf(Len([Champ1] & "")=0;"";"<div align=right dir=RTL><font size=4>" & ParseText([Champ1];0) & "</font>.<font size=2>" & ParseText([Champ1];1) & "</font></div>")

مع هذا فانكشن

Public Function ParseText(TextIn As String, X) As Variant
On Error Resume Next
Dim var As Variant
var = Split(TextIn, ".", -1)
ParseText = var(X)
End Function

 

Data.rar

[ASSOUSI]

نعم اخي وشكرا لك 

لاكن انظر  الدالة لا تعمل عندي

ماهو السبب

 

[Shivan Kurdi - شڤان کوردی]

12 ساعات مضت, ASSOUSI said:

لاكن انظر  الدالة لا تعمل عندي

السبب يرجع لاننا نستخدم هذا الرمز ( . ) بين الرقمين و حضرتك استخدمت هذا ( , ) 
ولكي يعمل عند يجب عليك ان تستخدم هذا الرمز ( . ) او يجب ان تفتح فانكشن وتغير الرمز "." في هذا السطر الى رمز انت تريد 
 

var = Split(TextIn, ".", -1)

 

[jjafferr]

مشاركة مع اخي شفان

 

عملت تعديل على الوحدة النمطية لتأخذ جميع انواع الفواصل

Public Function ParseText(TextIn As String, X) As Variant
On Error Resume Next

    Dim var As Variant
    Dim delim As String
    
    For i = 1 To Len(TextIn)
        If Not IsNumeric(Mid(TextIn, i, 1)) Then
            delim = Mid(TextIn, i, 1)
            Exit For
        End If
    Next i
    
    var = Split(TextIn, delim, -1)
    ParseText = var(X)
    
End Function

.

وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل

 

جعفر

[Shivan Kurdi - شڤان کوردی]

11 ساعات مضت, jjafferr said:

وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل

شكرا على التعديل 

وشكرا لمشاركتك
ونشكرك اذا تكمل الموضوع 

[jjafferr]

Public Function Parse_to_Rich_Text(TextIn As String) As String

    Dim var() As String
    Dim delim As String
    Dim i As Integer
    Dim T As String
    
    
    'Exit when No value
    If Len(TextIn & "") = 0 Then
        Parse_to_Rich_Text = ""
        Exit Function
    End If
    
    'get the delimiter separator
    For i = 1 To Len(TextIn)
        If Not IsNumeric(Mid(TextIn, i, 1)) Then
            delim = Mid(TextIn, i, 1)
            Exit For
        End If
    Next i
    
    'split the text to two values
    var = Split(TextIn, delim)
    
    
    T = "<div "             'Start, Make HTML code
    
    'Left side
    T = T & "<font"         'font info, First Line
    T = T & " size=4"       'size
    T = T & ">"             'close
    T = T & "</font>"       'font info, Last Line
    T = T & " <b>"          'Bold, begin
    T = T & var(0) & delim  'Text
    T = T & "</b>"          'Bold, Close
    
    'Right side
    T = T & "<font"
    T = T & " size=2"
    T = T & " color=red"
    T = T & ">"
    T = T & var(1)
    T = T & "</font>"
    
    T = T & "</div>"        'Close, Make HTML code
    'Debug.Print T
    
    Parse_to_Rich_Text = T
    
End Function

 

 

اوامر HTML التي يمكننا استعمالها في حقل Rich Text في الاكسس:

https://support.office.com/en-us/article/Insert-or-add-a-rich-text-field-9f86237d-dbbc-4a85-b12c-9d8dca824630?CorrelationId=e5ac3d8a-72c2-4ac2-8f74-c70704f01a2f&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010014097

وبرمجة هذه الاوامر ممكن ان نبحث عنها هنا ، لكي نعمل الجملة المطلوبة

https://www.w3schools.com/TAgs/default.asp

 

جعفر

 

878.RichText.accdb.zip

[ASSOUSI]

السلام عليكم

اشكركم وجعلنا الله وإياكم من الشاكرين  

هذ هو المطلوب 

تحياتي لكم