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

Thảo luận trong 'Access' bắt đầu bởi HoaKhanhIT, 30 Tháng sáu 2009.

  1. Offline

    HoaKhanhIT

    • Thành Viên Mới

    Số bài viết:
    123
    Đã được thích:
    81
    Điểm thành tích:
    0
    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ì :D. 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.:cool:
    sunboy=DarkHorse= thích bài này.
  2. Offline

    =DarkHorse=

    • Cố vấn 2mit

    Số bài viết:
    759
    Đã được thích:
    192
    Điểm thành tích:
    140
    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.
  3. Offline

    HoaKhanhIT

    • Thành Viên Mới

    Số bài viết:
    123
    Đã được thích:
    81
    Điểm thành tích:
    0
    Eh có cảm ơn ta không mày

Chia sẻ trang này

Advertising: Linux system admin | nukeviet | nukeviet 4 | Upload ảnh miễn phí