我在做ACCESS时候，有四个文本框 一个DATA控件，一个CAMMAND按钮 下面是编写的 “搜索” 功能的部分代码 可是运行时 提示错误 “语法错误” 请问各位高手 ，错在什么地方？谢谢

Private Sub Command1_Click() Dim a As String a = InputBox$("请输入学号", "学号搜索", "09033856") If a <> "" Then Data1.Recordset.FindFirst "学号 ID='" & a & "'" End If End Sub

[此贴子已经被作者于2005-3-15 17:05:48编辑过]

如果只是在一个表中查找一个记录，可以用更简单的方法实现：在窗体上放置一个文本框，命名：文本0,用来输入学号ID,标签：请输入学号ID
Private Sub Command1_Click()
    If 文本0  &lt;&gt; "" Then
        xm =DLookup("[姓名]", "[学生表]", "[学号 ID] ="[文本0])
       if isnull(xm) then
        msgbox "没有找到【" &amp; 文本0 &amp; "】这个学号ID",vbokonly,"搜索提示"
       endif
    else
    msgbox "你没有输入学号ID。",vbokonly,"搜索提示"
    End If
End Sub

[此贴子已经被作者于2005-7-30 3:53:01编辑过]

Data1.Recordset.FindFirst "学号 ID='" &amp; a &amp; "'"
改为
Data1.Recordset.FindFirst( "学号 ID='" &amp; a &amp; "'")

试试这个

Data1.Recordset.FindFirst "学号 ID='" &amp; a &amp; "'"
改为
Data1.Recordset.FindFirst 　　a