如何设别的窗体打开时的数据属性？

843151504　发表于：2009-07-20 10:48:18 　

Private Sub 打开_Click()

If Me.ZZZ = "全部" Then
DoCmd.OpenForm Me.Name         '打开窗体名为控件Me.Name值的窗体
'我要将以Me.Name控件命名的窗打开时数据的属性设为下面的状态
'AllowAdditions = True    '就这儿我不会指定别的窗体的数据属性
'AllowEdits = True
'AllowDeletions = True

Else
DoCmd.OpenForm Me.Name         '打开窗体名为控件Me.Name值的窗体
'我要将以Me.Name控件命名的窗打开时数据的属性设为下面的状态
'AllowAdditions = False
'AllowEdits = False
'AllowDeletions = False
End If

End Sub

Top

竹笛发表于：2009-07-20 13:10:15

name是ACCESS的关键字，不可以在窗体中将控件命名为name, 因为，me.nameACCESS会识别为当前窗体的名称，而不是控件的名称。

Top

843151504 发表于：2009-07-20 14:25:01

Private Sub 打开_Click()

If Me.ZZZ = "全部" Then
DoCmd.OpenForm Me.XXX         '打开窗体名为控件Me.XXX值的窗体
'我要将以Me.XXX控件命名的窗打开时数据的属性设为下面的状态
'AllowAdditions = True    '就这儿我不会指定别的窗体的数据属性
'AllowEdits = True
'AllowDeletions = True

Else
DoCmd.OpenForm Me.XXX         '打开窗体名为控件Me.XXX值的窗体
'我要将以Me.XXX控件命名的窗打开时数据的属性设为下面的状态
'AllowAdditions = False
'AllowEdits = False
'AllowDeletions = False
End If

End Sub

Top

董秀杰发表于：2009-07-20 14:34:46

可以参考1楼的开发平台，里面有很多类似代码，相信可以解决问题。

Top

竹笛发表于：2009-07-20 14:37:28

forms(me.XXX)!AllowAdditions = True
forms(me.XXX)!AllowEdits = True
forms(me.XXX)!AllowDeletions = True

Top

点燃一支烟发表于：2009-07-20 15:29:27

Private Sub 打开_Click()
DoCmd.OpenForm "" & Me.Name1 & ""
If Me.ZZZ = "全部" Then
Dim Frm As Form
For Each Frm In Forms
If Frm.Name = Me.Name1 Then
Frm.Form.AllowAdditions = True
Frm.Form.AllowEdits = True
Frm.Form.AllowDeletions = True
End If
Next

Else

Dim Frm1 As Form
For Each Frm1 In Forms
If Frm1.Name = Me.Name1 Then
Frm1.Form.AllowAdditions = False
Frm1.Form.AllowEdits = False
Frm1.Form.AllowDeletions = False
End If
Next

End If
End Sub

注意：1、不可以在窗体中将控件命名为name，这里改为了name1；2、上述代码对子窗体不发生作用，如窗体内还有子窗体的话，需另外再加代码控制；

Top

点燃一支烟发表于：2009-07-20 15:33:58

若有子窗体：示例： Frm1.子窗体名称.Form.AllowAdditions = False （或 true）

Top

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

Access交流中心

如何设别的窗体打开时的数据属性？