我要实现的功能是text1失去焦点后自动连接数据库,并将数据库表里的东西显示在相应的地方,可是运行的时候报错说子程序或函数未定义,这个怎么定义啊?急死了,,,高手帮帮忙
Option Explicit
Private Sub Command4_Click()
填写检查结果.Hide
End Sub
Private Sub Text1_Change() “这里报错。。。。。
Dim MsgText As String
Dim sql As String
Dim rs As New ADODB.Recordset
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
sql = "select * from 学生信息表 where 体检单号=" '&Text1.Text&'""
Set rs = QuaryExt(sql, MsgText)
If Text1.Text.LostFocus Then
If rs.EOF = True Then
MsgBox "没有这个体检单号,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text1.Text.SetFocus
Else
Trim(Text4.Text) = Trim(rs.Fields(2))
Trim(Text13.Text) = Trim(rs.Fields(3))
Trim(Text5.Text) = Trim(rs.Fields(1))
Trim(Text14.Text) = Trim(rs.Fields(4))
Trim(Text3.Text) = Trim(rs.Fields(5))
Trim(Text2.Text) = Trim(rs.Fields(2))
End If
End If
End Sub
...
|