Selection in the drop-down list corresponding to criterion (1 Viewer)

[Superpat]

Hello,
Can we sort the drop-down list: lst_CategoriesSousCat in alphabetical order
Thank you for your precious help.

 

[theDBguy]

Hi. Try using this Row Source.

SELECT t_CatSsCat.SousCategorie, t_CatSsCat.ID_SsCat FROM t_CatSsCat ORDER BY t_CatSsCat.SousCategorie;

Does that help?

 

[Superpat]

Hi. Try using this Row Source.

SELECT t_CatSsCat.SousCategorie, t_CatSsCat.ID_SsCat FROM t_CatSsCat ORDER BY t_CatSsCat.SousCategorie;

Does that help?

Thanks theDBguy but it does not.

 

[theDBguy]

Thanks theDBguy but it does not.
View attachment 86224

What happened? Can you show us what result you actually want? Thanks.

 

[theDBguy]

Thanks theDBguy but it does not.
View attachment 86224

Ah, I guess that's not how I interpreted your original question/post. I thought you simply wanted to sort the listbox. Now, it seems you're asking to sort it using the textbox? Not sure I get it either.

Okay, I took a closer look and see that you were using code to set the Row Source for the Listbox. All I had to do was add the sort order to your code. This is what I see now.

Please see attached...

 

[arnelgp]

you may also try this.
see the Current event of the Main Form.
see additional textbox on Design view.
see the additional form-wide variable.

 

[Superpat]

Thanks to you two.
I am picky and I apologize, I want a mixed of 2. Starting from that of arnelgp as a base, I want that by clicking in the lst_Categories list, the lst_CategoriesSousCat list is updated like that of theDBguy.
I copied the code, but it doesn't work.

Private Sub lst_Categories_AfterUpdate()
On Error GoTo Macro11_Err
   
    With CodeContextObject
'        DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
'        .lst_CategoriesSousCat.RowSource = "SELECT [SousCategorie],ID_SsCat FROM t_CatSsCat where CategorieFK = " & .lst_Categories.Column(1)
        DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
        .lst_CategoriesSousCat.RowSource = "SELECT [SousCategorie],ID_SsCat FROM t_CatSsCat where CategorieFK = " & .lst_Categories.Column(1) & " order by souscategorie"
    End With
Debug.Print CurrentRecord

Macro11_Exit:
    Exit Sub

Macro11_Err:
    MsgBox Error$
    Resume Macro11_Exit
End Sub

 

[cabete]

Dont know if help or not, see this attach

 

[arnelgp]

i have not open dbg's db.
but check if this is the same in your mind.

 

[Superpat]

i have not open dbg's db.
but check if this is the same in your mind.

Thank you arnelgp, that's exactly what I wanted, you guessed my wishes.
Now do I need to create a new topic to check for duplicates in the subcategory (linked with the corresponding category).
thank you cabete for your example.