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

لا انصح بهذا لانه يحتاج الى جهد و كبديل انصح باستخدام 2 command buttons

المثال مرفق

dat.zip

السلام عليكم

تفضل اخي هذه المحاولة مني . وعسى إن تكون هي المطلوبة .

وتحياتي للجميع ،

وخالص التحية إلى منتدى الفريق العربي للبرمجة .

DateByVisitor_OM.zip

السلام عليكم

الأخ العزيز ارفق لك ملفا و أرجو من الله أن يكون الحلول التي تريد

SOLUTION.zip

اعتقد ان هذا الكود سيساعدك

باستخدام الدلتين

CDate , IsDate

date.zip

IF IsDate(ME.TEXT1) THEN

ME.TEXT1=CDATE(ME.TEXT1)

END IF

ماذا تقصد بهذا الكود سيد Shadi_i

هذ الكود مضمن في الملف المرفق في الاعلى

IF IsDate(ME.TEXT1) THEN
ME.TEXT1=CDATE(ME.TEXT1)
END IF

هل تعني بان الكود خطأ او شي من ذلك

هدا ما فهمت من المشكلة

New Folder (4).rar

أشكركم أخواني وجميع حلولكم مقبوله وتلبي المطلوب

بس عندي سؤال

أبغى كود عندما أقوم بالضغط على زر السهم للأسفل الموجود على الكيبورد

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
 DataEnvironment1.rs.MoveNext
 End If
end sub

مع ملاحظة ان هذا الكود للأنتقال فقط بدون التحديد

مشكور أخي khaled_helal

بس ياريت أعرف كيف أذا أنتقل المؤشر للتيكس الثاني يقوم بتحديده تلقائي

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 40 Then
        SendKeys "{tab}"
        SendKeys "{home}+{end}"
    End If
End Sub