Recuperation d'une valeur dans une table

Fermé
tshiami - 18 févr. 2019 à 10:44
tshiami_6002 Messages postés 5 Date d'inscription lundi 18 février 2019 Statut Membre Dernière intervention 19 février 2019 - 18 févr. 2019 à 19:23
Bonjour,



bonjour,
j'ai une table dans ma base de données appeler clients avec les informations suivantes: num_client, civilit_client, nom_client,presnom_client.
je desir recuperer la valeur dans cette table.
j'ai utilisé la syntaxe suivante:
set base=application.currentdb
set ligne=base.openrecordset('select*client where num_client='&liste_client.value,opendynaset)

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 févr. 2019 à 11:17
0
tshiami_6002 Messages postés 5 Date d'inscription lundi 18 février 2019 Statut Membre Dernière intervention 19 février 2019
18 févr. 2019 à 12:40
merci pour ce lien direct. mais mon cas est de recuperer les information a partir de num_client une fois le num_client est donne directement aux correspondant des autres champ dans la table .
et plus encore j'ai utiliser cette syntaxe :
Set ligne = base.OpenRecordset("SELECT * FROM Clients WHERE num_client =' " & Me.liste_client.Value & "'")

il me donne le message suivant "type de donnée incompatible dans le critere . svp je besoin de decouvir cette erreur
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 18 févr. 2019 à 12:58
Justement dans le lien donné, il y a ceci:

Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("SELECT * FROM Client WHERE NumClient=2",dbOpenDynaset)


si tu lis toutes la page tu trouveras aussi cela:

https://warin.developpez.com/access/dao/?page=partie_5#L5.4.6
0
tshiami_6002 Messages postés 5 Date d'inscription lundi 18 février 2019 Statut Membre Dernière intervention 19 février 2019
18 févr. 2019 à 13:02
merci bcp, votre reponse ne donnera que le resultat pour le client n°2 si je me trompe pas .
je reitire toute la procedure cela pourai vous aidez a m'aide.
Private Sub liste_client_Change()
Dim ligne As Recordset
Dim base As Database
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT * FROM Clients WHERE num_client =' " & Me.liste_client.Value & "'")
ligne.MoveFirst
num_client.Value = liste_client.Value
civilite.Value = ligne.Fields("civilite_client").Value
nom_client.Value = ligne.Fields("nom_client").Value
prenom_client.Value = ligne.Fields("prenom_client").Value
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing

End Sub
le message d'erreur exprimer est" le type de donnée incompatible dans l'expression critere"
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 févr. 2019 à 14:22
vois-tu une différence entre ce que tu as mis:

Set base = Application.CurrentDb 
Set ligne = base.OpenRecordset("SELECT * FROM Clients WHERE num_client =' " & Me.liste_client.Value & "'")


et l'exemple donné:

Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("SELECT * FROM Client WHERE NumClient=2",dbOpenDynaset)


???
0
tshiami_6002 Messages postés 5 Date d'inscription lundi 18 février 2019 Statut Membre Dernière intervention 19 février 2019
18 févr. 2019 à 19:23
merci
il ya une difference deja du point de vu formulation de la syntaxe et j'ai tenter la proposition il me renvoi un message "trop peu de parametre .1attendu" svp essaier d'etre un peut plus claire sa va baucoup m'aider a terminer ce projet. Merci
0