发布时间 : 星期一 文章实用Access代码程序更新完毕开始阅读89daa490f78a6529647d53b8
.Height = 150 End With
Me.cmdAddUser.Visible = False Me.cmdClose.Visible = False Me.cmdPowerSet.Visible = False End Sub
将三种CMD命令按纽放在Image0上
动画显示》》》》》
Option Compare Database Dim I As Long
---------------------------------------------------- Private Sub Form_Timer()
If I >= 0 Then Label10.Caption = Label10.Caption + \ If I > 24 Then I = 0
Label10.Caption = \ End If
If I > 12 Then
Label10.Caption = \ End If I = I + 1 End Sub
不断变化的标题
Private Sub Form_Timer() If Me.Caption = \测试\Me.Caption = \Else
Me.Caption = \测试\End If End Sub
命令按纽在移动、单击、按下分别显示按纽不同颜色
（关于窗体） 确定 标题：确定
名称：LabOK
事件Private Sub LabOK_Click()
On Error Resume Next
LabOK.BackColor = 14792846 LabOK.ForeColor = vbBlue LabOK.FontUnderline = True
DoCmd.Close
End Sub
Private Sub LabOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
LabOK.BackColor = 15785160 LabOK.ForeColor = vbBlue End Sub
Private Sub LabOK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabOK.BackColor = 14792846 LabOK.FontBold = True
End Sub
Private Sub cmdClose_Click() '这个隐藏关闭按钮默认设为是， On Error GoTo Err_cmdClose_Click '这样可以用回车关闭
打开窗体按回车可以关闭窗体
DoCmd.Close
Exit_cmdClose_Click: Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click End Sub
命令按纽在移动、单击、按下分别显示按纽不同颜色
（关于窗体）
Private Sub Command3_Click()
MsgBox \我就是不关，气死你：）\ Command3.ForeColor = 0 Command3.FontSize = 9 End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.ForeColor = 255 Command3.FontSize = 10 End Sub
Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.ForeColor = 0 Command3.FontSize = 9 End Sub
Private Sub Command5_Click()
MsgBox \拿钱来就帮你保存！哈哈！！\ Command5.ForeColor = 0 Command5.FontSize = 9 End Sub
Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.ForeColor = 255 Command5.FontSize = 10 End Sub
Private Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.ForeColor = 0 Command5.FontSize = 9 End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.ForeColor = 0 Command3.FontSize = 9 Command5.ForeColor = 0 Command5.FontSize = 9 End Sub
在窗体表格中插入记录
1. 表：Employee ID-----------------自动编号-长整型主键 EmployeeID-----数字 -长整型 LastName---------文本 -文本 2. 窗体：Employee 属性
A记录源 Employee B排序依据Employee.EmployeeID C标题Employee 默认视图 连续窗体
3窗体页脚做一命令按inset 纽 Option Compare Database Option Explicit
------------------------------------------------------------ Private Sub cmdInset_Click() Dim iNo As Long
iNo = [Forms]![employee]!EmployeeID
DoCmd.SetWarnings False
DoCmd.RunSQL \Employee SET Employee.EmployeeID = Employee.EmployeeID + 1 WHERE (((Employee.EmployeeID)>=\ DoCmd.RunSQL \\
DoCmd.SetWarnings True Me.Requery End Sub
-------------------------------------代码完---------------------------------
窗体单选按纽用法单选名称为opt_X
Private Sub opt_1_Click() If opt_1.Value = True Then txt_1.Enabled = True Else
txt_1.Enabled = False End If
query_refresh