Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Opening in full screen

Status
Not open for further replies.

muosman

Technical User
Jul 18, 2003
84
GB
I have writen my first database in MS Access 2003 I want the forms to start in full screen mode can antone tell me how?



\\muos o(-_-)o
 
In the on open event of the form:

[tt]docmd.maximize[/tt]

Roy-Vidar
 
sorry could you explain how



\\muos o(-_-)o
 
Find the on open property of the form, hit the button with three dots at the right, select code builder, and paste the above code into the VBE...

Roy-Vidar
 
Add it to where


Private Sub AddQuote_Click()
On Error GoTo Err_AddQuote_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Quotes"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AddQuote_Click:
Exit Sub

Err_AddQuote_Click:
MsgBox Err.Description
Resume Exit_AddQuote_Click

End Sub
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Search"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click


DoCmd.Quit

Exit_Command12_Click:
Exit Sub

Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click

End Sub

Private Sub Form_Open(Cancel As Integer)

End Sub


Thanks for the help

Jeff

\\muos o(-_-)o
 
If you followed the description, finding on open event property, hitting the button, code builder... where is the cursor then? That's where... (also the last event procedure in your pasted code)

Roy-Vidar
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top