كود لايساوي نص

[ابو عبد الله العراقي]

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

الاستاذة الافاضل الاخوة الاعضاء في منتدى اوفيسنا

اذا امكن طريقة كتابة كود لا يساوي نص معين في الـــ في بي اي 

وقد ارفقت قاعدة بيانات مضغوطة فعند اختيار اي سورة نختار البسملة في الكومبوبكس إلا في سورة التوبة الصحيح انه لا يوافق على كتابة واظهار البسلمة في هذه السورة 

؟؟؟ 

Database1.rar

[kkhalifa1960]

تفضل استاذي .

Database1-1.accdb

[ابو عبد الله العراقي]

 عاشت ايدك استاذنا الفاضل 

وهو المطلوب 

لكن اذا امكن توضيح لماذا استخدمت .colum  

ولم تسخدم .value 

يعني لماذا 

Me.Combo2.Column(1) 

ولم تكن 

Me.Combo2.Value

وماهو الفرق بينهما  علماً اني طبقت في المثال عندي حسب ما حضرتك عملت ولكن لم يعمل الكود ولما عدت إلى 

.value 

اشتغل الكود وما في اي مشكل ، ارجو التوضح لتعم الفائدة ولغرض التعلم من الامثلة  مع فائق شكر وامتناني لك ولكل يساهم في العلم التعلم في هذا المنتدى .  

[ابو جودي]

بعد إذن أستاذى الجليل ومعلمى القدير الاستاذ @kkhalifa1960 

13 ساعات مضت, ابو عبد الله العراقي said:

لكن اذا امكن توضيح لماذا استخدمت .colum  

لان استاذى الجليل هنا اعتمد على اسم السورة من العمود الثانى فى جملة بناء الاستعلام لمصدر بيانات مربع الســرد  Combo2 

ولانه لو اعتمد على الـ .value فستكون النتيجة هو رقم السورة من الحقل ID  ولن تكون النتيجة مطابقة للرقم الاصلى للسورة لو تم حذف اى سجل واعادة تكرار ادخال بيانات لان الـ  ID  هنا ترقيم تلقائى وكان من الاولى اضافة حقل لرقم السورة كما هو مطابق لها فى الترتيب بالمصحف الشريف حتى بظل ثابت ولا يتغير بتغيير رقم الـ ID  فى حالة الحذف والإضافة لاى سبب 

ولكن اثراء للأفكار يمكن الاعتماد على الرقم كذلك ان اردت باستخدام  الـ .value

من خلال استخدام الكود الأتى 

  Select Case Nz(Combo2, "")
    Case Is = "": Me.Combo6 = ""
    Case Is = 8: Me.Combo6 = ""
    Case Else: Me.Combo6 = "بسم الله الرحمن الرحيم"
  End Select

ولانى لا احبذ ولا احب استخدام الاحرف العربية داخل محرر الأكواد 

  Select Case Nz(Combo2, "")
    Case Is = "": Me.Combo6 = ""
    Case Is = 8: Me.Combo6 = ""
    Case Else: Me.Combo6 = ChrW("1576") & ChrW("1587") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1604") & ChrW("1607") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1581") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1581") & ChrW("1610") & ChrW("1605")
  End Select

 

[ابو عبد الله العراقي]

الاخ الكريم ابو جودي 

شكراً جزيلاً على التوضيح

عاشت الايادي