No border sugestions

[oxicottin]

Hello, I have a question and I hope someone can give a few sugestions on how I could acomplish this. I want to give my database a cusom look by not haveing an access border. I have read around in the forum and the code out there causes problems so I dont want to use that. What I mean is if I had a pop up window and maximized it it would cover all fore cormers of my screen. This is what I would like to acommplish but I need it to be in the back of every form thats opened. All my forms are centered and not maximized but my reports are with VBA. Also Im using the (Me.Visible = False) when I click a button to open another form and when I close the other form Im using the (Forms![frmMaindB].Visible = True) to make the one I hid visable again. Any sugestions on how to acomplish this? Thanks!

 

[missinglinq]

Your "background" form needs to be the first form opened when the database opens, and it absolutley cannot be Popup! If it's a popup form, it will stay on top, rather than underneath all the other forms.

 

[Bob Miller]

Your "background" form needs to be the first form opened when the database opens, and it absolutley cannot be Popup! If it's a popup form, it will stay on top, rather than underneath all the other forms.

..unless the other forms are popups as well.

 

[missinglinq]

True, but you also have to think about things like Previewing Reports. If the "background" form is Popup, any Reports that need to be seen in Preview Mode will be hidden behind the background form! And there's no need for the background form to be Popup!

 

[oxicottin]

I made them all pop ups and when I clik off the one in fromt onto my back one it hides the front form?

 

[ianward]

Cant take credit for this but have found this method quite useful:

Try the handy and overlooked Microsoft SysInfo Control 6.0. It gives you the
work area of the desktop, and an event if it changes. Without a border, you need
some way to close the form, so I used a button.

Option Explicit

Private Sub Form_Load()
'set to no border
Me.BorderStyle = 0
'set initial size
SetSize
End Sub

Private Sub Command1_Click()
'no control box, so have something
Unload Me
End Sub

Private Sub SysInfo1_DisplayChanged()
'reset size if display changes
SetSize
End Sub

Private Sub SetSize()
'set size to system work area
With SysInfo1
Me.Move .WorkAreaLeft, .WorkAreaTop, _
.WorkAreaWidth, .WorkAreaHeight
End With
End Sub

 

[oxicottin]

Do I use thi on the form I want open in the background all the time? Thanks!