تعديل علي كود

[حسين العربى]

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

اخواني اعضاء ومشرفي المنتدي الكرام

لدي هذا الكود الشرط فيه انه لو اول رقم في الحقل =7 يعطيني رساله

If Left(Me.serh_Barcod, 1) = 7 Then

طيب لوحبيت اعدل  الشرط انه يكو ن اول ثلاث ارقم في الحقل = 7 فما التعديل 

وشكرا للعلم انا حاولت وبحث 

[ناقل]

جرب هذا ......

If Mid(Me.text1, 1, 1) = 7 And InStr(Me.text2, 7) > 0 Then
        MsgBox "الرقم الأول"
ElseIf Mid(Me.text1, 2, 1) = 7 And InStr(Me.text2, 7) > 0 Then
        MsgBox "الرقم الثاني"
ElseIf Mid(Me.text1, 3, 1) = 7 And InStr(Me.text2, 7) > 0 Then
        MsgBox "الرقم الثالث"

    End If

 

[أبوبسمله]

وعليكم السلام

ومشاركه لاخى ناقل جزاه الله خيرا

ان كنت فهمت طلبك بشكل صحيح اذا كان اول رقم =7 او الثانى =7 او الثالث =7

وان كان 3 الاولى = 7  عدل or الى and

If Mid(text1, 1, 1) = 7 Or Mid(text1, 2, 1) = 7 Or Mid(text1, 3, 1) = 7 And Me.text2 = 7 Then
MsgBox "تنبيه"
Me.Undo
DoCmd.CancelEvent
End If

ويمكن اختصار الكود بالمشاركه الاولى الى

If Mid(text1, 1, 1) = 7 And Mid(text1, 2, 1) = 7 And Mid(text1, 3, 1) = 7 And InStr(Me.text2, 7) > 0 Then
        MsgBox "تنبيه"
    End If

جرب ووافنا بالنتيجه

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

تم تعديل مارس 15, 2020 بواسطه أحمد الفلاحجى

[رمهان]

1 ساعه مضت, حسين العربى said:

طيب لوحبيت اعدل  الشرط انه يكو ن اول ثلاث ارقم في الحقل = 7 فما التعديل

وشكرا للعلم انا حاولت وبحث 

مشاركه مع احبتي وعذرا اكتب من الجوال

مع العلم ان سؤالك فيه لبس شويه

انت تقول اول ثلاث ارقام تساوي ٧ وهذا متناقض حسب فهمي تقول اول ثلاث ارقام تساوي ٧٧٧

وهنا استخدم نفس تعبيرك وباستخدام الداله لفت وبعدد ٣ للباراميتر

If Left(Me.serh_Barcod, 3 )= 777 Then

وقد تحتاج لوضع الرقم ٧٧٧ في علامة تنصيص كنص

بالتوفيق

تم تعديل مارس 15, 2020 بواسطه رمهان

[أبوبسمله]

اهلا بك اخى واستاذى العزيز رمهان عودا حميدا ان شاء الله متغبش كتير عننا

احسنت اخى واستاذى @رمهان وفعلا يحتاج لوضع = "777"

جزاك الله خيرا

نتعلم كل يوم جديد منكم اساتذتى فليس لنا مورد للتعلم سوى مشاركتكم اخوانى واساتذتى بارك الله لنا فيكم وزادكم الله من فضله وعلمه

تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

[حسين العربى]

الف شكر لكم جميعا اساتذتي وجزاكم الله خيرا وذادكم الله من علمه

نعم استاذي الفاضل رمهان هذا هو المقصود بالظبط اول ثلاث ارقام يكونو  777

[jjafferr]

وعليكم السلام 🙂

 

اخوي رمهان ، حيا الله هذه الطلّه ، ولو من الجوال 🙂

 

اخوي حسين ، الظاهر انك خبير في كيفية لفت نظر اخوي رمهان ، وجعله يطل علينا ، فلوسمحت كثّر من هذه الاسئلة 🙂

 

ونعود لنفس اللبس في موضوعك السابق:

 

10 ساعات مضت, حسين العربى said:

طيب لوحبيت اعدل  الشرط انه يكو ن اول ثلاث ارقم في الحقل = 7 فما التعديل

 

اذا كان قصدك اول ثلاث ارقام = 777 ، فالجواب مثل ما قال اخوي رمهان:

اذا كان الحقل رقم
If Left(Me.serh_Barcod, 3 )= 777 Then
او

اذا كان الحقل نص
If Left(Me.serh_Barcod, 3 )= "777" Then
  
  
ومثال مني 
  
If InStr(Mid(Me.serh_Barcod, 1,3), 777)>0 Then  

.

اما اذا كان قصدك اول ثلاث ارقام تحتوي على الرقم 7 ، فالجواب سيكون:

اول 3 احرف/ارقام من الحقل
Mid(Me.serh_Barcod, 1,3)

فيصبح كود البحث في الثلاث احرف/ارقام الاولى
If InStr(mid(Me.serh_Barcod, 1,3), 7)>0 Then

.

جعفر

[حسين العربى]

الحمدلله /هذه فضل من رب العالمين ان يجمع العمالقه في مشاركتي

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى

@رمهان @jjafferr بارك الله لنا فيكم وفى جميع اخوانى واساتذتى مازال امامى الكثير لاتعلمه منكم وزادكم الله من فضله وعلمه

وجزاهم الله خيرا اخوانى طلبه العلم مثلى على طرحهم الاسئله فمنها ابحث واتعلم كل يوم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق