图表变化

Private Sub Form_Load()

If Me.年份 <> "" And Me.月份 <> "" Then

Me.销售额图表.Visible = True

Else

Me.销售额图表.Visible = False

End If

End Sub

Private Sub 年份_Change()

If Me.年份 <> "" And Me.月份 <> "" Then

Me.销售额图表.Visible = True

Me.销售额图表.Requery

Me.销售额图表.ChartTitle = 年份 & "年" & Me.月份 & "月销售额"

Else

Me.销售额图表.Visible = False

End If

End Sub

Private Sub 月份_Change()

If Me.年份 <> "" And Me.月份 <> "" Then

Me.销售额图表.Visible = True

Me.销售额图表.Requery

Me.销售额图表.ChartTitle = 年份 & "年" & Me.月份 & "月销售额"

Else

Me.销售额图表.Visible = False

End If

End Sub

外部链接添加附件

Private Sub Form_Load()

Call 隐藏文档控件

Call 显示控件(Me.文档数据库)

End Sub

Sub 隐藏文档控件()

Me.文档附件子窗体1.Visible = False

Me.文档附件子窗体2.Visible = False

Me.文档附件子窗体3.Visible = False

Me.文档附件子窗体4.Visible = False

Me.文档附件子窗体5.Visible = False

End Sub

Private Sub 文档数据库_Change()

Call 隐藏文档控件

Call 显示控件(Me.文档数据库)

End Sub

Sub 显示控件(ByVal dataname As String)

Select Case dataname

Case "文档数据库1"

Me.文档附件子窗体1.Visible = True

Case "文档数据库2"

Me.文档附件子窗体2.Visible = True

Case "文档数据库3"

Me.文档附件子窗体3.Visible = True

Case "文档数据库4"

Me.文档附件子窗体4.Visible = True

Case "文档数据库5"

Me.文档附件子窗体5.Visible = True

End Select

End Sub

文件路径拆分 字符串截取函数应用

Private Sub Command拆分_Click()

If Me.文件完整路径 <> "" Then

Me.文件夹 = 提取文件夹路径(Me.文件完整路径)

Me.完整文件名 = 提取完整文件名(Me.文件完整路径)

Me.文件名 = 提取文件名(Me.文件完整路径)

Me.扩展名 = 提取扩展名(Me.文件完整路径)

Else

Me.文件夹 = ""

Me.完整文件名 = ""

Me.文件名 = ""

Me.扩展名 = ""

End If

End Sub

Function 提取文件夹路径(ByVal filepathname As String) As String

Dim a1 As Long

a1 = InStrRev(filepathname, "\")

提取文件夹路径 = Left(filepathname, a1 - 1)

End Function

Function 提取完整文件名(ByVal filepathname As String) As String

Dim a1 As Long

a1 = InStrRev(filepathname, "\")

提取完整文件名 = Right(filepathname, Len(filepathname) - a1)

End Function

Function 提取文件名(ByVal filepathname As String) As String

Dim a1 As Long

a1 = InStrRev(filepathname, "\")

Dim b1 As String

b1 = Right(filepathname, Len(filepathname) - a1)

Dim c1 As Long

c1 = InStrRev(b1, ".")

提取文件名 = Left(b1, c1 - 1)

End Function

Function 提取扩展名(ByVal filepathname As String) As String

Dim a1 As Long

a1 = InStrRev(filepathname, ".")

提取扩展名 = Right(filepathname, Len(filepathname) - a1)

End Function