How to stay form on top (1 Viewer)

[smtazulislam]

Hello,
I using MS ACCESS 2016 PRO. I have a dashboard. Its have Menubar to click open form. But some form have to need open another form.
Any ( Dashboard Form + A Form + B Form)
* A Form > I put MODEL = No (for stay Top)

Problem is when I open B Form then A Form will be under the Dashboard. I dont see it. And should be close the Dashboard.

I want Dashboard > Top at A Form > I want when I click dashboard then A Form stay top of Dashboard.
A Form > To at B Form.
three form see at onetime

Picture have attached
Any help will appreciate.

 

[arnelgp]

google api that will "stay on top" your form/window.

 

[smtazulislam]

google api that will "stay on top" your form/window.

Thanks for information,
google api work in access 2016 ?

 

[The_Doc_Man]

No... "Google" is a verb in this case.

Is correct the code for "Bring To Front" or "Send To Back"?

Is correct the below code for "Bring To Front" or "Send To Back" a field/object in VBA Access 2010? My code is: Private Sub Report_Load() If IsOpen("Details_ME") Then Me.Controls("DRAFT_Log...

stackoverflow.com

What you want to do is to move something to the front of the other forms on the desktop. The article here shows one way. If you know what to ask for, you can search the web using your favorite browser, which does not have to be google. You are looking for "BringToFront" which can be applied to forms among other VBA-related objects.

 

[smtazulislam]

No... "Google" is a verb in this case.

Is correct the code for "Bring To Front" or "Send To Back"?

Is correct the below code for "Bring To Front" or "Send To Back" a field/object in VBA Access 2010? My code is: Private Sub Report_Load() If IsOpen("Details_ME") Then Me.Controls("DRAFT_Log...

stackoverflow.com

What you want to do is to move something to the front of the other forms on the desktop. The article here shows one way. If you know what to ask for, you can search the web using your favorite browser, which does not have to be google. You are looking for "BringToFront" which can be applied to forms among other VBA-related objects.

Thank you so much Sir.
I am sorry for late reply. I will try it then give feedback as soon.

 

[smtazulislam]

Private Sub Form_Current()

If IsOpen("frmDashboard") Then
    Me.Controls("frmEmployeeEdit").InSelection = True
    DoCmd.RunCommand acCmdBringToFront
Else
    Me.Controls("frmdashboard").InSelection = True
    DoCmd.RunCommand acCmdSendToBack

End If
End Sub

Runtime error '2465'
Not working....

 

[Gasman]

And 2465 is?
What does the error message actually say?

 

[smtazulislam]

And 2465 is?
What does the error message actually say?

 

[Gasman]

Seems self explanatory?, though not related to the code you posted?

 

[smtazulislam]

Please check...

 

[Gasman]

Please check...

So something is wrong with that form as Access cannot find a field named in the error message?

 

[smtazulislam]

So something is wrong with that form as Access cannot find a field named in the error message?

I think, this code for inside the form an object, Because, I seem Me.Controls " ".InSelection
But not sure...

 

[Gasman]

Well look to see where that field is mentioned in that form?. Likely misspelled as it appears to be LfrmDepartmentLookup

 

[smtazulislam]

Well look to see where that field is mentioned in that form?. Likely misspelled as it appears to be LfrmDepartmentLookup

Its also a form name what I try it second time. Because, frmEmployeeEdit isnot word.

 

[Gasman]

I get an error saying that the form must be in design mode for this to work?

Me.Controls("txtSearchMain").InSelection = True

 

[smtazulislam]

Me.Controls("txtSearchMain").InSelection = True

Okay. txtSearchMain is form name or Field name

 

[Gasman]

It is a control on a form.
Why are you even doing this?
Just check if the form is open/loaded and not in design mode then bring to front or back.

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
' Use form name according to Access, not VBA.
' Only works for Access
    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If

End Function

 

[smtazulislam]

It is a control on a form.
Why are you even doing this?
Just check if the form is open/loaded and not in design mode then bring to front or back.

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
' Use form name according to Access, not VBA.
' Only works for Access
    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If

End Function

Its also not work. I donot know where I put wrong spelling or mistake.
I preper to sending my db without code. you can try it new

 

[smtazulislam]

@Gasman Please check....

 

[Gasman]

No, won't work for me as I only have 2007 (12) and 14 is the minimum to get it working. I am sure we have been down this path before.
I'll have to step back and let someone with a more current version have a look at it. Sorry.