access刷新查詢的vba代碼?Private Sub Command查看1_Click() '判斷指定文件是否存在，下面我們就來說一說關于access刷新查詢的vba代碼?我們一起去了解并探讨一下這個問題吧!

access刷新查詢的vba代碼

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

'更新代碼，或者跳過繼續執行

Else

Exit Sub

End If

End Sub

Private Sub Command檢查_Click() '判斷指定表字段值是否存在，返回指定記錄

If Me.産品編号 <> "" Then

If Nz(DCount("産品編号", "産品表", "産品編号='" & Me.産品編号 & "'"), 0) > 0 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

'删除代碼，或者跳過繼續執行

Else

Exit Sub

End If

End Sub

Private Sub Command添加_Click() '添加金額數據，不能為空且大于等于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() '判斷輸入日期在當前系統日期天數之前

If Me.日期 <> "" Then

If DateDiff("d", Me.日期, Date) > 0 Then

MsgBox "日期不能在當前日期之前"

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

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!