تحويل الحروف ___ اين اضع هذا الكود

[islammmi]

السلام عليكم

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

لكن ممكن شرح بسيط اين يجب ان نضعه بالظبط ...

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

Capitalizes the first letter in a text string and any other letters in text that follow any character other than a letter. Converts all other letters to lowercase letters.

أمثلة قبل المعالجة :

this is a TITLE

2-cent's worth

76BudGet

نتائج الأمثلة بعد المعالجة :

This Is A Title

2-Cent'S Worth

76Budget

Function Proper(Text As Variant) As Variant
 Dim K As Integer
 Dim NewText As String
 Dim Found As Boolean

 Proper = Text
 If VarType(Text) <> vbString Then Exit Function

 Found = True
 For K = 1 To Len(Text)
   Select Case Mid(Text, K, 1)
     Case "A" To "Z", "a" To "z"
       If Found Then
         NewText = NewText & UCase(Mid(Text, K, 1))
         Found = False
       Else
         NewText = NewText & LCase(Mid(Text, K, 1))
       End If
     Case Else
       NewText = NewText & Mid(Text, K, 1)
       Found = True
   End Select
 Next K

 Proper = NewText
End Function

تحياتي .

تم تعديل يناير 29, 2006 بواسطه rudwan

[rudwan]

هذه الدالة انسخها كما هي و ضعها في وحدة نمطيه جديده

الآن استدعيها في النموذج كما يلي :

ذاا كان لديك حقل نص و اسمه MYTEXT

ضع في حدث بعد التعديل للحقل الكود التالي

PRIVATE SUB MYTEXT_AFTER_UPDATE()
me.mytext=proper([me.mytext])
end sub

فيتحول النص تلقائيا بعد تحريره الى أحرف كبيرة , أو ضع الكود في أي حدث آخر حسب رغبتك

[islammmi]

آسف لاني لا استخدم الاكسيس بالعربي

يعني ايه وحدة نمطية؟

آسف جدا ان كان السؤال بسيط

[rudwan]

المقصود به الموديول Module

انسخ و الصق و احفظ , ثم استدعيها من النموذج