Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Trang 3 của 3 Đầu tiênĐầu tiên 123
Kết quả 21 đến 25 của 25
  1. #21
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Code Mở phím Shift bị lỗi




    Trích dẫn Gửi bởi glasseggs
    Hì . Bạn nhầm rùi, như thế cũng không khác gì cả.
    Đơn giản chỉ là Allowpasskey thôi mà,ở đâu chả thế.
    Mới down được 2 phần mềm phá pass access 2007,tối nay thử xem nó có phá dễ dàng như 2003 không.
    Mà hình như là cái File Access 2007 mở bằng phần mềm Open Office là nó bung hết passsword của VBA hay sao đó bạn,Còn password của Acceess thi không biết là có... hay không nữa
    Cao thủ vào xác nhận giùm.

  2. #22
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Code Mở phím Shift bị lỗi

    Xác nhận pass 2007 khó chơi hơn 2003 ,2 phần mềm dò lâu quá không chờ được.
    Cái Open chưa thử,không phải cao thủ nên đi ra.

  3. #23
    Ngày tham gia
    Jan 2016
    Bài viết
    137
    Ðề: Code Mở phím Shift bị lỗi

    pass cap 1:Karaoke±Å²Æ³Ç´µ¢¶£·
    pass cap 2ass±Å²Æ³Ç´µ¢¶£·

  4. #24
    Ngày tham gia
    Apr 2016
    Bài viết
    75
    Ðề: Code Mở phím Shift bị lỗi

    a ơi cho em hỏi e đang làm cái disable va enable phím shift
    nó báo lỗi dòng màu xanh là ntn ak.:

    Private Sub Command0_Click()
    On Error GoTo ErrHandler

    Dim db As Database
    Dim ThuocTinh As Property

    Set db = CurrentDb
    db.Properties("AllowBypassKey") = False
    Set db = Nothing

    Egress:
    On Error Resume Next
    Set db = Nothing
    Set ThuocTinh = Nothing
    Exit Sub

    ErrHandler:
    MsgBox Err.Number
    If Err.Number = 3270 Then ' Property not found.
    Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, False)
    db.Properties.Append ThuocTinh
    Resume Next
    Else
    MsgBox Err.Description
    Resume Egress
    End If
    End Sub

    Private Sub Command1_Click()

    On Error GoTo ErrHandler

    Dim db As Database
    Dim ThuocTinh As Property

    Set db = CurrentDb
    db.Properties("AllowBypassKey") = True
    Set db = Nothing

    Egress:
    On Error Resume Next
    Set db = Nothing
    Set ThuocTinh = Nothing
    Exit Sub

    ErrHandler:
    MsgBox Err.Number
    If Err.Number = 3270 Then ' Property not found.
    Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
    db.Properties.Append ThuocTinh
    Resume Next
    Else
    MsgBox Err.Description
    Resume Egress
    End If
    End Sub





    em xin cám ơn

  5. #25
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Code Mở phím Shift bị lỗi




    Trích dẫn Gửi bởi sinhvienpy89
    Không được chỉ co Ac2k3 thôi và các phiên bảng trước đó của nó.
    Thông qua bài này cho ta thấy, khi muốn mà khoá phim SHIFT ta không nên dùng Code trong Database mà nên để ơ môt File khác rồi dùng Code khoá gián tiếp.
    Đặt Code khóa phím Shift tại một Form mà chỉ có nguoi thiết kế mới biết.
    [You] khóa phím shift cở nào và giấu ở đâu đi nữa thì cũng vẫn mở được như thường. Dĩ nhiên là không dùng 1 phần mền nào phá pass mà dùng chính nó để mở nó.

 

 
Trang 3 của 3 Đầu tiênĐầu tiên 123

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •