Setfocus trong multipages không được?

[HongHac]

Dữ liệu của mình nhiều nên mình định dùng Multipages.

Tuy nhiên, mình muốn khi khởi động form thì con trỏ luôn nháy ở một textbox cố định, và có thể dùng nút Tab để di chuyển con trỏ sang các textbox kế tiếp ở các trang tiếp theo mà không cần dùng chuột.

Mình đã thử như sau:

sub Userform_activate()
ngaypo.setfocus ' ngaypo la txt ma minh muon nhay chuot truoc
end sub

Code này nó không thèm chạy. Con chuột nó cứ nằm ở các text ở page 2.

Lại làm phiền các bạn thêm nữa vậy.

Chân thành cảm ơn

 

[sealand]

Muốn chuyển sang trang 2 bạn đặt lệnh (Đếm từ 0):

Private Sub CommandButton10_Click()
Me.MultiPage1.Value = 1
End Sub

Hoặc bạn dùng Accelerator: Page1 là 1,Page2 là 2,Page3 là3
Khi sử dụng nhấn Alt+Accelerator để di chuyển (Accelerator nên chọn ký tự nào đó trên Caption để trên Caption có dấu gạch chân nhắc nhở)
Khi kết thúc Desigm ở trang nào thì mở ra ở trang đó
Thứ tự các ô trong từng trang bạn chọn trang--nhấn chuột phải--Chon Order Tabs

P/S: Bổ xung ví dụ

 

[HongHac]

Cám ơn Sealand.

Nhưng giả sử các trang mình không đặt tên theo số thứ tự thì sao? Lệnh đếm theo số thứ tự của trang đó chứ không phải theo Acelerator phải không?

 

[sealand]

Số thứ tự là trật tự trang từ trái qua phải, nó thường sử dụng trong code (Như trong code của Command...)
Acelerator là ký tự bất kỳ đại diện riêng từng trang hay điều khiển (Trong ví dụ mình cũng đặt Acelerator cho nút lênh)