none
Run-time error 2110 RRS feed

  • Question

  • Hello Dear Experts

    In the following, it is shown Select Case Function that by focusing on each of the case defined for Specific frame(Frame 48), will display another form with unique edits tailored to each selected case.

    Part of it is given below:

    Private Sub Command80_Click()
            Select Case Frame48
            Case 1
                DoCmd.OpenForm "EFC_RelatedForm1"
                Forms!EFC_RelatedForm1!Text2 = Combo65
                Forms!EFC_RelatedForm1.RecordSource = "PurchaseMain_EFC"
                Forms!EFC_RelatedForm1!Text27.ControlSource = "PDate"
                
                Form_EFC_RelatedForm1.Combo9.Visible = True
                DoEvents
                Form_EFC_RelatedForm1.Combo9.SetFocus
                DoEvents
               
               Form_EFC_RelatedForm1.Combo16.Visible = False
                Form_EFC_RelatedForm1.Text32.Visible = False
                Form_EFC_RelatedForm1.Text21.Visible = False
                Form_EFC_RelatedForm1.Text27.Visible = True
                Form_EFC_RelatedForm1.Text17.Visible = False
                Form_EFC_RelatedForm1.Text19.Visible = False
                Form_EFC_RelatedForm1.Label42.Visible = False
                Form_EFC_RelatedForm1.Text00.Visible = False
                Form_EFC_RelatedForm1.Text39.Visible = False
                Form_EFC_RelatedForm1.Label44.Visible = False
                Form_EFC_RelatedForm1.Text47.Visible = False
                Form_EFC_RelatedForm1.Text30.Visible = False
                Form_EFC_RelatedForm1.Text36.Visible = False
                Form_EFC_RelatedForm1.EFC__SaleDetail_subform.Visible = False
                Form_EFC_RelatedForm1.EFC_PurchaseDetail_subform.Visible = True
                Form_EFC_RelatedForm1.EFC_ReturnOfPurchaseTable_subform.Visible = False
                Form_EFC_RelatedForm1.EFC_ReturnOfSaleTable_2_subform.Visible = False
             
            Case 2
                DoCmd.OpenForm "EFC_RelatedForm1"
                Forms!EFC_RelatedForm1!Text2 = Combo65
                Call EFC_RelatedForm1_Text2_2
                Forms!EFC_RelatedForm1.RecordSource = "SaleMain_EFC"
                Forms!EFC_RelatedForm1!Text21.ControlSource = "SDate"
                
                Form_EFC_RelatedForm1.Combo16.Visible = True
                DoEvents
                Form_EFC_RelatedForm1.Combo16.SetFocus
                DoEvents
                
                Form_EFC_RelatedForm1.Combo9.Visible = False
                Form_EFC_RelatedForm1.Text32.Visible = False
                Form_EFC_RelatedForm1.Text27.Visible = False
                Form_EFC_RelatedForm1.Text21.Visible = True
                Form_EFC_RelatedForm1.EFC_PurchaseDetail_subform.Visible = False
                Form_EFC_RelatedForm1.EFC__SaleDetail_subform.Visible = True
                Form_EFC_RelatedForm1.EFC_ReturnOfPurchaseTable_subform.Visible = False
                Form_EFC_RelatedForm1.EFC_ReturnOfSaleTable_2_subform.Visible = False
                Form_EFC_RelatedForm1.Text17.Visible = True
                Form_EFC_RelatedForm1.Text19.Visible = True
                Form_EFC_RelatedForm1.Label42.Visible = False
                Form_EFC_RelatedForm1.Text00.Visible = False
                Form_EFC_RelatedForm1.Text39.Visible = False
                Form_EFC_RelatedForm1.Label44.Visible = False
                Form_EFC_RelatedForm1.Text47.Visible = False
                Form_EFC_RelatedForm1.Text30.Visible = False
                Form_EFC_RelatedForm1.Text36.Visible = False
            
            Case 3
                DoCmd.OpenForm "EFC_RelatedForm1" 
                Forms!EFC_RelatedForm1!Text2 = Combo65
                Forms!EFC_RelatedForm1.RecordSource = "ReturnOfPurchaseTable_2_EFC"
               
                Form_EFC_RelatedForm1.Text32.Visible = True
                DoEvents
                Form_EFC_RelatedForm1.Text32.SetFocus
                DoEvents
                
                Form_EFC_RelatedForm1.Combo9.Visible = False
                Form_EFC_RelatedForm1.Combo16.Visible = False
                Form_EFC_RelatedForm1.Text27.Visible = False
                Form_EFC_RelatedForm1.Text21.Visible = False
                Form_EFC_RelatedForm1.EFC_PurchaseDetail_subform.Visible = False
                Form_EFC_RelatedForm1.EFC__SaleDetail_subform.Visible = False
                Form_EFC_RelatedForm1.EFC_ReturnOfPurchaseTable_subform.Visible = True
                Form_EFC_RelatedForm1.EFC_ReturnOfSaleTable_2_subform.Visible = False
                Form_EFC_RelatedForm1.Text17.Visible = False
                Form_EFC_RelatedForm1.Text19.Visible = False
                Form_EFC_RelatedForm1.Label42.Visible = True
                Form_EFC_RelatedForm1.Text00.Visible = True
                Form_EFC_RelatedForm1.Text39.Visible = False
                Form_EFC_RelatedForm1.Label44.Visible = True
                Form_EFC_RelatedForm1.Text47.Visible = True
                Form_EFC_RelatedForm1.Text30.Visible = True
                Form_EFC_RelatedForm1.Text36.Visible = False
                Call Seeking_To_The_Id_From_UnionRePurchaseTable_TotalQty
                Call Seeking_To_The_Id_From_DataCenter_TotalQty_2
            End Select
    End Sub
    There is no problem with the first and second selected Case, which is setFocus method can be exactly Work, but in the case of the third section it encounters an 2110 error ( Microsoft Access can't move focus to the control Text32)

    What is the problem and how is it possible to solve?

    Thank you for your attention








    • Edited by Mazda Z Saturday, January 20, 2018 10:37 AM
    Saturday, January 20, 2018 9:23 AM

Answers

  • There is no problem with the first and second selected Case, which is setFocus method can be exactly Work, but in the case of the third section it encounters an 2110 error ( Microsoft Access can't move focus to the control Text32)

    Hi Mazda Z,

    Is your control Text32 locked?

    You must have a wonderful memory that you can remember what Text32, Text27, Label42, etc. stands for. It really has advantages to give the controls understandable names.

    To set the visibility of the controls is better done outside the Select Case statement. In each Case to have to sum up what the visibility will be, With 3 Cases that is three times!
    You could also use, outside the Select Case construct, something like:

                Form_EFC_RelatedForm1.Text17.Visible = (Frame48 = 2)
                Form_EFC_RelatedForm1
    .Text19.Visible = (Frame48 = 2)
                Form_EFC_RelatedForm1
    .Label42.Visible = (Frame48 = 3)
                Form_EFC_RelatedForm1
    .Text00.Visible = (Frame48 = 3)

    Besides, also study the use of  "With". It is more efficient, and saves a lot of typing work.

    Imb.
     

     


    • Edited by Imb-hb Saturday, January 20, 2018 11:38 AM
    • Marked as answer by Mazda Z Friday, January 26, 2018 7:17 AM
    Saturday, January 20, 2018 11:37 AM
  • Hi Mazda Z,

    I try to make a test on my side.

    I find that in normal condition code works correctly, Without producing any error.

    Focus also set correctly on Textbox.

    I notice that you are setting visibility of the Textbox to True before setting the focus.

    But it is possible that you set the 'Enabled=No' for this Textbox.

    If the control is not enabled and you try to set focus on that control then you will get an error.

    So, Here it looks like the control is not enabled and you are trying to set the focus.

    I suggest you to check status of 'Enabled' of that Textbox. If it is not enabled then try to enabled it first before setting the focus.

    Try to make a test on your side and let us know about the result.

    We will try to provide further suggestions, If needed.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    • Marked as answer by Mazda Z Friday, January 26, 2018 7:17 AM
    Monday, January 22, 2018 2:00 AM
    Moderator

All replies

  • There is no problem with the first and second selected Case, which is setFocus method can be exactly Work, but in the case of the third section it encounters an 2110 error ( Microsoft Access can't move focus to the control Text32)

    Hi Mazda Z,

    Is your control Text32 locked?

    You must have a wonderful memory that you can remember what Text32, Text27, Label42, etc. stands for. It really has advantages to give the controls understandable names.

    To set the visibility of the controls is better done outside the Select Case statement. In each Case to have to sum up what the visibility will be, With 3 Cases that is three times!
    You could also use, outside the Select Case construct, something like:

                Form_EFC_RelatedForm1.Text17.Visible = (Frame48 = 2)
                Form_EFC_RelatedForm1
    .Text19.Visible = (Frame48 = 2)
                Form_EFC_RelatedForm1
    .Label42.Visible = (Frame48 = 3)
                Form_EFC_RelatedForm1
    .Text00.Visible = (Frame48 = 3)

    Besides, also study the use of  "With". It is more efficient, and saves a lot of typing work.

    Imb.
     

     


    • Edited by Imb-hb Saturday, January 20, 2018 11:38 AM
    • Marked as answer by Mazda Z Friday, January 26, 2018 7:17 AM
    Saturday, January 20, 2018 11:37 AM
  • Hi Mazda Z,

    I try to make a test on my side.

    I find that in normal condition code works correctly, Without producing any error.

    Focus also set correctly on Textbox.

    I notice that you are setting visibility of the Textbox to True before setting the focus.

    But it is possible that you set the 'Enabled=No' for this Textbox.

    If the control is not enabled and you try to set focus on that control then you will get an error.

    So, Here it looks like the control is not enabled and you are trying to set the focus.

    I suggest you to check status of 'Enabled' of that Textbox. If it is not enabled then try to enabled it first before setting the focus.

    Try to make a test on your side and let us know about the result.

    We will try to provide further suggestions, If needed.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    • Marked as answer by Mazda Z Friday, January 26, 2018 7:17 AM
    Monday, January 22, 2018 2:00 AM
    Moderator