如何在ACCESS数据库中表对象中运用一个时间函数?

发布网友发布时间：2022-05-02 20:51

共1个回答

热心网友时间：2022-04-13 09:10

你的这个要求不能直接在表中进行设置！必须在窗体中用VB代码才可以。。
使用向导创建窗体，选中你的表并添加全部字段，逐次点击下一步，完成窗体的创建。
打开VB编辑器，左侧点击刚创建的窗体，然后把下面的代码复制到右侧的代码区域，保存后关闭。
关闭刚创建窗体的设计视图，双击它打开（以后都通过它来输入），输入数据即可实现你的要求了。

Private Sub klwqd()
'创建一个名称为klwqd 的 Sub过程，以便下面的调用
'如果跨距、破坏荷载、试件高度、试件宽度都不为空，则
'抗弯拉强度等于(跨距 * 破坏荷载) / (试件高度 * 试件宽度 * 试件宽度)四舍五入保留3位小数
'你可以通过修改下面等式中的3来改变要保留的位数
'★另外，不知道为什么要乘二次“试件宽度”？如果是你输入错误，请去掉公式中的一个！
If Not IsNull(Me.跨距) And Not IsNull(Me.破坏荷载) And Not IsNull(Me.试件高度) And Not IsNull(Me.试件宽度) Then
Me.抗弯拉强度 = Round((Me.跨距 * Me.破坏荷载) / (Me.试件高度 * Me.试件宽度 * Me.试件宽度), 3)
End If
End Sub

Private Sub Form_Load()
'窗体打开时锁定试验日期和抗弯拉强度输入框
Me.试验日期.Locked = True
Me.抗弯拉强度.Locked = True
End Sub

Private Sub 成型日期_AfterUpdate()
'成型日期更新后如果不为空，则试验日期等于成型日期向后延迟28天
If Me.成型日期 <> "" Then Me.试验日期 = DateAdd("d", 28, Me.成型日期)
End Sub

Private Sub 跨距_AfterUpdate()
'跨距更新后调用 klwqd过程
klwqd
End Sub

Private Sub 破坏负荷_AfterUpdate()
'破坏负荷更新后调用 klwqd过程
klwqd
End Sub

Private Sub 试件高度_AfterUpdate()
'试件高度更新后调用 klwqd过程
klwqd
End Sub

Private Sub 试件宽度_AfterUpdate()
'试件宽度更新后调用 klwqd过程
klwqd
End Sub