Q1:
Sub SetStartupProperties()
Const DB_Boolean As Long = 1
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
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
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
===============
Q2:
DoCmd.SetWarnings False '/ Disable Message Warning
DoCmd.OpenQuery "YourQuery", acViewNormal, acEdit
docmd.SetWarnings true '/ Enable message warning
hth
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
Behalf Of Ilona Wright
Sent: Thursday, September 14, 2006 6:23 AM
To: [email protected]
Subject: RE: [ms_access] Re: Hiding Database Window
Hi Guys,
Using VBA:
How do I inhibit the display of the Database window?
How do I suppress the message "Existing table will be deleted before query"?
I seem to be able to achieve one but not the other and I want both to be
supressed at the same time.
Thank you in advance.
Ilona
Adelaide, Australia
[Non-text portions of this message have been removed]
Yahoo! Groups Links
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ms_access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ms_access/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
