Userform Listbox Double Click

[gilly01625]

Hey,

I have an error on a userform I am developing - dropbox link to file below.

On frmSummary, the user is able to select between two countries, 'UK' and 'AUS', at the top of the form which in result displays listboxes corresponding to the country selected at the bottom of the form. A Multipage is displayed with said listboxes across two pages relating to the selected country, 'UKWork' and 'UKSummary' or 'AUSWork' and 'AUSSummary'. The user is able to double click on an entry (row) within the listbox ('UKSummary' or 'AUSSummary') and have the data presented on the userform in corresponding text boxes. I have this feature on the majority of the other userforms on this workbook and it works as expected, however it does not work for this userform. 'UKSummary' is working as expected, but 'AUSSummary' is not and I am unsure why.

Can anyone help please?

Dropbox link below.

DropBox

Thanks!

 

[DanteAmor]

but 'AUSSummary' is not and I am unsure why.

At the end of the double click event of the "lstAUSSummaryDatabase" listbox you have these lines:

    Me.txtCountryHIDDEN = Me.lstAUSSummaryDatabase.List(Me.lstAUSSummaryDatabase.ListIndex, 168)
    If Me.txtCountryHIDDEN.Value = "UK" Then
        Me.chkUK.Value = True
        Me.chkAUS.Value = False
    End If
    If Me.txtCountryHIDDEN.Value = "AUS" Then
        Me.chkAUS.Value = True
        Me.chkUK.Value = False
    End If

I honestly don't know why you have them, because if you chose Aus, then the data belongs to Aus, so there is no point in validating it.

But the problem is in the "AUSSummary" sheet, in the last column you have "UK", you should have "AUS".

When you press double clic, Check the content of that column in the listbox:

If Me.txtCountryHIDDEN.Value = "UK" Then
Me.chkUK.Value = True
Me.chkAUS.Value = False
End If

If it is "UK" then Me.chkUK.Value = True, That triggers the Private Sub chkUK_Click() event and clears everything.

If you change the data in the "AUSSummary" sheet and put "AUS", the code works.

 

[gilly01625]

At the end of the double click event of the "lstAUSSummaryDatabase" listbox you have these lines:

    Me.txtCountryHIDDEN = Me.lstAUSSummaryDatabase.List(Me.lstAUSSummaryDatabase.ListIndex, 168)
    If Me.txtCountryHIDDEN.Value = "UK" Then
        Me.chkUK.Value = True
        Me.chkAUS.Value = False
    End If
    If Me.txtCountryHIDDEN.Value = "AUS" Then
        Me.chkAUS.Value = True
        Me.chkUK.Value = False
    End If

I honestly don't know why you have them, because if you chose Aus, then the data belongs to Aus, so there is no point in validating it.

But the problem is in the "AUSSummary" sheet, in the last column you have "UK", you should have "AUS".

View attachment 121324​

When you press double clic, Check the content of that column in the listbox:

If Me.txtCountryHIDDEN.Value = "UK" Then
Me.chkUK.Value = True
Me.chkAUS.Value = False
End If

If it is "UK" then Me.chkUK.Value = True, That triggers the Private Sub chkUK_Click() event and clears everything.

If you change the data in the "AUSSummary" sheet and put "AUS", the code works.

Thank you so much!