Click button chuyển qua lại các form (2 người xem)

[carsen4u]

Xin chào các bạn, mình gửi file đính kèm nhờ các bạn giúp sửa lại dòng lệnh trong VB để click các button "Block A", "Block B", ... chuyển qua lại các form ko bị lỗi.

Cám ơn nhiều
TD

 

[be_09]

Xin chào các bạn, mình gửi file đính kèm nhờ các bạn giúp sửa lại dòng lệnh trong VB để click các button "Block A", "Block B", ... chuyển qua lại các form ko bị lỗi.

Cám ơn nhiều
TD

Trường hợp của em chỉ có 4 Form, nếu đến 20 Form thì không lẽ mỗi Form em tạo đến 20 nút điều khiển thì anh thấy phức tạp quá và code lại dài dòng. Theo anh em nên tạo 1 Form làm trang chủ nếu em sử dụng đến 20 Form thì trang chủ chỉ cần 20 nút, mỗi nút chỉ cần 4 dòng lệnh khi nhấn vào nút là mở Form và di chuyển đến sheet cần nhập liệu được rồi, nếu làm như em mà sử dụng đến 20 Form nội tạo nút, viết code sẽ mất rất nhiều thời gian, nếu có lỗi kiểm tra lại chắc tối cả mắt.

Mỗi nút điều khiển em sử dụng code như sau:

Private Sub CommandButton1_Click()
Sheets("DataA").Select
fmMainA.Show
End Sub

Chọn sheet có tên là DataA để chứa dữ liệu.
Hiện Form có tên là fmMainA

các nút lệnh khác em thực hiện tương tự như vậy, chỉ sửa lại tên Form là B, C, D .....Em hãy thử xem kết quả sẽ nhanh hơn nhiều, dung lượng File sẽ giảm đi đáng kể nên tốc độ điều khiển sẽ nhanh hơn.

 

[viehoai]

Xin chào các bạn, mình gửi file đính kèm nhờ các bạn giúp sửa lại dòng lệnh trong VB để click các button "Block A", "Block B", ... chuyển qua lại các form ko bị lỗi.

Cám ơn nhiều
TD

Tất cả các code form bạn bẩy lỗi bằng câu: On Error Resume Next là được mà

 

[ndu96081631]

Xin chào các bạn, mình gửi file đính kèm nhờ các bạn giúp sửa lại dòng lệnh trong VB để click các button "Block A", "Block B", ... chuyển qua lại các form ko bị lỗi.

Cám ơn nhiều
TD

Tôi đề xuất giải pháp: 1 form gồm 4 page (thay vì 4 form). Như vậy bạn chỉ việc di chuyển qua lại giữa các page, rất đơn giản

 

[carsen4u]

To all: cám ơn các bạn rất nhiều, mình sẽ làm lại