Form position on screen (1 Viewer)

[Sess]

This works very well except for the Send button beside the Properties adjustment. Clicking this will return an error

Error 2467 (The expression you entered refers to an object that is closed or doesn't exist.) in procedure fCurrentForm of VBA Document Form_DcbFormSizer_V3

I like the application it will make placing the screens easier for me - also I like the >> and << button to emulate a Maximize Minimize that is very cleaver.

Should work in 2003 now: (I Hope)
I cant seem to see any other offending events.....

 

[dcb]

Thanks for testing:

Again I cant duplicate the fault.....
Please tell me which line number?

Private Sub cmdS_PopUp_Click()
          'DoCmd.OpenForm
          Dim bolSet As Boolean
          Dim intBorderstyle As Integer
10        DoCmd.OpenForm fCurrentForm.Name, acDesign
20            bolSet = Me.cPopUp
30                fCurrentForm.PopUp = bolSet
40            bolSet = Me.cAutoCenter
50                fCurrentForm.AutoCenter = bolSet
60            bolSet = Me.cAutoResize
70                fCurrentForm.AutoResize = bolSet
      '        bolSet = Me.cFitToScreen
      '        ''    fCurrentForm.FitToScreen = bolSet
80            bolSet = Me.cModal
90                fCurrentForm.Modal = bolSet
100           intBorderstyle = Me.cmbBorderStyle
110               fCurrentForm.BorderStyle = intBorderstyle
120       DoCmd.OpenForm fCurrentForm.Name
130       Me.SetFocus
End Sub

The thought was initially to use it on 2007 only - thus the reason that i have items that are not in 2003... Now I can make a version that will detect both! Very cool - so thanks again!

Without stepping too far away from its intended purpose, can you think of anything else i should jot in?

 

[Sess]

Line 20
I tried to place a ' on line 20 so it would ignore the line but it returned the same error for line 30 so I did the same for line 30 and line 40 returned the same error...

Thanks for testing:

Again I cant duplicate the fault.....
Please tell me which line number?

Private Sub cmdS_PopUp_Click()
          'DoCmd.OpenForm
          Dim bolSet As Boolean
          Dim intBorderstyle As Integer
10        DoCmd.OpenForm fCurrentForm.Name, acDesign
20            bolSet = Me.cPopUp
30                fCurrentForm.PopUp = bolSet
40            bolSet = Me.cAutoCenter
50                fCurrentForm.AutoCenter = bolSet
60            bolSet = Me.cAutoResize
70                fCurrentForm.AutoResize = bolSet
      '        bolSet = Me.cFitToScreen
      '        ''    fCurrentForm.FitToScreen = bolSet
80            bolSet = Me.cModal
90                fCurrentForm.Modal = bolSet
100           intBorderstyle = Me.cmbBorderStyle
110               fCurrentForm.BorderStyle = intBorderstyle
120       DoCmd.OpenForm fCurrentForm.Name
130       Me.SetFocus
End Sub

The thought was initially to use it on 2007 only - thus the reason that i have items that are not in 2003... Now I can make a version that will detect both! Very cool - so thanks again!

Without stepping too far away from its intended purpose, can you think of anything else i should jot in?

 

[Cwittmaack]

Sorry Am a little behind just got your last Db.zip

 

[asgard]

This helped me too

 

[Cwittmaack]

dcb

i get the same error and it is on line 20 when i select Send button on Properties, as far as i know i see no other things that need to be added to this.

Again thanks