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

سؤال عن كيفية تغيير قيمة Check Box برمجيا

بدأه ashrafcardio في 20 يوليو 2014 · 12 رد · 600 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عيكم


ارجو المساعدة فى كيفية تغيير قيمة ال Check Box فى جدول برمجيا عن طريق امر زر فى فورم


وشكرا


#2

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

 

المادة التي فيها علامة الصح تكون ، 1- او True

والتي لا يوجد عليها صح تكون ، 0 او False

 

 

جعفر

#3

أخي جعفر ممكن ترفق مثال؟

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#4

تفضل :)

 

 

هذا النموذج:

post-273849-0-45838100-1405954934_thumb.

 

 

هذا الكود:

Private Sub cmd_No_1_Click()

    Me.fCheck = 0
End Sub

Private Sub cmd_No_2_Click()

    Me.fCheck = False
End Sub

Private Sub cmd_No_3_Click()
    
    Me.fCheck = No
End Sub

Private Sub cmd_No_4_Click()

    Me.fCheck = Off
End Sub

Private Sub cmd_Yes_1_Click()

    Me.fCheck = -1
End Sub

Private Sub cmd_Yes_2_Click()

    Me.fCheck = True
End Sub

Private Sub cmd_Yes_3_Click()

    Me.fCheck = Not 0
End Sub

جعفر

#5

بارك الله فيك أخي جعفر على هذا التوضيح .. نرجو منك ارفاق المثال لو تكرمت

تم تعديل هذه المشاركة بواسطة SANDANET في 21 يوليو 2014 في 19:03

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#6

حياك الله :)

#7

أخي الكريم نرجو منك ارفاق المثال لو تكرمت  :D 

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#8

تفضل :)

 

واضفت زر منفصل ، في كثير من الاحيان نحتاج له ، وعادة الكود له على الاقل 5 اسطر ، ولكني اختصرته في سطر واحد :)

بعض الاوقات نفحص خانة الصح ، ونريد قلب القيمة (يعني اذا كانت القيمة صح ، نريد ان نزيل علامة الصح ، او العكس) ،

 

والكود لها هو:

Private Sub cmd_Yes_No_Click()

    Me.fCheck = Not Me.fCheck
End Sub

جعفر

 

222.CheckBox.mdb.zip

2
#9

ماشاء الله عليك أخي جعفر واضح انك شخص محترف جداً ..وفقك الله

تم تعديل هذه المشاركة بواسطة SANDANET في 21 يوليو 2014 في 23:31

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#10

شكرا على هذه الكلمات الجميلة :)

انا على باب الله ، وما اوتيتم من العلم إﻻ قليﻻ :)

جعفر

#13

جزاكم الله خيرا والف شكر

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