اضافة خصائص لحقل نص

Cha3iR كتب:

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

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

الأخ الفاضل

رجاء فصل اللقب عن الاسم

حتي يمكنك استخدام حقل اللقب في البحث عن الذين هم ألقابهم أطباء سيد أو أنسة مثلا

ودي قاعدة من قواعد تقسيم قواعد البيانات data base normalization

اساسيات قواعد البيانات

أعلم أن طلبي ليس بالأهمية بمكان لكن لا ضير في السعي لتحسين الأمور

أما بخصوص ما تفضلت به فعلى علم به. وقصدي باللقب هو الاسم العائلي للفرد للاشارة فقط.

اخي الفاضل

لا تستطيع الجمع بين ان يكون اول حرف من الكلمة كبير ثم في المقطع الثاني تجعل حروف الكلمة كلها كبيرة

ولكن يمكن ان تضع حقلين الأول للإسم الذي ستجعل او حرف له كبير وتستخدم هذا التعبير

اول حرف من الكلمة كبير

Private Sub Field1_Change()
Me.[Field1] = StrConv(Me.[Field1],3)
End Sub

فعلى سبيل المثال لو كان لدينا اسم zahrah فعند استخدام التعبير الأول سيكون الإسم بهذا الشكل Zahrah

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

كل حروف الكلمة كبيره

Private Sub Field2_Change()
Me.[Field2] = StrConv(Me.[Field2],1)
End Sub

فعلى سبيل المثال لو كان لدينا اسم zahrah فعند استخدام التعبير الثاني سيكون الإسم بهذا الشكل ZAHRAH

بالتوفيق

بارك الله فيك وجزاك الله خير الجزاء

حلولك دائما كالعادة تثلج الصدر

ربنا يسعدك دنيا وآخرة

كنت أمني النفس لو تم الجمع بين الكودين في حقل واحد لكن مادام غير ممكن نكتفي بهذا القدر الى حين تطور البرمجة :)

zahrah كتب:

اخي الفاضل

لا تستطيع الجمع بين ان يكون اول حرف من الكلمة كبير ثم في المقطع الثاني تجعل حروف الكلمة كلها كبيرة

ولكن يمكن ان تضع حقلين الأول للإسم الذي ستجعل او حرف له كبير وتستخدم هذا التعبير

اول حرف من الكلمة كبير

Private Sub Field1_Change()
Me.[Field1] = StrConv(Me.[Field1],3)
End Sub

فعلى سبيل المثال لو كان لدينا اسم zahrah فعند استخدام التعبير الأول سيكون الإسم بهذا الشكل Zahrah

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

كل حروف الكلمة كبيره

Private Sub Field2_Change()
Me.[Field2] = StrConv(Me.[Field2],1)
End Sub

فعلى سبيل المثال لو كان لدينا اسم zahrah فعند استخدام التعبير الثاني سيكون الإسم بهذا الشكل ZAHRAH

بالتوفيق

في رأي أخر

يمكن استخدام هذا الكود

الحقل الأول الأسم الأول الحرف كبير

Private Sub Text0_AfterUpdate()
Me.Text0 = Format(Left(Text0, 1), ">") & Mid([Text0], 2)
End Sub

الحقل الثاني كل الحروف كبيرة

Private Sub Text4_AfterUpdate()
Me.Text4 = Format(Text4, ">")
End Sub