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
,
