|
5#
楼主 |
发表于 2017-3-21 14:34:35
|
只看该作者
非常感谢。这个表的目的是过滤重复项,我昨天在网上搜到了解决方案。对了请教一个问题。
Option Compare Database
Private Sub ITEMNO_AfterUpdate()
'每次产品更改的初始价格和折扣
If Not IsNull(Me![Item NO]) Then
Me![Unit Price] = GetLastPrice(Me![Item NO])
Me.[Item Name] = GetEnglishName(Me![Item NO])
'空产品订单表示用户要删除项目
Else
eh.TryToRunCommand acCmdDeleteRecord
End If
End Sub
Function GetLastPrice(lID As String) As Currency
GetLastPrice = DLookup("[美元单价]", "最新报价汇总", "[ITEMNO] = '" & Me.[Item NO] & "' And [CustomerID] ='" & Forms!PI!CustomerID & "'")
End Function
Function GetEnglishName(lITEMNO As String) As String
GetEnglishName = DLookup("[Item Name]", "product", "[ITEMCODE]= '" & lITEMNO & "'")
End Function
我现在有这样的一个代码,凑合着可以自动填充产品名称,和单价。
但是如果 Item No 不在 表product的 ITMECODE时 会做报错。 最新报价汇总没有 对Item no的数值时也会报错。
能不能给换一个 判断条件,
当Item Code 不在Product里面时,产品名称那里给显示成 空白
当Item code在查询最新报价汇总里面,没有数值时,单价显示为0.
|
|