كيف يمكن التعديل على هذا الكود

[haniameen]

لدي حقل نص واسمه

ar_1

لو هذا الحقل اقل من 20 يبقى النتيجة "عربي "

غير كده يبقى فارغ

ولكن تأتي رسالة 

نوع البيانات غير متطابق في تعبير المعايير

فما هي مشكلة هذا الكود 

Function m_ar(a As String) As String

     If Val(a) < 20 Then
   m_ar = "ÚÑÈí"
   Else
     m_ar = ""
  
     End If
End Function

   

[jjafferr]

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

 

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

Function m_ar(a As integer) As String

     If a < 20 Then
   m_ar = "عربي"
   Else
     m_ar = ""
  
     End If
End Function

 

جعفر

[haniameen]

26 minutes ago, jjafferr said:

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

 

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

Function m_ar(a As integer) As String

     If a < 20 Then
   m_ar = "عربي"
   Else
     m_ar = ""
  
     End If
End Function

 

جعفر

🙈🙈🙈🙈

دايما بتحرجني 

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

جاري التجربة

[haniameen]

أخي jjafferr جعفر بعد تجريب التعديل الخاص بك اعطاني خطأ و حتى لما حولت الحقل النصي الى رقمي بواسطة

val 

اعطاني نفس رسالة الخطأ عدم تطابق البيانات 

مرفق الملف وبه الحالتين

المطلوب عن الفرز لا يعطي رسالة عدم تتطابق البيانات

ولو في كود أخر من قبلكم يحل هذه المشكلة اكون

شاكر فضلك  

🌹🌹🌹

natega_arabic.mdb

تم تعديل فبراير 3, 2021 بواسطه haniameen

[jjafferr]

 

بسبب

.

يجب ان يكون الكود يراعيها ، هكذا :

    If IsNumeric(a) = False Then
        m_ar = a
        
    ElseIf Val(a) < 20 And IsNumeric(a) Then
        m_ar = "عربي"
    
    Else
        m_ar = ""
        
    End If

 

جعفر

[haniameen]

5 minutes ago, jjafferr said:

 

بسبب

.

يجب ان يكون الكود يراعيها ، هكذا :

    If IsNumeric(a) = False Then
        m_ar = a
        
    ElseIf Val(a) < 20 And IsNumeric(a) Then
        m_ar = "عربي"
    
    Else
        m_ar = ""
        
    End If

 

جعفر

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

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

val

وده اللي حيجنني 

على العموم شاكر تعبك وجهدك استاذي الغالي جعفر ليك  خاصة 

ولمنتدانا العريق  عامة 

جاري التجريب والرد صباحا

تم تعديل فبراير 3, 2021 بواسطه haniameen

[jjafferr]

11 دقائق مضت, haniameen said:

اعطى عدم تطابق حتى بعد تحويله لرقمي ب val

طبعا ،

فلا يمكنك ان تحصل على نتيجة لـ (غ)val ، ومن هنا كنت تحصل على الخطأ ،

لذا يجب تصيد هذه الحروف قبل الوصول للامر val 🙂

 

جعفر

[husamwahab]

مشاركة مع استاذي العزيز جعفر

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

Function m_ar(a As Variant) As String

  If IsNull(a) Then
    m_ar = "عربي"
  ElseIf Val(a) < 20 Then
    m_ar = "عربي"
  Else
    m_ar = ""
  End If
  
End Function

 وهذه محاولة ارجو ان تكون موفقة

 

[haniameen]

10 hours ago, husamwahab said:

مشاركة مع استاذي العزيز جعفر

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

انت جعلت 

a  is null

بس هو هنا في الحقل 

ar_1

 

لا يوجد بها حقول فارغة

🤔🤔🤔

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

تم تعديل فبراير 4, 2021 بواسطه haniameen

[haniameen]

10 hours ago, jjafferr said:

 

فلا يمكنك ان تحصل على نتيجة لـ (غ)val ، ومن هنا كنت تحصل على الخطأ ،

لذا يجب تصيد هذه الحروف قبل الوصول للامر val 🙂

للاسف اخي جعفر الدالة عند استدعائها تعطي خطأ 

ولكن تعديل الأخ

husamwahab

نجح بامتياز

شاكر ليك وله على هذا المجهود

[jjafferr]

5 دقائق مضت, haniameen said:

نجح بامتياز

هذا لأنه راى بيانات الجدول كاملة ، وفي اخر البيانات فارغة !!

بينما انا رايت بيانات صفحتين ولم انزل اكثر 🙂

 

ولكن ، يجب ان تعرف ماهي النتيجة التي ستعطيها للطالب الذي بياناته "غ" ، والطالب الذي لا يوجد له معلومة "لا صفر ولا غ ولا علامة ، يعني الحقل فارغ" 🙂

 

جعفر