控件屬性設置

Private Sub Command開關_Click()

If Me.Command開關.Caption = "開燈" Then

Me.Command開關.Caption = "關燈"

Me.圖像1.Visible = True

Me.圖像2.Visible = False

Else

Me.Command開關.Caption = "開燈"

Me.圖像1.Visible = False

Me.圖像2.Visible = True

End If

End Sub

Private Sub Form_Load()

Me.圖像1.Visible = False

Me.圖像2.Visible = True

End Sub

使用操作查詢刪除記錄

銷售數(shù)據(jù)表

Private Sub 銷售ID_DblClick(Cancel As Integer)

If MsgBox("是否刪除該記錄", vbOKCancel) = vbOK Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 銷售數(shù)據(jù)表 Where? 銷售ID= " & 銷售ID

DoCmd.RunSQL del_sql

End If

Forms("銷售數(shù)據(jù)查詢").數(shù)據(jù)表子窗體.Requery

End Sub

銷售數(shù)據(jù)查詢

Public filter_text As String? ? '定義為公共變量

Private Sub Command查詢_Click()

filter_text = ""

If Me.員工編號 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 員工編號 like '*" & Me.員工編號 & "*'"

? ? Else

? ? filter_text = "員工編號 like '*" & Me.員工編號 & "*'"

? ? End If

End If

If Me.部門 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 部門 like '*" & Me.部門 & "*'"

? ? Else

? ? filter_text = "部門 like '*" & Me.部門 & "*'"

? ? End If

End If

If Me.職位 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 職位 like '*" & Me.職位 & "*'"

? ? Else

? ? filter_text = "職位 like '*" & Me.職位 & "*'"

? ? End If

End If

If Me.姓名 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 姓名 like '*" & Me.姓名 & "*'"

? ? Else

? ? filter_text = "姓名 like '*" & Me.姓名 & "*'"

? ? End If

End If

If Me.銷售日期1 <> "" And Me.銷售日期2 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 銷售日期 between #" & Me.銷售日期1 & "# and #" & Me.銷售日期2 & "#"

? ? Else

? ? filter_text = "銷售日期 between #" & Me.銷售日期1 & "# and #" & Me.銷售日期2 & "#"

? ? End If

End If

If Me.銷售額1 <> "" And Me.銷售額2 <> "" Then

? ? If filter_text <> "" Then

? ? filter_text = filter_text & " and 銷售額 >= " & Me.銷售額1 & " and 銷售額<=" & Me.銷售額2

? ? Else

? ? filter_text = "銷售額 >= " & Me.銷售額1 & " and 銷售額<=" & Me.銷售額2

? ? End If

End If

'------------------------------篩選子窗體

If filter_text <> "" Then

Me.數(shù)據(jù)表子窗體.Form.Filter = filter_text

Me.數(shù)據(jù)表子窗體.Form.FilterOn = True

Else

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End If

End Sub

Private Sub Command清空_Click()

員工編號.Value = ""

姓名.Value = ""

部門.Value = ""

職位.Value = ""

銷售日期1.Value = ""

銷售日期2.Value = ""

銷售額1.Value = ""

銷售額2.Value = ""

End Sub

Private Sub Command全部_Click()

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End Sub

常用函數(shù)

Private Sub Command運行_Click()

If Me.選擇函數(shù) <> "" Then

Select Case Me.選擇函數(shù)

Case 1

Me.結(jié)果 = Abs(Me.參數(shù)1)

Case 2

Me.結(jié)果 = Asc(Me.參數(shù)1)

Case 3

Me.結(jié)果 = Chr(Me.參數(shù)1)

Case 4

Me.結(jié)果 = Format(Me.參數(shù)1, "YYYYMMDD")

Case 5

Me.結(jié)果 = InputBox(Me.參數(shù)1, Me.參數(shù)2, Me.參數(shù)3)

Case 6

Me.結(jié)果 = Int(Me.參數(shù)1)

Case 7

Me.結(jié)果 = InStr(1, Me.參數(shù)1, Me.參數(shù)2)

Case 8

Me.結(jié)果 = InStrRev(Me.參數(shù)1, Me.參數(shù)2)

Case 9

Me.結(jié)果 = LCase(Me.參數(shù)1)

Case 10

Me.結(jié)果 = UCase(Me.參數(shù)1)

Case 11

Me.結(jié)果 = Left(Me.參數(shù)1, Me.參數(shù)2)

Case 12

Me.結(jié)果 = Mid(Me.參數(shù)1, Me.參數(shù)2, Me.參數(shù)3)

Case 13

Me.結(jié)果 = Right(Me.參數(shù)1, Me.參數(shù)2)

Case 14

Me.結(jié)果 = Len(Me.參數(shù)1)

Case 15

Me.結(jié)果 = LTrim(Me.參數(shù)1)

Case 16

Me.結(jié)果 = RTrim(Me.參數(shù)1)

Case 17

Me.結(jié)果 = Trim(Me.參數(shù)1)

Case 18

Randomize

Me.結(jié)果 = Rnd()

Case 19

Me.結(jié)果 = Space(Me.參數(shù)1)

Case 20

Me.結(jié)果 = String(Me.參數(shù)1, Me.參數(shù)2)

Case 21

Me.結(jié)果 = MsgBox(Me.參數(shù)1)

Case 22

Me.結(jié)果 = Round(Me.參數(shù)1, Me.參數(shù)2)

Case 23

Me.結(jié)果 = Replace(Me.參數(shù)1, Me.參數(shù)2, Me.參數(shù)3)

End Select

Else

MsgBox "請選擇函數(shù)"

End If

End Sub

Private Sub 選擇函數(shù)_Change()

Me.參數(shù)1 = ""

Me.參數(shù)2 = ""

Me.參數(shù)3 = ""

Me.結(jié)果 = ""

End Sub