مساعدة في تحويل كود من نصي الى رقمي

[ازهر عبد العزيز]

السلام عليكم احتاج  تحويل هذا  الكود من نصي الى رقمي  اي لو كان الحقل B رقمي وليس نصي 

 If DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.B & "'") > 0 Then
   Dim stry As String
   stry = Me.B
   Me.Undo
   
   Dim rs As Object
   Set rs = Me.Recordset.Clone
     rs.FindFirst "[B] = '" & stry & "'"
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If

الى رقمي 

[الحلبي]

2 ساعات مضت, ازهر عبد العزيز said:

If DCount("*", "ld", "idlh=" & Me.idlh & "and B=" & Me.B &"") > 0 Then

انسخ الكود المرفق اعلاه 

توضيح

بعد كلمة and  احذف الكوما بدل '" اجعلها " فقط ثم احذف الكوما بين علامة التنصيص قبل اغلاف القوس بدل  "'" اجعلها "" بدون كوما

او انسخ الكود اعلاه هو الصحيح

بالمثل فى الكود القبل الاخير

تم تعديل سبتمبر 16, 2020 بواسطه الحلبي

[ازهر عبد العزيز]

الاستاذ الحلبي وماذا بشان 

Dim stry As String

هل اجعلها 

 DIM As Integer

[الحلبي]

نعم  اجعلها integer وجرب  وان لم تاتى بالمطلوب اتركها نص  ثم اجعل كلمة val قبل B وبين قوسين كبير

(stry = Me.VAL(B

ولو كان لديك مثال مصغر يكون اسهل حتى نجرب عليه 

[jjafferr]

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

 

لو تتبع هذه الطريقة ، ما تتعب 🙂

 

 

جعفر

[الحلبي]

بارك الله فيكم استاذنا القدير / @jjafferr

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

 

[ازهر عبد العزيز]

 

33 دقائق مضت, jjafferr said:

لو تتبع هذه الطريقة ، ما تتعب 🙂

ولا اروع لكن المشكلة عندي اصبح الكود يتوقف هنا 

rs.FindFirst "[B] = '" & stry & "'"

 

[jjafferr]

صدقني اخوي حلبي ، اني شخصيا استعمل هذه الطريقة ،

صحيح طويلة شوي ، ولكنها جدا مرنه ، ومافي مجال تخطأ فيها ، ازيد او انقص المعايير مثل ما اريد واتأكد من النتائج ، وازيد المعيار التالي ... 🙂 

 

جعفر

الان, ازهر عبد العزيز said:

ولا اروع لكن المشكلة عندي اصبح الكود يتوقف هنا 

 

ما بعطيك الجواب 

بس لو اتبعت نفس الطريقة اللي اتبعتها للخطوة اللي قبلها ، بتلقى النتيجة المطلوبة 🙂

 

جعفر

[ازهر عبد العزيز]

2 دقائق مضت, jjafferr said:

ما بعطيك الجواب 

[jjafferr]

اكتب لي طريقة حل الخطوة السابقة ، علشان اعلمك كيف تعمله لهذه الخطوه كذلك 🙂 

[ازهر عبد العزيز]

طبع بالتاكيد انت تريد الصالح لي لكني اوعدك اذا اعطيتني الجواب راح ادرس الموضوع جيدا   

[jjafferr]

4 دقائق مضت, jjafferr said:

اكتب لي طريقة حل الخطوة السابقة ، علشان اعلمك كيف تعمله لهذه الخطوه كذلك 🙂 

 

[jjafferr]

تفضل 🙂

    Dim myCriteria As String
    
    myCriteria = "[idlh]=" & Me.idlh
    myCriteria = myCriteria & " And [B]=" & Me.B
        
 If DCount("*", "ld", myCriteria) > 0 Then
   Dim stry As Integer
   stry = Me.B
   Me.Undo
   
   Dim rs As Object
   
   myCriteria = "[B]=" & stry
   Set rs = Me.Recordset.Clone
     rs.FindFirst myCriteria
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If

 

جعفر

[ازهر عبد العزيز]

شكرا جزيلا استاذ @jjafferr وهو المطلوب واسف لاني لا استطيع اختار افضل اجابة وهي لك لا اعرف السبب لا يظهر لي الاختيار  والشكر موصول للاستاذ الفاضل حلبي المبدع 

[الحلبي]

والله يااستاذ / @ازهر عبد العزيز

انا ما عملت شئ الفضل كله يرجع لله ثم لاستاذنا القدير / @jjafferr

ربنا يبارك لنا فيه ويجزاه كل الخير على ما يقدمه لنا

انت يا استاذ / ازهر كلك حماس ودائما تبحث هنا وهناك وتسال وتجيب فى بعض الاحيان ان اتوقع لك تقدم كبير وملحوظ فى اكسس ان شاء الله

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

خالص تحياتى

[ازهر عبد العزيز]

15 دقائق مضت, حلبي said:

والله يااستاذ / @ازهر عبد العزيز

انا ما عملت شئ الفضل كله يرجع لله ثم لاستاذنا القدير / @jjafferr

ربنا يبارك لنا فيه ويجزاه كل الخير على ما يقدمه لنا

انت يا استاذ / ازهر كلك حماس ودائما تبحث هنا وهناك وتسال وتجيب فى بعض الاحيان ان اتوقع لك تقدم كبير وملحوظ فى اكسس ان شاء الله

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

خالص تحياتى

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