Office中国论坛/Access中国论坛

标题: 谁帮小弟纠正下代码？库已上传。 [打印本页]

作者: keanu 时间: 2005-1-8 21:03
标题: 谁帮小弟纠正下代码？库已上传。
谁帮小弟纠正下代码？附件已上传。

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

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

作者: keanu 时间: 2005-1-8 23:48
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

这样也不行~~~

作者: 大声笑 时间: 2005-1-9 02:53
怎么没有end if啊

作者: goodidea 时间: 2005-1-10 05:39
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)