如何用VBA设置自动生成的数据库的启动项？

孤帆远影 · 发表于 2006-10-19 17:51:00

如标题！

孤帆远影 · 发表于 2006-10-19 23:43:00

请大侠援手！！！

andymark · 发表于 2006-10-19 23:49:00

DoCmd.RunCommand acCmdAppMaximize       '最大化ACCESS
DoCmd.RunCommand acCmdShowOnlyWebToolbar  '隐藏除WEB工具栏外的所有工具栏
DoCmd.ShowToolbar "web", acToolbarNo    '隐藏WEB工具栏
DoCmd.ShowToolbar "数据库", acToolbarNo '隐藏数据库工具栏
DoCmd.ShowToolbar "格式（窗体/报表）", acToolbarNo '隐藏格式（窗体/报表）工具栏
DoCmd.ShowToolbar "窗体视图", acToolbarNo    '隐藏窗体视图工具栏
DoCmd.ShowToolbar "menu bar", acToolbarNo
'Access.SetOption "Show Status Bar", False '隐藏状态栏
Me.ShortcutMenu = False                '隐藏快捷菜单

孤帆远影 · 发表于 2006-10-19 23:53:00

问题是，我现在当前的mdb中生成了一个新的mdb，我已经把表、窗体和模块发送到了新的mdb中，如何自动自定新的mdb的启动项？

andymark · 发表于 2006-10-19 23:57:00

在LOAD 事件调用

孤帆远影 · 发表于 2006-10-20 00:07:00

可能我的问题没有说明白，如何在当前的old.mdb中设置另一个new.mdb，在old.mdb中，将new.mdb的一个窗体指定到new.mdb的选项卡中的启动项上？

andymark · 发表于 2006-10-20 00:44:00

论坛上有类似的工具,带有源码的,找找

wwwwa · 发表于 2006-10-20 17:52:00

try:

On Error GoTo gg
Dim db As Database
Set db = OpenDatabase("d:\zz\db1.mdb ", True, False, "MS Access;pwd=''")
For Each gg In db.Properties
If UCase(gg.Name) = UCase("StartUpForm") Then
db.Properties.Delete ("StartUpForm")
End If
Next
db.Properties("StartUpForm") = "rr"
Set db = Nothing
Exit Sub
gg:
Set cp = db.CreateProperty("StartUpForm", dbText, "rr1")
db.Properties.Append cp
Resume Next

孤帆远影 · 发表于 2006-10-23 19:51:00

谢谢你的建议，我试了一下，在循环中并没有出现"StartUpForm"，循环的结果依次是：

ProjVer
Build
AccessVersion
Themed Form Controls
ANSI Query Mode
Connection
DesignMasterID
ReplicaID
RecordsAffected
Version
QueryTimeout
CollatingOrder
Updatable
Transactions
Connect
Name

因此，运行到db.Properties("StartUpForm") = "rr"时出现错误3270找不到属性

wwwwa · 发表于 2006-10-30 16:50:00

我的代码在ACCESS2000下测试通过，不管是否设置启动窗体均可设置。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 如何用VBA设置自动生成的数据库的启动项？

有没有人知道啊？

回复：（wwwwa）try:On Error GoTo ggDim db As Dat...

群介绍
主题无相 (随机显示版	同地区群块其他地区)