Các Mã Lệnh Phục Vụ Việc Thiết Kế Access

1) Bạn chọn một mục nào đó trong Combo Box, tuy nhiên trong ComboBox không có thì bạn dùng mã lệnh sau đây để hiển thị thông báo lỗi:
Private Sub Nghenghiep_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
MsgBox “Cai nay khong co trong Combbox.”, , “Bao loi !”
End Suba

2) Khi muốn che đi các thông báo lỗi tiếng anh của Access thì dùng mã lệnh sau:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const SaiDuLieu = 2113 ‘ Loi nhap sai dinh dang so thanh chu
Const Rong = 3058 ‘ Loi khoa chinh hoặc bo trống
Const Nhapsai = 2279 ‘ Loi nhap sai so voi dinh dang inputmat
Dim strMsg As String
Select Case DataErr
Case SaiDuLieu
Response = acDataErrContinue
strMsg = “Xin kiem tra lai cach nhap du lieu. “
MsgBox strMsg, , “Bao loi !”
Case Rong
Response = acDataErrContinue
strMsg = “Ban phai nhap ma so?”
MsgBox strMsg, , “Bao loi !”
Case Nhapsai
Response = acDataErrContinue
strMsg = “Ban nhap sai so?”
MsgBox strMsg, , “Bao loi !”
End Select
End Sub

3) Bạn muốn làm cho dòng chữ chạy từ phải sang trái, xin mời đánh lệnh sau đây:
Tại thuộc tính on Timer của Forms ta viết
Private Sub Form_Timer()
Me.TimerInterval = 400
Dim x, y, AsString
x = Left(label.Caption, 2)
y = Right(label.Caption, Len(label.Caption) - 2)
label.Caption = y + x
End Sub
( Dòng chữ chạy trên forms với test tên là label, caption là gì cũng được)

4) Tạo cảnh báo khi nhập “từ ngày” lớn hơn “đến ngày”.
Private Sub Denngay_AfterUpdate()
If ((Tungay) >= (Denngay)) Then ‘Neu tu ngay lon hon den ngay thi thong bao’
MsgBox “Chu y nhap sai ngay”, vbOKOnly, “Bao loi !”
SendKeys “+{TAB}”, False
End If
End Sub

5) Nếu nhập từ ngày rồi mà quên nhập đến ngày thì báo lỗi.
Private Sub Denngay_LostFocus()
If (Not IsNull(Tungay)) Then ‘Neu tu ngay nhap roi ma den ngay chua co thi bao loi’
If (IsNull(Denngay)) Then
MsgBox “Xin nhap Den ngay “, vbOKOnly, “Bao loi”
SendKeys “+{TAB}”, False
End If
End If

6) Nếu khi rời khỏi 1 ô textbox mà rỗng thì báo lỗi.
Private Sub Giuong_GotFocus() ‘ Khi vao textbox Giuong’
If (IsNull(Phong)) Then ‘ Neu phong trong thi bao loi
MsgBox “Xin loi chua co phong”, vbInformation, “Chu y”
SendKeys “+{TAB}”, False
End If
End Sub

7) . Dùng các phím F1, F2…để mở các form
Bạn Tạo macro Autokeys :
Macro Name : {F1}
Action : OpenForm
Form Name : Form_"tùy bạn"

Có thể các bạn thấy cái này hay nhưng không biết làm thế nào để thực hiện được chứ gì . Rất đơn giản, nếu bạn muốn một mã lệnh nào đó thi hành trong một form nào đó thì các bạn chỉ cần di chuyển tới form cần dung, click chuột phải chọn Build Event => Code builder => Copy and paste.
Chúc các bạn thành công, nếu các bạn muốn thêm gì nữa xin cứ port câu hỏi.

Hehe mình đoán không lầm thì chắc pác Trí đây phải không? bài này hay đấy, nên thường xuyên share mấy cái như thế này nghe pác. cảm ơn.

Eh có cảm ơn ta không mày