Không hiện hộp thoại đăng nhập

[NH_DK]

Chào cả nhà! Em có 1 ví dụ. Cũng thú thật là cách đặt hằng số của em lâu lâu em không nhớ lắm. Em có ví dụ nhỏ này nhờ mọi người xem cho em: Sao lại báo lỗi:

Const a = Sheet2.Range("A1").Value ' Sao lai loi o day?
Const b = Sheet2.Range("A2").Value ' Sao lai loi o day?
Private Sub cmdOk_Click()
    If TextBox1 = a And TextBox2 = b Then
        Unload Me
        Application.Visible = True
    Else
        MsgBox "You enter mistake. Pls enter again!", vbCritical + vbOKOnly
        cmdOK.SetFocus
    End If
End Sub

 

[ndu96081631]

Chào cả nhà! Em có 1 ví dụ. Cũng thú thật là cách đặt hằng số của em lâu lâu em không nhớ lắm. Em có ví dụ nhỏ này nhờ mọi người xem cho em: Sao lại báo lỗi:

Const a = Sheet2.Range("A1").Value ' Sao lai loi o day?
Const b = Sheet2.Range("A2").Value ' Sao lai loi o day?
Private Sub cmdOk_Click()
    If TextBox1 = a And TextBox2 = b Then
        Unload Me
        Application.Visible = True
    Else
        MsgBox "You enter mistake. Pls enter again!", vbCritical + vbOKOnly
        cmdOK.SetFocus
    End If
End Sub

Hằng số là HẰNG SỐ thôi, không thể gán kiểu vậy được! Hóa ra nó trở thành 1 biến rồi còn gì
Sửa vầy mới được:

Private a As String
Private b As String
Private Sub UserForm_Initialize()
  a = Sheet2.Range("A1").Value
  b = Sheet2.Range("A2").Value
End Sub

 

[tintam7251]

Theo mình, không cần khai báo gì. Có thế viết luôn thế này cho gọn:

If TextBox1 = Sheet2.Range("A1").Value And TextBox2 = Sheet2.Range("A2").Value Then....