请问各位大虾，这如何做？

sunredday

不过帮助上的参数都是汉语的，应该使用英语的。

sunredday

另外， 把系统表隐藏起来， 就可以用了。

sxgaobo

sunredday
不好意思，您把我给弄晕了，我在这方面挺菜的，您能具体做一下吗？如果不太麻烦的话！！！

sxgaobo

sunredday 伸伸手吧！拉兄弟一把！！！
我确实很菜啊，能给具体做做吗？另外还有视图---任务栏中的窗口 也强行关闭，
我在殷切的盼望！！！

sunredday

Sub SetStartupProperties()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
    ChangeProperty "StartupForm", DB_Text, "Customers"
    ChangeProperty "StartupShowDBWindow", DB_Boolean, False
    ChangeProperty "StartupShowStatusBar", DB_Boolean, False
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
    ChangeProperty "AllowFullMenus", DB_Boolean, True
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
    ChangeProperty "AllowSpecialKeys", DB_Boolean, True
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' 未知错误。
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

sxgaobo

sunredday
实在不好意思，我试了还是不行，也就是说您的代码我不知如何使用，我在这方面确实挺菜，您能给做个实例吗？就是打开某个窗体时强制系统将：编辑/查询的[记录更改]、[删除文档]、[操作查询]选中，将：视图的[任务栏中的窗体]不选，实在太麻烦了，谢谢！！！

sunredday

网上有， 查找 。
把我的代码放到你的窗体的代码里
做一个按钮
在按钮的单击事件中
CALL SetStartupProperties()

sxgaobo

我做了个，可还是不行，运行后是将“启动”项里的一些选项修改了，我想修改的是：工具/选项 里的设置。非常感谢您耐心的回答！！！

Trynew

Private Sub 命令0_Click()
    Application.SetOption "确认记录更改", True
    Application.SetOption "确认文档删除", True
    Application.SetOption "确认操作查询", True
End Sub

Private Sub 命令2_Click()
    Application.SetOption "确认记录更改", False
    Application.SetOption "确认文档删除", False
    Application.SetOption "确认操作查询", False
End Sub

sxgaobo

Trynew 您好！
照您的方法一切OK，可我照猫画虎将：

Application.SetOption "确认操作查询", True

中的“确认操作查询”换成了“任务栏中的窗口”却不行，是SetOption 的问题吗？我不懂，请再次赐教，多谢！！！

[此贴子已经被作者于2003-5-21 14:06:09编辑过]