10-10-12, 02:13 PM
السلام عليكم
عندي مشكلة في جلب قيمة التشيك بوكس
(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]
عندي مشكلة في جلب قيمة التشيك بوكس
(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]