Office中国论坛/Access中国论坛

标题: 失去焦点 [打印本页]

作者: 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




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3