Private Sub 部门ID_LostFocus()
'定义部门ID变量
Dim DEPID As String
'定义用于循环的整型变量
Dim i As Integer
'定义字符型变量
Dim STemp As String
'定义数据集变量
Dim rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From 员工基本资料"
'打开“员工基本资料表”数据表
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'查与部门之部门名称相对应的部门ID
If IsNull(Me.部门ID) Then
Me.员工ID = Null
Else
DEPID = DLookup("部门ID", "部门表", "[部门名称]= '" & Me![部门ID] & "'")
'根据“部门表”数据表中的记录数量来自动生成“员工ID”
Select Case rs.RecordCount
Case 0 To 9
Me![员工ID] = DEPID & "000" & rs.RecordCount
Case 10 To 99
Me![员工ID] = DEPID & "00" & rs.RecordCount
Case 100 To 999
Me![员工ID] = DEPID & "0" & rs.RecordCount
Case 1000 To 9999
Me![员工ID] = EDPID & rs.RecordCount
End Select
'释放系统为Rs数据集分配的空间
Set rs = Nothing
End If
End Sub
代码
