相关事件代码如下:
Private Sub Command2_Click()
Me.加入时间.Locked = False
Me.加入时间.SetFocus
End Sub
Private Sub Command3_Click()
Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from Table1"
rs.Open str, CurrentProject.Connection, 3, 3
rs("加入时间") = Me.加入时间
rs.Update ' 更新到表
MsgBox Me.员工姓名 & " 的加入时间已更改为:" & Me.加入时间
Me.加入时间.Locked = True
rs.Close
Set rs = Nothing
End Sub
Private Sub Form_Load()
Me.Command2.Caption = "修改时间"
End Sub
Private Sub Query1subform_Enter()
Me.加入时间.Locked = True
End Sub
'----子窗体成为当前事件
Private Sub Form_Current()
Forms![时间修改窗体]![员工编号] = Me.员工编号
Forms![时间修改窗体]![员工姓名] = Me.员工姓名
Forms![时间修改窗体]![性别] = Me.性别
Forms![时间修改窗体]![加入时间] = Me.加入时间
End Sub
请查看示例
点击下载此附件