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
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] = RS.RecordCount
End Select
'释放系统为Rs数据集分配的空间
Set RS = Nothing
End Sub
已解决！自力更生，才能有出路，呵呵。。。。
