How Can I Change these If Statements into a Case Statement?

[yang0837]

Sorry if this sounds ...dumb , but I need help changing these if statements into a case statement.

Private Sub Undo_LostFocus()
If CurrentProject.AllForms("frmPFS_PtRefund").IsLoaded = True Then
Forms![frmPFS_PtRefund]![btnAddNew].SetFocus
Else
If CurrentProject.AllForms("frmPPFS_PtRefund").IsLoaded = True Then
Forms![frmPPFS_PtRefund]![btnAddNew].SetFocus
Else
If CurrentProject.AllForms("frmPFS_InsRefund").IsLoaded = True Then
Forms![frmPFS_InsRefund]![btnAddNew].SetFocus
Else
Forms![frmPPFS_InsRefund]![btnAddNew].SetFocus
End If
End If
End If
End Sub

 

[ChrisO]

The nearest Select Case construct would be:-

Private Sub Undo_LostFocus()

    Select Case True
    
        Case CurrentProject.AllForms("frmPFS_PtRefund").IsLoaded
            Forms![frmPFS_PtRefund]![btnAddNew].SetFocus
            
        Case CurrentProject.AllForms("frmPPFS_PtRefund").IsLoaded
            Forms![frmPPFS_PtRefund]![btnAddNew].SetFocus
            
        Case CurrentProject.AllForms("frmPFS_InsRefund").IsLoaded
            Forms![frmPFS_InsRefund]![btnAddNew].SetFocus
            
        Case Else
            Forms![frmPPFS_InsRefund]![btnAddNew].SetFocus
            
    End Select
    
End Sub

Chris.

 

[missinglinq]

You have to set Focus to the Form before setting Focus to the Control:

Private Sub Undo_LostFocus()

 Select Case True
 
  Case CurrentProject.AllForms("frmPFS_PtRefund").IsLoaded
   Forms("frmPFS_PtRefund).SetFocus
   Forms("frmPFS_PtRefund)("btnAddNew").SetFocus
  
  Case CurrentProject.AllForms("frmPPFS_PtRefund").IsLoaded
   Forms("frmPPFS_PtRefund").SetFocus
   Forms("frmPPFS_PtRefund")("btnAddNew").SetFocus
  
  Case CurrentProject.AllForms("frmPFS_InsRefund").IsLoaded
   Forms("frmPFS_InsRefund").SetFocus
   Forms("frmPFS_InsRefund")("btnAddNew").SetFocus
  
  Case Else 
   Forms("frmPPFS_InsRefund")("btnAddNew").SetFocus

End Select

End Sub

Linq ;0)>

 

[ChrisO]

Well yes, if we want it to also work then we also need to make sure the Form running the code is not Modal.

Chris.

 

[missinglinq]

...we also need to make sure the Form running the code is not Modal.

Good point, Chris! Also that the Form running the code wasn't opened via code from another Form, in Dialog Mode, which also sets Modal to Yes.

Linq ;0)>

 

[ChrisO]

All the unknown variables that make Access such an interesting programme.

Chris.

 

[yang0837]

You have to set Focus to the Form before setting Focus to the Control:

Private Sub Undo_LostFocus()
 
 Select Case True
 
  Case CurrentProject.AllForms("frmPFS_PtRefund").IsLoaded
   Forms("frmPFS_PtRefund).SetFocus
   Forms("frmPFS_PtRefund)("btnAddNew").SetFocus
 
  Case CurrentProject.AllForms("frmPPFS_PtRefund").IsLoaded
   Forms("frmPPFS_PtRefund").SetFocus
   Forms("frmPPFS_PtRefund")("btnAddNew").SetFocus
 
  Case CurrentProject.AllForms("frmPFS_InsRefund").IsLoaded
   Forms("frmPFS_InsRefund").SetFocus
   Forms("frmPFS_InsRefund")("btnAddNew").SetFocus
 
  Case Else 
   Forms("frmPPFS_InsRefund")("btnAddNew").SetFocus
 
End Select
 
End Sub

Linq ;0)>

This worked perfectly! I added the end quotes after the first case, but sooo awesome! Thank you both!!!

 

[missinglinq]

Sorry about the typo, but glad we could help!

All the unknown variables that make Access such an interesting programme.

They do, indeed! I've been working in Access for a dozen years and it never becomes boring!

Linq ;0)>

 

[Wiz47]

Sorry about the typo, but glad we could help!


They do, indeed! I've been working in Access for a dozen years and it never becomes boring!

Linq ;0)>

Yes, especially when trying to convert 2007 DBs to 2010. Oh ... what fun.