Form Focus - Acccess 2007

  • Thread starter Thread starter Chuck
  • Start date Start date
C

Chuck

I am opening a form by utilizing a macro initiated by the "Double Click"
property on a control of another form. For some reason the form opens but
does not get the focus. This has never happened to me before; however,
Access 2007 is new to me. I have tried to follow up the "OpenForm" Action of
the Macro with the "SelectObject" action (hoping to force the focus on to the
newly opened form) but this does not work. Why is this happening, and what
can I do about it?

Thanks Very Much,
Chuck
 
Thank you Bob. I was afraid of that. The only solution that I can think of
is opening the form in the "Dialog" Window Mode.
 
Here's some code, I've been using for this very thing. I copied it from an
Access template some time ago, and it still works in newer versions of
access. I think it's basically the same work around that you found, so maybe
it's the way to do it.

Private Sub Store_DblClick(Cancel As Integer)
On Error GoTo Err_Store_DblClick
Dim lngStore As String

If IsNull(Me![Store]) Then
Me![Store].Text = ""
Else
lngStore = Me![Store]
Me![Store] = Null
End If
DoCmd.OpenForm "Stores", , , , , acDialog, "GotoNew"
Me![Store].Requery
If lngStore <> Null Then Me![Store] = lngStore

Exit_Store_DblClick:
Exit Sub

Err_Store_DblClick:
MsgBox Err.Description
Resume Exit_Store_DblClick
End Sub
 
Thanks Christopher.

Christopher Robin said:
Here's some code, I've been using for this very thing. I copied it from an
Access template some time ago, and it still works in newer versions of
access. I think it's basically the same work around that you found, so maybe
it's the way to do it.

Private Sub Store_DblClick(Cancel As Integer)
On Error GoTo Err_Store_DblClick
Dim lngStore As String

If IsNull(Me![Store]) Then
Me![Store].Text = ""
Else
lngStore = Me![Store]
Me![Store] = Null
End If
DoCmd.OpenForm "Stores", , , , , acDialog, "GotoNew"
Me![Store].Requery
If lngStore <> Null Then Me![Store] = lngStore

Exit_Store_DblClick:
Exit Sub

Err_Store_DblClick:
MsgBox Err.Description
Resume Exit_Store_DblClick
End Sub

Chuck said:
Thank you Bob. I was afraid of that. The only solution that I can think of
is opening the form in the "Dialog" Window Mode.
Click to expand...
Click to expand...
 
Back
Top