Thank you George. I am very grateful to you. Ilona Adelaide, Australia -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of George Oro Sent: Thursday, 14 September 2006 4:32 PM To: [email protected] Subject: RE: [ms_access] Re: Hiding Database Window
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 [Non-text portions of this message have been removed] 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/
