var = DLookup(PartNumber, "temptobom", EquationPartNumber = Epn And toNumber = Num)
If Not IsNull(var) Then
If MsgBox("此部件已添加,需要继续编辑吗?", 4) = 7 Then
Exit Sub
End If
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "qrytointo"
DoCmd.RunSQL "INSERT INTO temptobom SELECT temp.* FROM temp" _
& " WHERE (((temp.toNumber)='" & Num & "') AND ((temp.EquationPartNumber)='" & Epn & "'));"
DoCmd.RunSQL "DELETE temp.* FROM temp;"
DoCmd.SetWarnings True
End If
但总得不到想要的结果,var永远不为null作者: suve 时间: 2006-6-13 23:44
请教高招作者: suve 时间: 2006-6-14 00:07
帮帮我!作者: andymark 时间: 2006-6-14 00:24
请检查DLOOLUP 正确书写