Récupérer des données dans liste déroulante

En effet ce n'était pas du tout une bonne idée parce que mon INSERT ne fonctionnait plus ce qui est logique.

Je suis entrain d'essayer de faire en sorte que le champ RefNum que j'ai créer s'incrémente de +1 à chaque insertion et que ce même numéro soit insérer aussi dans la table pour fonctionné comme un deuxième champ NumAuto seulement pour le moment je n'y arrive pas.

Pourquoi quel INSERT ne fonctionnait plus?  Que faisait-il?

Comment un changement du SELECT a-t-il posé un problème à l'INSERT?

ElseIf DCount("*", "StocksEm", "Ref = '" & rstS.Fields("Ref") & "'" _
        & " AND CodeVariante = '" & rstS.Fields("CodeVariante") & "'" _
        & " AND Emplacement = '" & rstS.Fields("Emplacement") & "'") = 0 Then
        
            maVariable = Forms("F_NewStock").Controls("Dernier").Value
            maVariable = maVariable + 1
            MsgBox (maVariable)
            
            strSql = "INSERT INTO StocksEm (Ref,Qte,NumBl,DateS,Emplacement,Provenance,CodeVariante,Numero)" _
            & " SELECT NewStocks.Ref, NewStocks.Qte, NewStocks.NumBl, NewStocks.DateS, NewStocks.Emplacement, NewStocks.Provenance, NewStocks.CodeVariante, " & maVariable & "  " _
            & " FROM NewStocks" _
            & " WHERE Ref = '" & rstS.Fields("Ref") & "'"
            CurrentDb.Execute strSql, dbFailOnError

Celui-ci ne fonctionnait plus car j'avais changé le type de ma clé primaire (Numauto vers Numérique) 

car une clé primaire n'accepte pas les doublons hors j'en ai besoin car certaine Ref apparaisse plusieurs fois mais ont un champ qui diffère.

La actuellement j'ai quasiment réussi, à chaque insertion mon champ Numero s'incrémente de 1 ce qui agis comme je le souhaitais comme une sorte de deuxième NuméroAuto.

Ensuite j'ai un champ nommé IdRef (bleu ci-dessous)  qui est une liste déroulante et ces lui qui contient le champ Numero que j'incrémente de 1 par rapport a la valeur du dernier enregistrement en rouge ci-dessous

Voici le code (Sur changement de IdRef) :

Private Sub IdRef_Change()
Dim ligne As Recordset: Dim base As Database
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT Ref, CodeVariante, Emplacement, NumBl FROM StocksEm WHERE Numero= '" & IdRef & "' ", dbOpenDynaset)


Ref.Value = ligne.Fields("Ref").Value
CodeVariante.Value = ligne.Fields("CodeVariante").Value
Emplacement.Value = ligne.Fields("Emplacement").Value


ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
End Sub

Cela fonctionne et ça rempli les champs comme je souhaite aux choix de l'enregistrement grâce à IdRef mais que lorsque je change Numero en texte court hors je veux que ce soit un Numérique sinon je ne récupère pas la valeur max du champ Numero et cela ne fonctionne plus