seting focus

  • Thread starter Thread starter gregory.hickmott
  • Start date Start date
G

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
 
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
 
fix it instead of making sub forms visible i made them have 0 width and
moved focus now dont get the error
 
Back
Top