if語句判斷常用功能 Access數(shù)據(jù)庫功能模塊講解 VBA代碼編程實(shí)例
Private Sub Command查看1_Click()? ? ? ? '判斷指定文件是否存在
If Me.文件 <> "" Then
? ? If IsFileExists(Me.文件) = False Then
? ? ? ? MsgBox "文件不存在"
? ? ? ? Exit Sub
? ? Else
? ? ? ? MsgBox "文件已存在"
? ? End If
Else
MsgBox "請輸入文件路徑"
Exit Sub
End If
End Sub
Private Sub Command查看2_Click()? ? ? ? '判斷指定文件夾是否存在
If Me.文件夾 <> "" Then
? ? If FileFolderExists(Me.文件夾) = False Then
? ? ? ? MsgBox "文件夾不存在"
? ? ? ? Exit Sub
? ? Else
? ? ? ? MsgBox "文件夾已存在"
? ? End If
Else
MsgBox "請輸入文件夾路徑"
Exit Sub
End If
End Sub
Private Sub Command更新_Click()? ? ? ? '更新記錄時彈出提示，防止誤操作
If MsgBox("是否保存對記錄的修改", vbOKCancel) = vbOK Then
'更新代碼，或者跳過繼續(xù)執(zhí)行
Else
Exit Sub
End If
End Sub
Private Sub Command檢查_Click()? ? ? ? '判斷指定表字段值是否存在，返回指定記錄
If Me.產(chǎn)品編號 <> "" Then
? ? If Nz(DCount("產(chǎn)品編號", "產(chǎn)品表", "產(chǎn)品編號='" & Me.產(chǎn)品編號 & "'"), 0) > 0 Then
? ? ? ? MsgBox "該產(chǎn)品編號已存在，請輸入其他編號"
? ? ? ? Exit Sub
? ? Else
? ? ? ? MsgBox "該產(chǎn)品編號不存在" '可以執(zhí)行添加記錄等操作
? ? End If
Else
MsgBox "請輸入產(chǎn)品編號"
Exit Sub
End If
End Sub
Private Sub Command刪除_Click()? ? ? ? '刪除記錄時彈出提示，防止誤刪除操作
If MsgBox("是否刪除該記錄", vbOKCancel) = vbOK Then
'刪除代碼，或者跳過繼續(xù)執(zhí)行
Else
Exit Sub
End If
End Sub
Private Sub Command添加_Click()? ? ? ? '添加金額數(shù)據(jù)，不能為空且大于等于0
If Me.金額 <> "" Then
? ? If CCur(Me.金額) < 0 Then
? ? ? ? MsgBox "金額不能小于"
? ? ? ? Exit Sub
? ? End If
Else
MsgBox "金額不能為空"
Exit Sub
End If
End Sub
Private Sub Command添加2_Click()? ? ? ? '判斷輸入的文本不能小于6個字符
If Me.賬號 <> "" Then
? ? If Len(Me.賬號) < 6 Then
? ? ? ? MsgBox "賬號不能小于6個字符"
? ? ? ? Exit Sub
? ? End If
Else
MsgBox "賬號不能為空"
Exit Sub
End If
End Sub
Private Sub Command添加3_Click()? ? ? ? '判斷輸入日期在當(dāng)前系統(tǒng)日期天數(shù)之前
If Me.日期 <> "" Then
? ? If DateDiff("d", Me.日期, Date) > 0 Then
? ? ? ? MsgBox "日期不能在當(dāng)前日期之前"
? ? ? ? Exit Sub
? ? End If
Else
MsgBox "日期不能為空"
Exit Sub
End If
End Sub
Function IsFileExists(ByVal strFileName As String) As Boolean? ?'判斷文件是否存在
? If Len(Dir(strFileName)) <> 0 Then
? ? IsFileExists = True
? Else
? ? IsFileExists = False
? End If
End Function
Public Function FileFolderExists(strFullPath As String) As Boolean? '判斷文件夾是否存在
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function
