标题: 失去焦点 [打印本页] 作者: majie0218 时间: 2008-9-27 16:30 标题: 失去焦点 在窗体中的职工ID文本框的失去焦点事件中添加如下代码
Private Sub 职工ID_LostFocus()
On Error GoTo Err_职工ID_LostFocus
'定义字符型变量
Dim STemp As String
'定义用于循环的整型变量
Dim i As Integer
'定义数据集变量
Dim Rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set Rs = New ADODB.Recordset
'为打开数据表"查询语句"字符型变量赋值
STemp = "Select * From 职工基本资料"
'打开"职工基本资料"数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'把记录集指针指向第一条记录
Rs.MoveFirst
'使用FOR...NEXT循环语句在Rs数据集中循环判断
For i = 1 To Rs.RecordCount
'判断记录集中的"职工ID"字段值与窗体中的"职工ID"文本框的值的关系
If Rs("职工ID") = Me![职工ID] Then
'如果相同,则把该记录字段的值赋予窗体对应文本框内
Me![ 所在院系] = Rs("所在院系 ")
Me![ 姓名] = Rs("姓名")
Me![ 基本工资] = Rs("工资")
Else
'如果不相同,则移动到下一条记录
Rs.MoveNext
End If
Next i
'释放系统为Rs数据集分配的空间
Set Rs = Nothing
Exit_职工ID_LostFocus:
Exit Sub
Err_职工ID_LostFocus:
MsgBox Err.Description
Resume Exit_职工ID_LostFocus
End Sub
其中“所在院系”“姓名”“基本工资”文本框均以锁定,职工基本资料数据表中也有数据
但是在职工ID文本框中输入数据表中存在的职工ID号以后,当鼠标光标离开“职工ID”文本框是系统提示“在对应所需名称或序数的集合中,未找到项目”
这是怎么回事呀?作者: Henry D. Sy 时间: 2008-9-27 18:32
表中没有职工ID