ErrorHandler仍然顯示錯誤

當我鍵入text1但它是錯誤的，錯誤顯示，但命令2已啓用。當我輸入我的數據庫的正確名稱。該錯誤仍然顯示並且命令2被再次啓用。我不知道發生了什麼事。ErrorHandler仍然顯示錯誤

Private Sub Command1_Click() 

    conAddStudent.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 123 ;Initial Catalog=" & Text1.Text & " ;Data Source=COM1\SQLEXPRESS;password= 123" 

     On Error GoTo err 
    command2.Enabled = True 
err: 
    MsgBox "none" 

    Exit Sub 

End Sub

來源

2016-02-19 NewProg

您需要在錯誤標籤之前移動Exit Sub，以便在正常運行時觸發錯誤之前退出。

Private Sub Command1_Click() 

    conAddStudent.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 123 ;Initial Catalog=" & Text1.Text & " ;Data Source=COM1\SQLEXPRESS;password= 123" 

    If Text2.Text = "Valid Name" Then 
     Text2.Enabled = True 
    Else 
     MsgBox "none" 
    End If 

End Sub

來源

2016-02-19 12:19:57

感謝您的答覆sir.but當我鍵入了錯誤的名稱錯誤沒有顯示也被啓用文本2是真的 – NewProg

A「錯名」是不是一個錯誤，它是有效的文本不會導致一個錯誤。您需要添加一個If語句來檢查名稱。在錯誤不會完成你想要做的。 –

謝謝先生，我會嘗試 – NewProg

ErrorHandler仍然顯示錯誤

回答

相關問題