Private Sub UserName_Click() '物件名 事件名 程序名
If IsNull(Me.UserName) Then Rem Me.UserName ：參考當前表單上控制元件Me的Username屬性
MsgBox (" 請輸入您的用戶名")
'用于顯示一個提示資訊框并回傳用戶回應結果
Me.UserName.SetFocus
'滑鼠指在UserName
ElseIf IsNull(Me.keyword) Then
MsgBox ("請輸入您的密碼"), vbCritical
' 圖示樣式 顯示（vb）紅叉（X）圓圖示
Me.keyword .SetFocus
'滑鼠指在keyword
Else
strSQL = "select * from 表1 where UserName ='" & Me.UserName & "' "
rs.Open str
CurrentProject.Connection ',
adOpenoptimistic , adLockReadOnly
If (rs("keyword") = keyword) Then
Me.Visible = False
DoComd.Close '關閉當前活動視窗
DoComd.OpenForm "學生表" '打開學生表表單
Else
MsgBox "您輸入的密碼不正確，請重新輸入！如密碼遺忘請與管理員聯系", vbCritical
' 圖示樣式 顯示（vb）紅叉（X）圓圖示
rs.Close
Set .rs = Nothing
Exit Sub
End If
End If
End If
Me.UserName = ""
Me.myword = ""
End Sub
uj5u.com熱心網友回復：
是不是這里少了一個 ifElse if
strSQL = "select * from
uj5u.com熱心網友回復：
第1： 事件程序代碼中，第1行的Then 后面 ，從Rem開始換到下一行去。或者把 Rem 換成英文的單引號。
第2： 后面多寫了一個 End If 。
uj5u.com熱心網友回復：
架構本身就不合理。改改：
Private Sub UserName_Click() '物件名 事件名 程序名
If IsNull(Me.UserName) Then 'Rem Me.UserName ：參考當前表單上控制元件Me的Username屬性
MsgBox (" 請輸入您的用戶名")
'用于顯示一個提示資訊框并回傳用戶回應結果
Me.UserName.SetFocus
'滑鼠指在UserName
Exit Sub
End If
If IsNull(Me.keyword) Then
MsgBox ("請輸入您的密碼"), vbCritical
' 圖示樣式 顯示（vb）紅叉（X）圓圖示
Me.keyword .SetFocus
'滑鼠指在keyword
Exit Sub
End If
strSQL = "select * from 表1 where UserName ='" & Me.UserName & "' "
rs.Open str, CurrentProject.Connection, adOpenoptimistic , adLockReadOnly
If (rs("keyword") = keyword) Then
Me.Visible = False
DoComd.Close '關閉當前活動視窗
DoComd.OpenForm "學生表" '打開學生表表單
Else
MsgBox "您輸入的密碼不正確，請重新輸入！如密碼遺忘請與管理員聯系", vbCritical
' 圖示樣式 顯示（vb）紅叉（X）圓圖示
End If
rs.Close
Set .rs = Nothing
Me.UserName = ""
Me.myword = ""
End Sub
uj5u.com熱心網友回復：
一般這種提示都是多了End If之類，建議代碼縮進，比較能看清楚uj5u.com熱心網友回復：
偶遇到類似問題都是用“每次用‘注釋掉不同部分再重新編譯，直到定位到具體語法出錯的位置。”
的方法解決的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/49974.html
標籤：VB基礎類
上一篇：VB連接SQLite資料庫