发布时间 : 星期四 文章实用Access代码程序更新完毕开始阅读89daa490f78a6529647d53b8
Select Case Weekday(Date, vbMonday) Case 1
Me![txtWeek] = \星期一\ Case 2
Me![txtWeek] = \星期二\ Case 3
Me![txtWeek] = \星期三\ Case 4
Me![txtWeek] = \星期四\ Case 5
Me![txtWeek] = \星期五\ Case 6
With txtWeek
.ForeColor = 255 End With
Me![txtWeek] = \星期六\ Case 7
With txtWeek
.ForeColor = 255 End With
Me![txtWeek] = \星期日\ End Select
Me.txtTime.Value = now() End Sub
‘关闭所有窗体
dim intx as integer dim intCount as integer intCount = Forms.count-1
for intX= intCount to 0 step -1 docmd.close acform,forms(intX).name next
‘*************OR************** for intX= intCount to 0 step -1
if forms(intX).Name <> \ docmd.close acform,forms(intX).name end if next
返回年龄
Public Function srAge(Birthday As Date, NowDate As Date) As Integer '返回年龄
srAge = Int((NowDate - Birthday) / 365.25)
End Function
'************* Code End **************
不用查询在一个表内自加减的办法1：
1.新建一个人费用表“个人费用”
id 年月 工资 日期 支出 剩余 数字 文本 数字 日期 数字 长整型 单精度型 单精度型 单精度型 2.新建一窗体：Form-个人费用（数据表视图）
记录源：SELECT 个人费用.id, 个人费用.年月, 个人费用.工资, 个人费用.支出, 个人费用.剩余, 个人费用.日期, 个人费用.备注 FROM 个人费用 ORDER BY 个人费用.id;
代码：
Option Compare Database
------------------------------------------------------------
Private Sub Form_BeforeInsert(Cancel As Integer) 插入前 Me.id = DMax(\个人费用\If Me.Recordset.RecordCount = 0 Then Me.id = 1 End If End Sub
------------------------------------------------------
Private Sub 工资_AfterUpdate() 更新后 Dim counter
If Me.Recordset.RecordCount < 1 Then Me![剩余] = Nz(Me![工资]) - Me.支出 Else
DoCmd.GoToRecord , , acPrevious counter = Me![剩余]
DoCmd.GoToRecord , , acNext
Me![剩余] = Nz(Me![工资]) + counter - Me.支出 End If End Sub
-----------------------------------------------------------------
Private Sub 支出_AfterUpdate() 更新后 Dim counter
If Me.Recordset.RecordCount < 1 Then Me![剩余] = Nz(Me![工资]) - Me.支出 Else
DoCmd.GoToRecord , , acPrevious counter = Me![剩余]
DoCmd.GoToRecord , , acNext
Me![剩余] = Nz(Me![工资]) + counter - Me.支出 End If End Sub
在窗体的文本框中变化数字：（Interval=100）
Private Sub Form_Timer() i = i + 10
text20.SetFocus
text.20.Text = Str(i / 10)
If i = 700 Then DoCmd.Close End Sub
不用查询在一个表内自加减的办法2：
1.新建一个银行存款表“银行存款”
识别码 日期 存入 提款 自动编号 日期/时间 货币 货币 主键 2.新建一个查询“查询名“（来源为表：银行存款）
字段： 表： 排序： 显示： 日期 银行存款 货币 存入 银行存款 提款 银行存款 余额: f([日期]) 3.新建一个模块“模块1“代码如下：
Option Compare Database
------------------------------------------------------------------------------- Public Function f(d As Date) As Currency Dim a As Currency Dim b As Currency
a = Nz(DSum(\银行存款]![存入]\银行存款]\日期] <= # \ b = Nz(DSum(\银行存款]![提款]\银行存款]\日期] <= # \
f = a - b
End Function
此查询不能直接用于窗体，新加项后余额显示错误，要想用于窗体必需从窗体中再编程
制做弹出菜单：
Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Me.Image0 .Height = 400 End With
Me.cmdAddUser.Visible = True Me.cmdClose.Visible = True Me.cmdPowerSet.Visible = True End Sub
---------------------------------------------------------- Private Sub Form_Load() With Me.Image0