قرار گرفتن اطلاعات فرم روی چهارمین ردیف لیست باکس

[wolfstander]

سلام
میخواستم بدونم که آیا امکان داره وقتی که فرم باز میشه، نیاد روی اولین رکورد
از لیست باکسی که هست، بره مثلا چهارمین رکورد
یا اینکه بره و از یک تکست باکس ، شماره ای رو بخونه و روی اون رکورد قرار بگیره
با تشکر از شما
یه نمونه هم گذاشتم که اگه دوستی خواست لطف کنه و راهنمایی کنه، راحت باشه
کدش رو هم اگه فقط بگید، متشکر میشم

[alirezabahrami]

سلام
میخواستم بدونم که آیا امکان داره وقتی که فرم باز میشه، نیاد روی اولین رکورد
از لیست باکسی که هست، بره مثلا چهارمین رکورد
یا اینکه بره و از یک تکست باکس ، شماره ای رو بخونه و روی اون رکورد قرار بگیره
با تشکر از شما
یه نمونه هم گذاشتم که اگه دوستی خواست لطف کنه و راهنمایی کنه، راحت باشه
کدش رو هم اگه فقط بگید، متشکر میشم
سلام
کد زیر در رویداد open یا load فرم وارد کن ببین جواب میده !


Dim Item_Data As Integer
Dim rs As Object
Item_Data = Me.List6.ItemData(4)
Set rs = Me.Recordset.Clone
rs.FindFirst "[PersonnelCode] = " & Item_Data
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

موفق باشید

[انگوران]

و ساده تر اينكه در رويداد On Got Focus ليست باكس كد زير رو بنويسيد:

Me.ListBox Name.Selected(4)

[wolfstander]

سلام آقای انگوران
سال نو مبارک
آخرش نشد عید کتاب رو بخونیم ها
:لبخند:
عمری باشه، یک شنبه برم بخرم و بخونم
عرضم به حضور شما ، راهنمایی ای که شما کردید، وقتیه کارآیی داره برای من که من بخوام کاربر روی لیست باکس کلیک کنه و بعد من بخوام که بره روی یک مورد واسته
حالا کاری که من در نرم افزارم دارم اینه که میخوام هر کسی بسته به دسترسی اش، اطلاعات مربوط به سندهای خودشو ببینه
ولی هر مدیر، سند پرسنل خودشو بتونه ببینه
و ادمین اطلاعات همه رو بتونه ببینه
برای این کار، سه تا لیست باکس گذاشتم که بسته به سطح دسترسی، یکی شون نمایش داده میشه
حالا، میخوام در فرمم ، وقتی که باز شد، بیاد و روی آخرین مورد قرار بگیره
پس میام و از تو لیستی که فراخوانی شده، میگم که بره توی آخرین رکورد اون
ولی اگه این کار رو نکنم، اکسس میره روی اولین رکورد کل جدول که شاید طرف دسترسی هم بهش نداشته باشه
برای همینه که راه حل دوست خوبمون alirezabahrami در این زمینه راه حل بهتریه
هرچند من که میدونم شما یه کد هم دارید که وقتی فرم باز شد، عمل کلیک روی لیست باکس رو انجام بدید

:لبخند:
البته این مورد راهنمایی شما، یک جایی دیگه به درد من خورد
بی استفاده نمیذارم کسی راهنمایی کنه
سه سوته استفاده میکنم

[wolfstander]

و ساده تر اينكه در رويداد On Got Focus ليست باكس كد زير رو بنويسيد:

Me.ListBox Name.Selected(4)

سلام
البته این کدها جای دیگه ای برام قابل استفاده شد
که خیلی هم کار راه انداز شد البته
فقط یه خورده باید توش تغییر داده بشه



Me.List193.SetFocus
Me.List193.Selected(10) = True