Discussion :

[kupae]

Avec ce titre , vous vous dites " Encore un qui ne lit pas la FAQ".

Pourtant si, je l'ai bien lu et mon soucis n'est pas celui que vous croyez


Alors voici un exemple pour détailler mon problème:

Dans ma liste disons que j'ai la valeur CONSOMMA

Je veux ajouter CONSOMMATION: Pas de probleme.
Je veux ajouter CONSO: il me trouve direct CONSOMMA

Mais alors comment faire si je veux ajouter CONSO dans ma liste?


En espérant avoir été clair, je vous remercie de m'avoir lue

[Invité]

Bonjour

Comment ajoutes-tu des éléments dans ta liste ?
Montres nous le code, car sans cela on n'est pas prêt de deviner ce qui se passe.

Starec

[kupae]

Oui, pardon j'ajoute bien un élément dans la liste.
Je passe par un autre formulaire pour effectuer ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub ListeDistributeur_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
 
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des distributeurs ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
 
Dim stDocName As String
 
stDocName = "CreerDistributeur"
DoCmd.OpenForm stDocName, , , ""
 
On Error Resume Next
Rs.Execute dbFailOnError
 
End If
End Sub

[Invité]

Re

a aucun moment je ne trouve où tu enregistres les données, je vois juste que tu ouvres un formulaire.

Starec

[kupae]

Comme je l'ai dit c'est dans mon autre formulaire que j'insere des éléments.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Ajouter_Click()
DoCmd.SetWarnings False
Dim SQL As String
 
SQL = "INSERT INTO Distributeur(Numero_pays,NomDistributeur,adresseDistributeur,CodePostalDistributeur,villeDistributeur,Numero_tel,Numero_fax,Remarques,idLisa)"
SQL = SQL & " VALUES (" & Nz(Me.Pays, "") & ",'"
SQL = SQL & Me.NomDistributeur & "','"
SQL = SQL & Replace(Nz(Me.Adresse, " "), "'", "''") & "','"
SQL = SQL & Nz(Me.CP, " ") & "','" & Nz(Me.Ville, " ") & "','"
SQL = SQL & Nz(Me.Numero_tel, " ") & "','" & Nz(Me.Numero_fax, " ") & "','"
SQL = SQL & Replace(Nz(Me.Remarques, " "), "'", "''") & "','" & Nz(Me.idLisa, " ") & "')"
 
DoCmd.RunSQL (SQL)
 
DoCmd.Close
 
DoCmd.SetWarnings True
End Sub

L'insertion d'un nouvel élément fonctionne.
Mais c'est qu'il ne veut pas me lancer la procédure si mon nouvel élément a un nom qui ressemble à un de ceux déja présent

[kupae]

Ca y est j'ai trouvé une solution à mon problème.

Enfait j'avais déja donné pour ma liste déroulante
ce code ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Private Sub ListeDistributeurs_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   ' With Me.ListeTitre
       ' .SetFocus
        '.Dropdown
 'End With
 
'End Sub

En enlevant ce dernier, je peux maintenant faire n'importe quel ajout dans ma table.