للتوضيح و الفائدة
في حدث بعد التحديث لحقل النموذج المستهدف نضع الكود
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 هو اسم الحقل في النموذج