Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

在子窗体中判断主窗体是否为新纪录

马山杨梅  发表于:2010-10-06 09:46:09  
复制

判断当前窗体是否为新纪录用If Me.NewRecord = True,那请教在子窗体中来判断当前主窗体是否为新纪录该如何表述呢?

谢谢!

 

Top
煮江品茶 发表于:2010-10-06 10:33:07
应该可以

马山杨梅 发表于:2010-10-06 11:19:16

试下来似乎确实是可以,但子窗体中的程序还是调不出来。

现在想换个方向试试,如果主窗体为新纪录,在主窗体中指定子窗体的【可以添加】属性都为【是】。

请教老师怎么来写这句代码,谢谢!



煮江品茶 发表于:2010-10-06 12:27:39

dim frm as form

set frm=me.子窗体.form

if me.NewRecord = True then

    frm.AllowAdditions = True
    frm.Form.AllowEdits = True

else

    frm.AllowAdditions = false

    frm.Form.AllowEdits = false

end if



马山杨梅 发表于:2010-10-06 12:28:35

我还是做个简例上来吧。

 

点击下载此附件

煮江品茶 发表于:2010-10-06 12:29:12

 

dim frm as form

set frm=me.子窗体.form

if me.NewRecord = True then

    frm.AllowAdditions = True
    frm.AllowEdits = True

else

    frm.AllowAdditions = false

    frm.AllowEdits = false

end if




煮江品茶 发表于:2010-10-06 12:33:11

 

 

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Me.姓名.SetFocus
End Sub

 

 

Private Sub 姓名_GotFocus()
Dim frm As Form
Set frm = Me.工资子窗体.Form
If Me.NewRecord = True Then
    frm.AllowAdditions = True
    frm.AllowEdits = True
Else
    frm.AllowAdditions = False
    frm.AllowEdits = False
End If
End Sub



马山杨梅 发表于:2010-10-06 12:39:28
煮江品茶老师的代码经使用确实能满足我的要求,但还想问一下煮江品茶老师我上面简例中的方法错在那里了,可以在此基础上改改么?谢谢

马山杨梅 发表于:2010-10-06 13:29:36

试下来放代码在主窗体还要省事,不再考虑在子窗体中用代码,也懒得去思量错在哪了。

谢谢煮江品茶老师的帮助,谢谢您!



kkk 发表于:2010-10-06 19:04:18

你应该把这个代码写在主窗体的 "成为当前" 事件中,我改了一下,这样也可以用

 

Private Sub Form_Current()
If Me.NewRecord = True Then
   Me.工资子窗体.Form.AllowEdits = True
   Me.工资子窗体.Form.AllowDeletions = True
   Me.工资子窗体.Form.AllowAdditions = True
Else
   Me.工资子窗体.Form.AllowEdits = False
   Me.工资子窗体.Form.AllowDeletions = False
   Me.工资子窗体.Form.AllowAdditions = False
End If
End Sub



总记录:9篇  页次:1/1 9 1 :