seting focus

[gregory.hickmott]

I have a form that has subforms on it when i hide the sub it gives me an
error that i cant hide while it has focus


Case 1 'Case'
CaseMemo.Visible = True
CaseMemo.SetFocus
EditCaseSub1.Visible = True
EditCaseSub1!EditCaseSub2.Visible = True
EditCaseSub1!EditCaseProcedureSub.Visible = False
PoNumber.Visible = True
NumberOfSample.Visible = False
PriceCharged.Visible = False
Extras.Visible = False
Rush.Visible = False

Case 2 'Review"
Casememo1.Visible = True
Casememo1.SetFocus
EditCaseSub1.Visible = False
EditCaseSub1!EditCaseProcedureSub.Visible = False
EditCaseClientSub.Visible = False
CaseMemo.Visible = False
PoNumber.Visible = False
NumberOfSample.Visible = True
PriceCharged.Visible = True
Extras.Visible = True
Rush.Visible = True
ReviewedBy.Visible = False
Case 3
CaseMemo.Visible = True
CaseMemo.SetFocus
EditCaseClientSub.Visible = True
EditCaseSub1!EditCaseSub2.Visible = False
EditCaseSub1!EditCaseProcedureSub.Visible = False
EditCaseSub1.Visible = False
PoNumber.Visible = True
NumberOfSample.Visible = False
PriceCharged.Visible = False
Extras.Visible = False
Rush.Visible = False


Case 4 'Procedure Notes'
CaseMemo.Visible = True
CaseMemo.SetFocus
EditCaseSub1.Visible = True
EditCaseSub1!EditCaseProcedureSub.Visible = True
EditCaseClientSub.Visible = False
EditCaseSub1!EditCaseSub2.Visible = False
PoNumber.Visible = True
NumberOfSample.Visible = False
PriceCharged.Visible = False
Extras.Visible = False
Rush.Visible = False
End Select
End Sub



Private Sub ComboClientId_AfterUpdate()
If Form.Caption = "New Case" Then
DoCmd.OpenForm "EditCaseSub3", , , , , acHidden
CaseControlNumber = Format(Now, "yymm") &
Format(Forms!EditCaseSub3!CaseIdentifer, "0000")
Forms!EditCaseSub3!CaseIdentifer = Forms!EditCaseSub3!CaseIdentifer + 1
DoCmd.Close acForm, "EditCaseSub3"
clientname = ComboClientId.Column(1)
FQLStatus = 1
Status = 1
statusrefresh
ButtonDeleteCase.Visible = True
'EditCaseSub1.Form.AllowAdditions = True
'EditCaseSub1.Form.DataEntry = True
EditCaseSub1!ComboProceduresName.Visible = True
EditCaseSub1!Notes2.Visible = True

Else
End If

 

[Guest]

Gregory

Access does tihs by design. A workaround is:
Add a command button to the parent form, set it's Transparent Property to
Yes then before you hide the subform, set focus to the invisible command
button.
I.e. Me.Command1.SetFocus

 

[gregory.hickmott]

fix it instead of making sub forms visible i made them have 0 width and
moved focus now dont get the error