pedram_ns
دوشنبه 26 دی 1390, 10:44 صبح
با سلام
یک لیست باکس دارم و میخوام تغییرات زیر رو در اون داشته باشم:
1. ایجاد ردیف برای ایتمهای درون لیست باکس
2. من به ستونهای لیست باکس اندازه دادم حالا اگر مقدار یکی از این ستونها زیاد باشه بقیه متن رو نشون نمیده چطور میشه که بصورت دوخطی بشه و یا طول اون ستون بدون اینکه اندازه فرم رو به هم بزنه بزرگ تر بشه و اسکرول بخوره؟
3. یکی از ستونهای این لیست باکس مقدار تاریخ رو داره که بصورت میلادی است. چطور میتونم اون رو بصورت شمسی دربیارم؟
من با کد زیر اطلاعات رو درون لیست باکسم میریزم:
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from books")
Set booklist.Recordset = rs
Set rs = Nothing
یک لیست باکس دارم و میخوام تغییرات زیر رو در اون داشته باشم:
1. ایجاد ردیف برای ایتمهای درون لیست باکس
2. من به ستونهای لیست باکس اندازه دادم حالا اگر مقدار یکی از این ستونها زیاد باشه بقیه متن رو نشون نمیده چطور میشه که بصورت دوخطی بشه و یا طول اون ستون بدون اینکه اندازه فرم رو به هم بزنه بزرگ تر بشه و اسکرول بخوره؟
3. یکی از ستونهای این لیست باکس مقدار تاریخ رو داره که بصورت میلادی است. چطور میتونم اون رو بصورت شمسی دربیارم؟
من با کد زیر اطلاعات رو درون لیست باکسم میریزم:
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from books")
Set booklist.Recordset = rs
Set rs = Nothing