unforgiven
شنبه 21 آذر 1394, 19:01 عصر
سلام دوستان
من یک جدول بنام Info دارم که 1 ستون بنام num داره و رکوردهاش بر اساس تعدادی که یوزر مشخص میکنه پر میشه و یک ستون هم بنام status دارم که وضعیت تیک خوردن یا نخوردن چک باکس رو روی فرم مشخص میکنه و در فرم هم یک چک باکس دارم بنام chName که به صورت آرایه و با یک حلقه به تعدادی که یوزر مشخص کرده ساخته میشه . مثلا یوزر تعداد 10 رو انتخاب کرده بنابراین از شماره 1 تا 10 در ستون num رکورد ساخته میشه و بر روی فرم هم تعداد 10 عدد چک باکس ساخته میشه .
حالا من میخوام در رویداد فرم لود وقتی فرم باز شد رکورد هایی که status اونها true شده بر روی فرم چک مارک بخورن . یعنی اگر رکورد شماره 7 ستون num مقدارش True شده بر روی فرم هم چک باکس مربوط به اون تیک دار بشه و اگر شماره های دیگه ای هم در بانک true شده بودن در فرم چک باکس های مربوط به اونها تیک خورده باشه .
من از کد زیر استفاده میکنم اما درست جواب نمیده.
Rs.Open "SELECT * FROM Info",cn, adOpenStatic, adLockOptimistic
Dim xCount as Integer
For xCount = 1 To Rs.Recordcount
If Rs!status = 1 Then
chName(xCount).Value = 1
Rs.MoveNext
end if
Next xCount
پیشاپیش ممنونم از پاسخ های شما
من یک جدول بنام Info دارم که 1 ستون بنام num داره و رکوردهاش بر اساس تعدادی که یوزر مشخص میکنه پر میشه و یک ستون هم بنام status دارم که وضعیت تیک خوردن یا نخوردن چک باکس رو روی فرم مشخص میکنه و در فرم هم یک چک باکس دارم بنام chName که به صورت آرایه و با یک حلقه به تعدادی که یوزر مشخص کرده ساخته میشه . مثلا یوزر تعداد 10 رو انتخاب کرده بنابراین از شماره 1 تا 10 در ستون num رکورد ساخته میشه و بر روی فرم هم تعداد 10 عدد چک باکس ساخته میشه .
حالا من میخوام در رویداد فرم لود وقتی فرم باز شد رکورد هایی که status اونها true شده بر روی فرم چک مارک بخورن . یعنی اگر رکورد شماره 7 ستون num مقدارش True شده بر روی فرم هم چک باکس مربوط به اون تیک دار بشه و اگر شماره های دیگه ای هم در بانک true شده بودن در فرم چک باکس های مربوط به اونها تیک خورده باشه .
من از کد زیر استفاده میکنم اما درست جواب نمیده.
Rs.Open "SELECT * FROM Info",cn, adOpenStatic, adLockOptimistic
Dim xCount as Integer
For xCount = 1 To Rs.Recordcount
If Rs!status = 1 Then
chName(xCount).Value = 1
Rs.MoveNext
end if
Next xCount
پیشاپیش ممنونم از پاسخ های شما