-
Title Bar???
I'm using this code to maximize the Microsoft Access window:
Code:
cn = "OMain"
wn = "Microsoft Access"
Dim w As Long
w = FindWindow(ByVal cn, ByVal wn)
ShowWindow w, SW_SHOWMAXIMIZED
It's working fine.
Now I want (if can be done) to hide microsoft access's title bar.
Can we do that?
-
People please I need this urgent, can it or can it not be done?
-
I think this is what you want. In access set the border style to none for the form you want to hide the title bar of.
-
Nope,
I need to hide the title bar of the whole Microsoft Access Application.
Thank you very much.
-
http://www.vbaccelerator.com/tips/vba0016.htm
This sample uses the Form's hWnd, but it can easily be replaced by Access's hWnd. Should work...
-
In the absence of an alternative suggestion, you can always change the title from Access to your own custom title like so:
Code:
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.
MsgBox "Change Property Error: " & Err.Number & ": " & Err.Description
ChangeProperty = False
Resume Change_Bye
End If
End Function
Used to change application's title:
Code:
ChangeProperty "AppTitle", dbText, "I hope your app has a cool title To put here" 'custom title
-
thank you very much, I got the code.
-
Gush, did you get some code that works to remove the titlebar from access?
-
I tried the code from
http://www.vbaccelerator.com/tips/vba0016.htm
and it worked on a visual basic form, but not on Access,
any other suggestions would be appreciated.
Thank you all for your replies.:cool:
Gush.