关于update时间后 不会自动更新

admin

1. access 没有 short 数据类型，要使用long
2. 你的 ID是文字 ，要定义为String, 不能定义为long ,且 条件前后要加单引号

修改后的正确代码为：


Private Sub ID_AfterUpdate()
    '每次产品更改的初始价格和折扣
    If Not IsNull(Me![ID]) Then
        Me![列出价格] = GetListPrice(Me![ID])
       Me![标准成本] = GetStandardCost(Me![ID])
   
        
        
    '空产品订单表示用户要删除项目
    Else
        eh.TryToRunCommand acCmdDeleteRecord
    End If
End Sub

Function GetStandardCost(lID As String) As Currency
    GetStandardCost = DLookup("[标准成本]", "imp", "[ID]='" & lID & "'")
End Function


Function GetListPrice(lID As String) As Currency
    GetListPrice = DLookup("[列出价格]", "imp", "[ID]='" & lID & "'")
End Function