谁帮小弟纠正下代码？库已上传。

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

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

If IsNull(Me.材料名称) Then

a = Me.材料名称

b = Me.材料价格

Set db = CurrentDb

'Set rs = db.OpenRecordset

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

db.Execute (str)

MsgBox "新材料添加成功"

Me.材料名称 = Null

Me.材料价格 = Null

Else

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

Me.材料名称 = Null

Me.材料价格 = Null

End Sub





这段代码运行不成功？为什么没一点反映？ 错在哪里啊？ 谢谢各位大哥，帮忙看一下

keanu

Private Sub cmdadd2_Click()

Dim a As String

Dim db As Database

Dim rs As DAO.Recordset

Dim str As String

a = Me.材料名称

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

If IsNull(a) 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 Sub



这样也不行~~~

大声笑

怎么没有end if啊

goodidea

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 = Nz(DLookup("材料名称", "材料价格表", "材料名称='" & Nz(Me.材料名称, "") & "'"), "")

If a = "" Then

a = Nz(Me.材料名称, "")

b = Nz(Me.材料价格, 0)

Set db = CurrentDb

'Set rs = db.OpenRecordset

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

db.Execute (str)

MsgBox "新材料添加成功"

Me.材料名称 = Null

Me.材料价格 = Null

Else

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

Me.材料名称 = Null

Me.材料价格 = Null

End If

End Sub