قراءة الرقم الاول فقط

[سالم فتحي]

السلام عليكم

لدي الكود التالي في المرفقات 

 

 

code.txt

 

 

 

 

حيث انه يقراء الرقم  الموجود  في الحقل  acpt20 ويظهر الصورة المطلوبة لنفس الرقم .. المطلوب تعديل الكود ليقراء فقط الرقم الاول في الحقل 

 

مثلا لو كان الرقم الموجود في الحقل   (6,3)8  فانه يعتبره رقم 8 

 

وشكرا لكم مقدما .. 

تم تعديل مايو 4, 2015 بواسطه سالم فتحي

[jjafferr]

سهله 

msgbox left([acpt20 ],1)

جعفر

[سالم فتحي]

اخي انت رأيت الكود الذي  في المرفق  ؟؟  ما علاقة ال msgbox  بالموضوع 

 

تحياتي 

تم تعديل مايو 4, 2015 بواسطه سالم فتحي

[سالم فتحي]

 

DoCmd.Echo False, ""
On Error GoTo Err_Form_Current

    If Me.Image240.Visible = -1 Then


Me.Image240.Picture = Application.CurrentProject.path & "\photos\pcl\" & Me.acpt20 & ".jpg"

    'DoCmd.GoToRecord , , acNext
     End If

  
   
     DoCmd.Echo True, ""
   

تم تعديل مايو 4, 2015 بواسطه سالم فتحي

[jjafferr]

الله يطول في عمرك أخوي ، لا ما قرأت المرفق 

 

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

 

بس مادمت مصر اني احط الجواب في الكود ،

بدل هذا:

Me.acpt20

بهاي:

left(Me.acpt20,1)

جعفر

[سالم فتحي]

شكرا اخي       صراحة لست انا الي كتب الكود  هو الكود موجود عندي في ملف واردت تغييره للشكل المطلوب في السوؤال

وانا كنت اضع Me.   في البداية ولم يعمل 

 

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

[jjafferr]

حياك الله