Setting physical form open locations in the Access window

[Eddie]

Hey,

I have a series of forms set up to all open on a trigger.
What I would like to do is get them to open in a block
format so that all data is visible at once, rather than
cascading on top of one another in the center.

Is there a way to tell access where to open the form, or
perhaps tell access to tile the windows automatically?

The code I have is below.

Thanks,

-EA

Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim saLinkCriteria As String
Dim sbLinkCriteria As String
Dim scLinkCriteria As String

stDocName = "DLR_Dealers"
saDocName = "TECH_RMALOG1"
sbDocName = "CI_ServiceRecord_History"
scDocName = "STOCK_WHSE27"

stLinkCriteria = "[Dealer Name]=" & "'" & Me![Combo5]
& "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

saLinkCriteria = "[Dealer]=" & "'" & Me![Combo5] & "'"
DoCmd.OpenForm saDocName, , , stLinkCriteria

sbLinkCriteria = "[Dealer Name]=" & "'" & Me![Combo5]
& "'"
DoCmd.OpenForm sbDocName, , , sbLinkCriteria

scLinkCriteria = "[Points of Origin]=" & "'" & Me!
[Combo5] & "'"
DoCmd.OpenForm scDocName, , , scLinkCriteria

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub

 

[Wayne Morgan]

To tile the windows, similar to the Window|Tile menu, try the following from
code,

RunCommand acCmdTileHorizontally
or
RunCommand acCmdTileVertically