گرفتن آخرین رکورد کمبو باکس در یک تکست باکس

[shervinrad]

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

[stabesh]

سلام اين كد تعداد ركوردهاي كامبو رو ميده


me.Combo.ListCount

[shervinrad]

65599
سلام اين كد تعداد ركوردهاي كامبو رو ميده


me.Combo.ListCount




اینم تصویر سوالی که من میخوام امیدوارم واضح باشه

[aysan68]

کمک کنید لطفا http://barnamenevis.org/showthread.php?271167-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B7%D8%B1%D8%A7%D8%AD%DB%8C-%D9%88%D8%A8

[stabesh]

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set rst = Me.Combo.Recordset
rst.MoveLast
txt1 = rst.Fields(1)

[int Rahi]

سلام
این کد رو میتونی توی Form_Load بنویسی:


Text1.Text = Combo1.List(Combo1.ListCount - 1)

موفق باشی

[shervinrad]

با تشکر از int rahi

من کد شمارو امتحان کردم اما موفق نشدم
برای همین نمونه مختصر شده برنامه رو براتون میزارم اگه امکان داره روی برنامه امتحانش کنید شاید من بلد نبودم

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

توضیح مختصری از برنامه
شماره پرمیت منحصر بفرد است و قابل تکرار نیست
در برنامه سازه های مختلفی هم داریم
و هر سازه شماره پرمیت خاص خود را دارد که از 1 به بالا شروع میشه
من الان میخوام در این برنامه برای یک سازه دو باز شماره پرمیت مشابه وارد نشود و اخطار بده که شماره پرمیت سازه تکراری می باشد

بازهم از همه دوستانی که در راه پیشرفت علم صادقانه خدمت میکنند سپاسگذارم


راستی یه کم مونده بود یادم بره پسورد برنامه برای کد کاربری 101 برابر 0000 می باشد