|
1、去掉启动窗口的所有选项
2、在显示窗体中选择第一个要启动的窗体
3、在启动窗体中加入
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMinimize
End Sub
4、屏蔽shift
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
' Unknown error.
Changeproperty = False
Resume Change_Bye
End If
End Function
|
|