谁帮我看一下~

keanu

Private Sub cmdadd2_Click()

Dim a As String

Dim b As String

Dim db As Database

Dim rs As DAO.Recordset

Dim str As String

a = Me.材料名称

b = Me.材料名称

If IsNull(Me.材料名称) Or Trim(Me.材料名称) = "" Then

MsgBox "材料名称不能为空!"

Else

a = DLookup("材料名称", "材料价格表", "材料名称='" & Me.材料名称 & "'")←提示这里是黄色的，出错

If IsNull(a) = False Then

Set db = CurrentDb

'Set rs = db.OpenRecordset

str = "insert into 材料价格表(材料名称,价格) values('" & b & "','" & Me.材料价格 & "')"

db.Execute (str)

MsgBox "新材料添加成功"

Me.材料名称 = Null

Me.材料价格 = Null

Else

MsgBox "该材料已存在，请重新输入!"

Me.材料名称 = Null

Me.材料价格 = Null

End If

End If

End Sub



谁帮我分析一下。

george

以下是引用keanu在2005-1-11 8:26:31的发言：

Private Sub cmdadd2_Click()

Dim a As String

Dim b As String

Dim db As Database

Dim rs As DAO.Recordset

Dim str As String

a = Me.材料名称

b = Me.材料名称

If IsNull(Me.材料名称) Or Trim(Me.材料名称) = "" Then

MsgBox "材料名称不能为空!"

Else

a = DLookup("材料名称", "材料价格表", "材料名称='" & Me.材料名称 & "'")←提示这里是黄色的，出错

If IsNull(a) = False Then

Set db = CurrentDb

'Set rs = db.OpenRecordset

str = "insert into 材料价格表(材料名称,价格) values('" & b & "','" & Me.材料价格 & "')"

db.Execute (str)

MsgBox "新材料添加成功"

Me.材料名称 = Null

Me.材料价格 = Null

Else

MsgBox "该材料已存在，请重新输入!"

Me.材料名称 = Null

Me.材料价格 = Null

End If

End If

End Sub



谁帮我分析一下。

类型好象不对,dim a as string?

keanu

问题已经解决，多谢zhengjialon

我把代码发上来，今天又多学一招，呵呵

Private Sub cmdadd2_Click()

On Error Resume Next

Dim db As Database

Dim rs As DAO.Recordset

Dim str As String

If IsNull(Me.材料名称) Or Trim(Me.材料名称) = "" Then

MsgBox "材料名称不能为空!"

Else

If IsNull(DLookup("材料名称", "材料价格表", "材料名称='" & Me.材料名称 & "'")) Then

'以前当返回值是空的时候会报错，用这个语句就不会了

Set db = CurrentDb

'Set rs = db.OpenRecordset

str = "insert into 材料价格表(材料名称,价格) values('" & Me.材料名称 & "','" & Me.材料价格 & "')"

db.Execute (str)

MsgBox "新材料添加成功"

Me.材料名称 = Null

Me.材料价格 = Null

Else

MsgBox "该材料已存在，请重新输入!"

Me.材料名称 = Null

Me.材料价格 = Null

End If

End If

End Sub

[此贴子已经被作者于2005-1-11 9:07:49编辑过]

情比金坚

其实dim a就不会报错