Office中国论坛/Access中国论坛

标题: 请教：提示语法错误（操作符丢失） [打印本页]

作者: gq402402 时间: 2007-11-25 16:13
标题: 请教：提示语法错误（操作符丢失）
运行以下模块，提示语法错误（操作符丢失）
单位机构代码及单位名称均为表中的文本型字段，单位机构代码1及单位名称1为窗体上的文本框
Private Sub 查询记录_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
If IsNull(Me![单位机构代码1]) Then
      MsgBox "请输入机构代码!"
      DoCmd.GoToControl "单位机构代码1"
ElseIf IsNull(Me![单位名称1]) Then
      MsgBox "请输入单位名称!"
      DoCmd.GoToControl "单位名称1"
Else
      sql = "select * from 单位信息 where [单位机构代码]＝" & Me![单位机构代码1]
      Set rst = New ADODB.Recordset
      rst.ActiveConnection = CurrentProject.Connection
      rst.CursorType = adOpenDynamic
      rst.LockType = adLockOptimistic
      rst.Open sql
      If Not (rst.EOF) Then
      rst.Close
         Set rst = Nothing
         sql = "所在区县：" & number
         MsgBox sql
         Exit Sub
         Else
         rst.Close
         Set rst = Nothing
         MsgBox "当前仓库中没有该商品库存"
         Exit Sub
      End If
End If
End Sub

[ 本帖最后由 gq402402 于 2007-11-25 17:35 编辑 ]

作者: gq402402 时间: 2007-11-25 17:37
谢谢cuxun,我用你说的改了，但还是提示语法错误，操作符丢失！
单位机构代码及单位名称均为表中的文本型字段，单位机构代码1及单位名称1为窗体上的文本框

作者: gq402402 时间: 2007-11-25 18:02
其实这段是我从书上抄的，后面的这个 Set rst = Nothing是没用的,我只想实现输入单位机构代码或者单位名称,点击查询记录,在下面能显示出符合的记录,我是个新手已经,想了很久了还是不懂.麻烦你帮我改改吧~~谢谢了
[attach]27005[/attach]

作者: gq402402 时间: 2007-11-25 18:20
谢谢CUXUN!!!我改过来了~~~真的谢谢你啊~~~
想再问你个问题,我想将这个程序改成:输入单位机构号后,点查询,窗体即显示单位机构号相同的记录,不知要怎么改?麻烦你了~~~谢谢!

[ 本帖最后由 gq402402 于 2007-11-25 18:28 编辑 ]

作者: gq402402 时间: 2007-11-25 20:22
标题: 谢谢CUXUN!!!
非常谢谢CUXUN!!!!
感谢你帮了我的大忙了!实在谢谢啦!!!

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