PDA

View Full Version : مبتدی: ساخت رویداد رفتن به یک برگه



noorionline
چهارشنبه 01 شهریور 1391, 12:20 عصر
سلام
تو یکی از فرم‌هام یه Tab Controler ایجاد کردم؛ حالا میخوام تو آخرین فیلد هر برگه تو رویداد After Update یه دستور بدم که اتوماتیک بره توی برگه یا تب بعدی. با ماکروی BrowseTo هم کار کردم! اما نتونستم تب دوم رو بهش معرفی کنم. حالا چطوری میشه این کارو کرد؟

ARData
چهارشنبه 01 شهریور 1391, 15:11 عصر
شما در هر Tab Controler يک فرم داريد ... بنابراين بعد از afterupdate فيلد آخر بايد وارد اولين فيلد تب دوم يا فرم دوم شويد : Form_FrmX2_FildX1.setfocus

Abbas Amiri
چهارشنبه 01 شهریور 1391, 18:25 عصر
کد زیر در کلاس ماژول فرم حاوی tabc control کپی کنید ودر رویداد AfterUpdate آخرین کنترل در هر Page آنرا صدا بزنید


Private Sub GotoNextPage()
If TabCtl1.Value < TabCtl1.Pages.Count - 1 Then
TabCtl1.Value = TabCtl1.Value + 1
Else
TabCtl1.Value = 0
End If
End Sub