【Access小品】遥相呼应---子窗体记录号定位及数据编辑

todaynew

Private Sub 删除_Click()
Me.子窗体.SetFocus
Me.子窗体.Form.AllowDeletions = True
DoCmd.RunCommand acCmdDeleteRecord
Me.子窗体.Form.AllowDeletions = False
End Sub

Private Sub 新增_Click()
Me.子窗体.SetFocus
Me.子窗体.Form.AllowAdditions = True
DoCmd.RunCommand acCmdRecordsGoToNew
Me.子窗体.Form!姓名 = "谁？"
Call ReadOrWrite("R")
Me.子窗体.Form.AllowAdditions = False
End Sub

Private Sub 修改_Click()
Call ReadOrWrite("W")
End Sub

Sub ReadOrWrite(str As String)
Dim ctls As Controls
Dim subctls As Controls
Dim subctl As Control
If IsNull(Me.记录号.Value) = True Then Exit Sub
Set ctls = Me.Form.Controls
Set subctls = Me.子窗体.Form.Controls
Me.子窗体.Form.SelTop = Me.记录号.Value
For Each subctl In subctls
    If subctl.ControlType = acTextBox Or subctl.ControlType = acComboBox Then
        Select Case str
            Case "R"
                ctls(subctl.Name).Value = subctl.Value
            Case "W"
                If subctl.Name <> "人员ID" Then
                    subctl.Value = ctls(subctl.Name).Value
                End If
        End Select
    End If
Next subctl
End Sub

of96

这个例子用到很多东西.谢谢分享

tmtony

又来实例, 手到擒来.

yyinfo

学习了 谢谢

lkkl66

这个问题好！是我想学的！谢谢！

df

实用的例子,谢谢!

xuwenning

收藏了
谢谢分享

笑眼0211

感谢分享

li08hua

todaynew 兄又来了，不错！

hjb016

手下了,谢谢分享!