标题: 代码提示 [打印本页] 作者: liuyinhe 时间: 2010-8-7 10:06 标题: 代码提示 Private Sub Command55_Click()
Dim AA As Long
Dim BB As Long
Dim CC As Long
AA = DLookup("生产编号之计数", "查询1")
BB = DLookup("生产编号之计数", "查询2")
CC = AA - BB
Dim x As Integer
x = MsgBox("将追加" & BB & "项记录，" & "更新" & CC & "项记录，您确定吗？", vbYesNoCancel, 3)
If x = 6 Then
DoCmd.Close acForm, "MsgBox"
DoCmd.SetWarnings False
strSQL = "INSERT INTO 资产总库 ( 条码, 时间, 状态 ) SELECT 导入的Excel表.条码, 导入的Excel表.时间, 导入的Excel表. 导入的Excel表.生产编号, 导入的Excel表.生产年份, 导入的Excel表.状态, FROM 导入的Excel表;"
DoCmd.RunSQL strSQL
strSQL = "UPDATE 导入的Excel表 INNER JOIN 资产总库 ON 导入的Excel表.生产编号 = 资产总库.生产编号 SET 资产总库.生产编号 = 导入的Excel表.生产编号, 资产总库.状态 = 导入的Excel表.状态;"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If
End Sub
如何实现当BB = DLookup("生产编号之计数", "查询2")里的数据为空时，在代码里写入这个个提示：数据已追加更新，请不要重复操作。 作者: LJB 时间: 2010-8-7 10:37
if isnull(bb)then
msgbox""
else
end if
另外:
if isnull(DLookup("生产编号之计数", "查询2"))then
msgbox""
else
end if