Private Sub 命令2_Click()
On Error Resume Next
Me.RecordsetClone.MoveFirst
Do While Not Me.RecordsetClone.EOF
Name CurrentProject.Path & "\bmp\" & RecordsetClone("ID") & ".bmp" As CurrentProject.Path & "\bmp\" & RecordsetClone("职工姓名") & ".bmp"
Me.RecordsetClone.MoveNext
Loop
End Sub