نمایش آخرین سطر ثبت شده در لیست باکس

[khasteh1]

با سلام خدمت اساتید گرامی
در فرم ثبت اطلاعات بعد از ثبت ، اطلاعات در لیست باکس واقع در فرم نمایش داده می شود اما مشکل اینجاست که برای دیدن آخرین سطر لیست باکس باید با اسکرول بار به آخر لیست رفت سوال:
1- چگونه هنگام ثبت اطلاعات آخرین سطر لیست باکس نمایش داده شود؟
2- چگونه هنگام باز کردن فرم قبل از ثبت اطلاعات ،آخرین سطر در لیست باکس دیده شود؟
3-آیا می شود هنگام ثبت اطلاعات ،سطر جدید به جای آخر در اول صفحه درج گردد و در نتیجه در لیست باکس هم چنین نمایش داده شود؟
چشم راه پاسختان هستم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Javid Mokhtari]

با سلام.

me.ListBox1.Selected(me.ListBox1.ListCount - 1) = True 

[khasteh1]

ضمن تشکر از شما دوست گرامی؛
با کدی که محبت کردید جواب سوال 1 و 2 را گرفتم.در ارتباط با سوال 3 جنابعالی یا دیگر دوستان نظری ندارند؟

[Javid Mokhtari]

ضمن تشکر از شما دوست گرامی؛
با کدی که محبت کردید جواب سوال 1 و 2 را گرفتم.در ارتباط با سوال 3 جنابعالی یا دیگر دوستان نظری ندارند؟

برای این کار 2 راه دارین:
1-اطلاعات رو که در دیتابیس شیتتون وارد کردین به روش عکس وارد لیست باکس کنین.یعنی از اخرین سطر به اولین سطر
2-هنگام وارد نمودن داده به دیتابیس کدی نوشته شود که داده جدید را به اولین سطر داده ها قدیمی وارد کند سپس وارد لیست باکس شود.

تا ببینیم نظر بقیه دوستان چیه ...

[khasteh1]

با عرض سلام و وقت وبخیر
لطف کنید؛ کد یا نمونه فایلی قراردهید .پیشاپیش سپاسگزارم

[khasteh1]

کجایند اساتید اکسل،اساتید بی ادعا

[mokaram]

3-آیا می شود هنگام ثبت اطلاعات ،سطر جدید به جای آخر در اول صفحه درج گردد و در نتیجه در لیست باکس هم چنین نمایش داده شود؟
چشم راه پاسختان هستم

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

[Javid Mokhtari]

برای این کار 2 راه دارین:
1-اطلاعات رو که در دیتابیس شیتتون وارد کردین به روش عکس وارد لیست باکس کنین.یعنی از اخرین سطر به اولین سطر
2-هنگام وارد نمودن داده به دیتابیس کدی نوشته شود که داده جدید را به اولین سطر داده ها قدیمی وارد کند سپس وارد لیست باکس شود.

برادر وقت نیست .....

به روش اول :

ListBox1.Clear
For j = Sheet1.Range("a1000000").End(xlUp).Row To 2 Step -1
    If Cells(j, j - (j - 1)) <> "" Then
    ListBox1.AddItem Cells(j, j - (j - 1))
            For i = 1 To 9
               ListBox1.List(ListBox1.ListCount - 1, i) = Cells(j, i + 1)
            Next i
    End If
Next
ListBox1.Selected(0) = True 

pass : 007

[khasteh1]

ازلطف شما بسیار سپاسگزارم