圖表變化

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.文檔數(shù)據(jù)庫)

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 文檔數(shù)據(jù)庫_Change()

Call 隱藏文檔控件

Call 顯示控件(Me.文檔數(shù)據(jù)庫)

End Sub

Sub 顯示控件(ByVal dataname As String)

Select Case dataname

Case "文檔數(shù)據(jù)庫1"

Me.文檔附件子窗體1.Visible = True

Case "文檔數(shù)據(jù)庫2"

Me.文檔附件子窗體2.Visible = True

Case "文檔數(shù)據(jù)庫3"

Me.文檔附件子窗體3.Visible = True

Case "文檔數(shù)據(jù)庫4"

Me.文檔附件子窗體4.Visible = True

Case "文檔數(shù)據(jù)庫5"

Me.文檔附件子窗體5.Visible = True

End Select

End Sub

文件路徑拆分 字符串截取函數(shù)應(yīng)用

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