谁帮我看一下这段代码错在哪里?

zlggddb · 发表于 2007-6-18 08:27

Private Sub 商品入库_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
'以下程序中的me表示＂商品入库＂窗体
IfIsNull(Me![仓库编号])Then '如果没有选择仓库编号
    MsgBox "请选择仓库"
    DoCmd.GoToControl "仓库编号"
elseifisnull(me![商品编号])then '如果没有选择商品编号
    MsgBox "请输入商品编号"
    DoCmd.GoToControl "商品编号"
elseifisnull(me![入库数量])then
    MsgBox "请输入数量"
    DoCmd.GoToControl "入库数量"
elseifisnull(me![员工编号])then
    MsgBox "请输入员工编号"
    DoCmd.GoToControl "员工编号"
elseifisnull(me![入库日期])then
    MsgBox "请输入日期"
    DoCmd.GoToControl "入库日期"
Else
    sql = "select*from 商品 where"
    sql=sql&"[商品编号]="&me![商品编号]
End Sub

红色部分都提示有错误, 我是照书本抄了但也出错的?

kenchef · 发表于 2007-6-19 18:41

IfIsNull(Me![仓库编号])Then '如果没有选择仓库编号
==> If IsNull(Me![仓库编号]) Then

elseifisnull(me![商品编号])then '如果没有选择商品编号
==> ElseIf IsNull(me![商品编号]) Then

jiytang · 发表于 2007-6-20 19:20

在if后面加个空格看看

linusnwpu · 发表于 2007-6-21 13:14

应该能解决问题啦。

lenghonghai · 发表于 2007-6-18 11:12

请把示例文件传上来。

lenghonghai · 发表于 2007-6-18 11:14

If IsNull(Me![仓库编号])Then '如果没有选择仓库编号

elseif isnull(me![商品编号])then '如果没有选择商品编号
单从你写的代码来看，出错的原因是if与isnull之间没有空格造成的。

下一句的错误是同样的。

		自动登录	找回密码
密码			免费注册