Discussion :

[ologele]

Bonjour

J'ai regardé pas mal de FAQ et de tutos mais je n'ai rien vu sur mon problème.

Je souhaiterais récupérer tous les champs qui appartiennent à la même colonne d'une table acces dans une combobox. Est-ce faisable?

J'avais pensé à déja ouvrir ma table et ensuite récupérer les données mais c'est là que sa bloque?

Avez-vous une solution à me proposer?

D'avance merci

Ologele

[sovo]

c faisable et c meme d'ailleur tres facile (5 ligne maxi), mais tout d'abord montre nous ton code. Car on ne fait pas du tout cuit mais aidons juste a arriver a une soution.

[ologele]

Voila un peu une description de mon projet :

C'est un logiciel de gestion pour une exploitation agricole.

On doit pouvoir ajouter des clients, des chauffeurs, des parcelles, etc...

Quand je renseigne une parcelle, j'aimerais pouvoir récupérer les nom des clients déja enregistrer pour pouvoir renseigner le champ propriétaire de la parcelle.

Voici donc ce que j'ai penser mettre dans la combobox qui se nomme cbo_proprietaireparc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cbo_proprietaireparc_Click()
 
  'ouvre la liste des propriétaires
  BDclients.Provider = "Microsoft.jet.OLEDB.4.0"
  BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
  BDclients.Open
  tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic
 
  'sélection des noms
  cbo_proprietaireparc.List = 
 
End Sub

C'est après le égal que je bloque...

Pouvez-vous m'aider?

OlOgElE

[sovo]

voila ce qu'il faut faire :

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 cbo_proprietaireparc_Click()
 
    'ouvre la liste des propriétaires
    BDclients.Provider = "Microsoft.jet.OLEDB.4.0" 
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic
 
    'sélection des noms
    with tbclients
        .movefirst
        while not .eof
            cbo_proprietaireparc.additem !NomChamp
            .movenext
        wend
     while end 
End Sub

[ologele]

Ok merci j'essaye cela.

Sinon sa serait pour une confirmation :

Pour pouvoir changer le contenu d'une textbox lorsqu'elle est vide j'utilise ceci :

Code :

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

1
2
3
If txt_notesmat.Text = "" Then
txt_notesmat.Text = "0"
End If

est-ce une bonne solution car ce code me donne du fil à retorde de temps en temps?

Merci pour vos réponses!

Ologele

[sovo]

est-ce une bonne solution car ce code me donne du fil à retorde de temps en temps?

c'est une maniere comme les autre, la plus basique d'ailleurs. Mais qu'entends tu par me donne du fil à retorde de temps en temps? ??