Tôi có một cách tạo Msgbox tiếng Việt theo kiểu củ chuối, đơn giản không cần khai báo Function hay Private jj gì cả. Chắc là đã có nhiều bạn làm rồi nhưng chưa chia sẽ nên tôi Post lên. Xin các pro cùng các bạn đừng cười nhé !
1. Tạo table "tblMsgbox(MsgID,MsgDes)
2. Tạo Form "frmMsgbox" gồm 2 textbox: txtMsgID và txtMsgDes
- Form có: Record Source = tblMsgbox
- txtMsgID có Control Source = MsgID
- txtMsgDes có Control Source = MsgDes
3. Tạo form "MsgboxControl" gồm 3 button box: Hienthi1, Hienthi2, Hienthi3:
- Sự kiện cho Hienthi1:
Private Sub hienthi1_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=1"
End Sub
- Sự kiện cho Hienthi2:
Private Sub hienthi2_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=2", , acDialog
End Sub
- Sự kiện cho Hienthi3:
Private Sub hienthi2_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=3", , acWindowNormal
End Sub
Nếu muốn Msgbox hiện lên rồi tắt trong 1 thời gian nào đó thì thêm sự kiện cho "frmMsgbox" gồm:
Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub
và:
Private Sub Form_Timer()
DoCmd.Close
End Sub
Thế là có Msgbox Tiếng Việt 100%. Đơn giản như đang giỡn !
Demo:
MsgboxTiengViet.zip (Kích cỡ: 34.64 KB / Tải về: 129)