【按钮标题修改 显示隐藏控件】【使用操作查询删除记录】【常用函数】
控件属性设置
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
使用操作查询删除记录
销售数据表
Private Sub 销售ID_DblClick(Cancel As Integer)
If MsgBox("是否删除该记录", vbOKCancel) = vbOK Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 销售数据表 Where 销售ID= " & 销售ID
DoCmd.RunSQL del_sql
End If
Forms("销售数据查询").数据表子窗体.Requery
End Sub
销售数据查询
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.数据表子窗体.Form.Filter = filter_text
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.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.数据表子窗体.Form.FilterOn = False
End Sub
常用函数
Private Sub Command运行_Click()
If Me.选择函数 <> "" Then
Select Case Me.选择函数
Case 1
Me.结果 = Abs(Me.参数1)
Case 2
Me.结果 = Asc(Me.参数1)
Case 3
Me.结果 = Chr(Me.参数1)
Case 4
Me.结果 = Format(Me.参数1, "YYYYMMDD")
Case 5
Me.结果 = InputBox(Me.参数1, Me.参数2, Me.参数3)
Case 6
Me.结果 = Int(Me.参数1)
Case 7
Me.结果 = InStr(1, Me.参数1, Me.参数2)
Case 8
Me.结果 = InStrRev(Me.参数1, Me.参数2)
Case 9
Me.结果 = LCase(Me.参数1)
Case 10
Me.结果 = UCase(Me.参数1)
Case 11
Me.结果 = Left(Me.参数1, Me.参数2)
Case 12
Me.结果 = Mid(Me.参数1, Me.参数2, Me.参数3)
Case 13
Me.结果 = Right(Me.参数1, Me.参数2)
Case 14
Me.结果 = Len(Me.参数1)
Case 15
Me.结果 = LTrim(Me.参数1)
Case 16
Me.结果 = RTrim(Me.参数1)
Case 17
Me.结果 = Trim(Me.参数1)
Case 18
Randomize
Me.结果 = Rnd()
Case 19
Me.结果 = Space(Me.参数1)
Case 20
Me.结果 = String(Me.参数1, Me.参数2)
Case 21
Me.结果 = MsgBox(Me.参数1)
Case 22
Me.结果 = Round(Me.参数1, Me.参数2)
Case 23
Me.结果 = Replace(Me.参数1, Me.参数2, Me.参数3)
End Select
Else
MsgBox "请选择函数"
End If
End Sub
Private Sub 选择函数_Change()
Me.参数1 = ""
Me.参数2 = ""
Me.参数3 = ""
Me.结果 = ""
End Sub
