kính mong các sư huynh chỉ giáo em bị lỗi Run-time error 13

[kimnguu996]

em mới bặp bẹ xeo theo youtobe làm cái form đang nhập này nhưng bị báo lỗi Run-time error13 .. loay hoay mãi mà không biết hóc chỗ nào . kính mong các sư huynh chỉ giáo

 

[giaiphap]

em mới bặp bẹ xeo theo youtobe làm cái form đang nhập này nhưng bị báo lỗi Run-time error13 .. loay hoay mãi mà không biết hóc chỗ nào . kính mong các sư huynh chỉ giáo

Bạn mới nghiên cứu code mà viết chi cho rối vậy, cái cơ bản bạn không có thì làm sao mà viết code được. Trước hết bạn phải biết thế nào là WorkBook, WorkSheet, Range, Cells. trong code của bạn sai về cơ bản hết những cái này chính vì vậy bạn khai báo sai hết nên code sẽ sửa rất nhiều. Sửa code cho bạn nút Login các thứ khác bạn tự nghiên cứu.

Private Sub bt_dangnhap_login_click()
    Dim cot As Integer, Rng As Range, sCell As Range
    If cb_dangnhap_per.Text = "" Or txt_dangnhap_use.Text = "" Or txt_dangnhap_pass.Text = "" Then
        MsgBox " Thieu Thong Tin Yeu Cau Nhap Day Du", vbExclamation, "urgent alarm"
        Exit Sub
    End If
    If cb_dangnhap_per.Text = "Admin" Then
        cot = 2
    ElseIf cb_dangnhap_per.Text = "User" Then
        cot = 7
    ElseIf cb_dangnhap_per.Text = "PO" Then
        cot = 16
    Else
        MsgBox "Chua chon Permission"
        Exit Sub
    End If
    With Sheets("Data")
        Set Rng = .Cells(2, cot).Resize(.Cells(1000, cot).End(xlUp).Row - 3)
        For Each sCell In Rng
            If sCell.Value2 = txt_dangnhap_use.Text And sCell.Offset(, 1).Value2 = txt_dangnhap_pass.Text Then
                Sheets("Master").Visible = xlSheetVisible
                Sheets("Master").Unprotect Password:="00000"
                Sheets("Databased").Visible = xlSheetVisible
                Sheets("Databased").Unprotect Password:="00000"
                Sheets("Master").Select
                'MsgBox "Dang nhap thanh cong"
                Unload Me
                Exit Sub
            End If
        Next sCell
        MsgBox "Dang nhap khong thanh cong"
    End With
End Sub

 

[SA_DQ]

Bạn mới nghiên cứu code mà viết chi cho rối vậy, cái cơ bản bạn không có thì làm sao mà viết code được. . . . .

Coi chừng có người xông vô chưỡi ngược lại te tua cho bây giờ!

 

[VetMini]

Bạn mới nghiên cứu code mà viết chi cho rối vậy, cái cơ bản bạn không có thì làm sao mà viết code được. Trước hết bạn phải biết thế nào là WorkBook, WorkSheet, Range, Cells...

Bạn thấy người ta viết tiếng Việt hôn?
Cái cơ bản hơn nữa là:
- Học cách gõ cho kỹ lưỡng. Kiểu cẩu thả thế này thì code 100% là bị lỗi. Chính tả văn phạm tiếng Việt còn chưa rõ thì đòi ngữ pháp lập trình sao vô.
- Học cách quan sát môi trường cho chính xác. Ở đây đâu phải nhà chùa mà sư huynh với sư tử. Cái mửng không biết môi trường và tầm vực thì làm sao hiểu cách dùng VBE được.

 

[kimnguu996]

Bạn mới nghiên cứu code mà viết chi cho rối vậy, cái cơ bản bạn không có thì làm sao mà viết code được. Trước hết bạn phải biết thế nào là WorkBook, WorkSheet, Range, Cells. trong code của bạn sai về cơ bản hết những cái này chính vì vậy bạn khai báo sai hết nên code sẽ sửa rất nhiều. Sửa code cho bạn nút Login các thứ khác bạn tự nghiên cứu.

Private Sub bt_dangnhap_login_click()
    Dim cot As Integer, Rng As Range, sCell As Range
    If cb_dangnhap_per.Text = "" Or txt_dangnhap_use.Text = "" Or txt_dangnhap_pass.Text = "" Then
        MsgBox " Thieu Thong Tin Yeu Cau Nhap Day Du", vbExclamation, "urgent alarm"
        Exit Sub
    End If
    If cb_dangnhap_per.Text = "Admin" Then
        cot = 2
    ElseIf cb_dangnhap_per.Text = "User" Then
        cot = 7
    ElseIf cb_dangnhap_per.Text = "PO" Then
        cot = 16
    Else
        MsgBox "Chua chon Permission"
        Exit Sub
    End If
    With Sheets("Data")
        Set Rng = .Cells(2, cot).Resize(.Cells(1000, cot).End(xlUp).Row - 3)
        For Each sCell In Rng
            If sCell.Value2 = txt_dangnhap_use.Text And sCell.Offset(, 1).Value2 = txt_dangnhap_pass.Text Then
                Sheets("Master").Visible = xlSheetVisible
                Sheets("Master").Unprotect Password:="00000"
                Sheets("Databased").Visible = xlSheetVisible
                Sheets("Databased").Unprotect Password:="00000"
                Sheets("Master").Select
                'MsgBox "Dang nhap thanh cong"
                Unload Me
                Exit Sub
            End If
        Next sCell
        MsgBox "Dang nhap khong thanh cong"
    End With
End Sub

cảm ơn bạn đã nhận xét chân Tình. " mình không hiểu gì về cơ bản thật. mình xem youtobe. họ hướng dẫn rồi mình chép ra thôi " mình sẽ nghiên cứu về cơ bản. thanks

Bài đã được tự động gộp: 23/12/21

Bạn thấy người ta viết tiếng Việt hôn?
Cái cơ bản hơn nữa là:
- Học cách gõ cho kỹ lưỡng. Kiểu cẩu thả thế này thì code 100% là bị lỗi. Chính tả văn phạm tiếng Việt còn chưa rõ thì đòi ngữ pháp lập trình sao vô.
- Học cách quan sát môi trường cho chính xác. Ở đây đâu phải nhà chùa mà sư huynh với sư tử. Cái mửng không biết môi trường và tầm vực thì làm sao hiểu cách dùng VBE được.

cảm ơn bạn. nhưng mình nghĩ nói chuyện mà không thêm một chút hài ước vào thì quá cứng nhắc và khô khan. mình sẽ cố gắng mua cuốn sách (VBE) mà bạn gới thiệu

Bài đã được tự động gộp: 23/12/21

Coi chừng có người xông vô chưỡi ngược lại te tua cho bây giờ!

nhận xét của bạn ấy đúng mà bạn

 

[SA_DQ]

. . . . . . nhận xét của bạn ấy đúng mà bạn

Có thể đúng với 1 nhóm người, nhưng không hẵn đúng với nhóm nhỏ hay 1 người nào đó!

Chúc các bạn ngày vui!