Office中国论坛/Access中国论坛

标题: 【Access小品】遥相呼应---子窗体记录号定位及数据编辑 [打印本页]

作者: todaynew 时间: 2010-9-5 16:48
标题: 【Access小品】遥相呼应---子窗体记录号定位及数据编辑
本帖最后由 todaynew 于 2010-9-5 16:50 编辑

[attach]43329[/attach]

[attach]43328[/attach]

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 时间: 2010-9-5 17:31
这个例子用到很多东西.谢谢分享

作者: tmtony 时间: 2010-9-5 18:22
又来实例, 手到擒来.

作者: yyinfo 时间: 2010-9-5 21:24
学习了谢谢

作者: lkkl66 时间: 2010-9-5 22:15
这个问题好！是我想学的！谢谢！

作者: df 时间: 2010-9-5 22:50
实用的例子,谢谢!

作者: xuwenning 时间: 2010-9-6 13:54
收藏了
谢谢分享

作者: 笑眼0211 时间: 2010-9-6 15:08
感谢分享

作者: lovehere 时间: 2010-9-8 14:26
好东西，收之！！哈哈哈哈

作者: hjb016 时间: 2010-9-8 14:46
手下了,谢谢分享!

作者: li08hua 时间: 2010-9-9 01:42
todaynew 兄又来了，不错！

作者: huxinhua 时间: 2012-1-10 15:14
学习了谢谢

作者: xyhecho2002 时间: 2012-1-21 09:23
学习了

作者: vk602 时间: 2012-1-24 16:20
正要找的学习例子，好贴。一定要顶 {:soso_e179:}

作者: vk602 时间: 2012-1-24 17:16
试用了一下，发现以下代码出错：
Me.Parent.Form.Controls("记录号").SetFocus

请教todaynew，怎样解决？

作者: gaoli 时间: 2012-2-10 16:30
正是我想学习的，谢谢！

作者: ben_bu 时间: 2015-1-14 16:30
looooooooooooooook

作者: ytmiaoht 时间: 2016-4-10 00:16
谢谢分享，学习ing

作者: 灰太郎 时间: 2018-1-1 18:45
11111111111111111111

作者: 灰太郎 时间: 2018-1-1 18:45
eeeeeeeeeeeeeeeeeeeeeeeeeeeee

作者: blonde_mei 时间: 2020-7-15 16:02
学习了！谢谢大神！

作者: 灰太郎 时间: 2021-7-6 07:32
123123

作者: 灰太郎 时间: 2021-7-6 07:57
123123

作者: 灰太郎 时间: 2021-7-6 12:25
123123

作者: 灰太郎 时间: 2021-7-6 12:26
123123

作者: GOODWIN 时间: 2021-10-12 08:16
学习了谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)