أريد كود تحويل أحرف الاسم الأولى الى كابيتال ؟

[medotaha]

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

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

ومن أقوال الرسول صلى الله عليه وسلم ومعناه أن من سلك طريقا يبتغى به علما سهل الله به طريقا الى الجنة أو كما قال.

" ومن كان فى حاجة أخيه كان الله فى حاجته " __- " ومن فرج عن مسلم كربة فرج الله عنه كربة من كرب يوم القيامة" أو كما قال.

جعلنا الله جميعا فى هذا المنتدى ومن قام عليه ومن شارك فيه أحبة يوم القيامة يوم لا ظل إلا ظله، اللهم آميـــــــن

آسف للإطالــــــــــة..

أما بعد ،،، فأنا فى حاجة ماسة الى كود فى حقل اللإسم يجعل أول كل حرف من الإسم كبير.

مثال : Mohammed Abdul Monem Ali Taha

و أين أضعه هل فى ال input mask ؟

شكر الله لكم حسن صنعيكم وشكرا

[Bluemind]

اخوي

انا عندي طريقه تجعل الحروف كلها كبيره

تحياتي

Bluemind

[محب العلم]

السلام عليكم

تم تحقيق المطلوب بإذن الله في المرفق الأتي

BigLetters.zip

مع وافر الاحترام

[medotaha]

هذا ما كنت أحتاجه ،،،، بارك الله فيك أخى الكريم

[أبو آدم]

للتوضيح و الفائدة

 

في حدث بعد التحديث لحقل النموذج المستهدف نضع الكود

Private Sub sname_AfterUpdate()
 Dim t, s As String
 If IsNull(Me.sname) Then Exit Sub
 s = Me.sname
 t = UCase(Left$(s, 1))
 For i = 2 To Len(s)
  If Mid$(s, i, 1) = " " Then
   t = t & " " & UCase(Mid$(s, i + 1, 1))
   i = i + 1
  Else
   t = t & Mid$(s, i, 1)
  End If
Next i
Me.sname = t
End Sub

sname هو اسم الحقل في النموذج