منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


(checkbox)
وهذا الكود المستخدم
[HTML]Private Sub Text35_Change()
Module1.conn
With rs
.Open "select * from Sizes where no_invo like '" + Text35.Text + "%' "



Check36.Value = Checked = !Twined

.MoveNext



End With
Exit Sub


End Sub

[/HTML]

استعمل خاصيه Tag

ان لم تستطع ارفق المثال وان شاء الله اقدر اساعدك

TaHeR كتب :استعمل خاصيه Tag

ان لم تستطع ارفق المثال وان شاء الله اقدر اساعدك

هل يوجد خطأ في الكود

السلام عليكم

نعم اخي يوجد خطا في الكود

بدل السطر التالي

Check36.Value = Checked = !Twined

ب

( Check36.Value =val( !Twined

يعطيك العافية

رائع ممتاز
الله يعطيك العافيه ابو ليث
كنت محتاجها في جلب التشيك بوكس لعملية الصلاحيات