الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اظهار كتابات ثابتة عند الضغط على مفتاح toggle

بدأه زين المهندس في 22 أبريل 2014 · 4 رد · 316 مشاهدة · في قواعد بيانات Microsoft Access
Toggle
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة والاخوات في منتدى الفريق العربي ... السلام عليكم و رحمة الله و بركاته ... اطلب مساعدتكم في تزويدي بالكود الصحيح الذي يظهر جملة ( تم الاستلام) عند الضغط و تفعيل مفتاح Toggle  ، و يظهر جملة لم يتم الاستلام عند الغاء تفعيل مفتاح ال Toggle ,  وحسب البرنامج المرافق ... شكراً جزيلاً .

BUTTOM.rar

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

Be cheerful when gettin-out as when you coming-in

Soit acceuillant à ton départ comme à ton arrivé

** ** ** **

#2 

If [Toggle3].Value = False Then

Me.Text0 = "تم الاستلام"

Else

Me.Text0 = "لم يتم الاستلام"

End If

      
      
1

      
    

  

    
    

      
#3
        
        

      
السلام عليكم
اخي الفاضل قمت بتطبيق الكود الخاص باستاذي امير ...
برجاء تدقيق المرفق و في انتظار ابداء الرأي في حال وجود أي ملاحظات ....
Private Sub Toggle3_Click()

If Toggle3.Value = flase Then
Me.Text0 = "Êã ÇáÇÓÊáÇã"
Else
Me.Text0 = "áã íÊã ÇáÇÓÊáÇã"
End If

End Sub
BUTTOM.up.rar

      
تم تعديل هذه المشاركة بواسطة alaaaboulela في 23 أبريل 2014 في 05:59

      
1

      
"اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء "

 

http://fmalaa.wordpress.com/

 

قسم البرامج والتدريب ونظم المعلومات المحاسبية والكورسات المجانية 

 

    

  

    
    

      
#4
        
        

      
أمير2008 كتب:
If [Toggle3].Value = False Then
Me.Text0 = "تم الاستلام"
Else
Me.Text0 = "لم يتم الاستلام"
End If
الاستاذ أمير المحترم ... شكرا جزيلا . بالضبط هذا الامر الذي اريد عدا انه عند الضغط يؤشر تم الاستلام فقمت بتغيير الجملتين الواحدة مكان الاخرى والان اريد ان اعطيك نقطة الفوز ولكني لم افلح بايجاد طريقة لمكافئتك ..ههههههه

      
تم تعديل هذه المشاركة بواسطة زين المهندس في 23 أبريل 2014 في 18:13

      

      
اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه
Be cheerful when gettin-out as when you coming-in
Soit acceuillant à ton départ comme à ton arrivé
** ** ** **

    

  

    
    

      
#5
        
        

      
alaaaboulela كتب:
 
السلام عليكم
اخي الفاضل قمت بتطبيق الكود الخاص باستاذي امير ...
برجاء تدقيق المرفق و في انتظار ابداء الرأي في حال وجود أي ملاحظات ....
Private Sub Toggle3_Click()

If Toggle3.Value = flase Then
Me.Text0 = "Êã ÇáÇÓÊáÇã"
Else
Me.Text0 = "áã íÊã ÇáÇÓÊáÇã"
End If

End Sub
شكرا جزيلا اخي وهو المطلوب

      
      

      
اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه
Be cheerful when gettin-out as when you coming-in
Soit acceuillant à ton départ comme à ton arrivé
** ** ** **

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…