实用Access代码程序

.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