Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

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

时 间:2010-09-06 00:00:00
作 者:todaynew   ID:10802  城市:武汉
摘 要:子窗体记录号定位及数据编辑
正 文:

 

点击下载此附件

 

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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助