VB6 et Access

Bonjour,

Ci dessous un morceau de code qui permet de déterminer la ligne d'enregistrement d'une table access dont le champ "nom" contient le string défini dans la textbox "txtTrouver" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub txtTrouver_LostFocus()   Dim strnom As String strnom = Trim(txtTrouver.Text) & "*" strnom = "nom like '" & strnom & "'"   If txtTrouver.Text <> "" Then datAuthors.Recordset.FindFirst strnom XXX End If   End Sub

---

Ce que je voudrais savoir, c'est si à la place du XXX, il pourrait y avoir une ligne de code qui affiche à l'écran (par une Msgbox….) la valeur du champ "age" de la même ligne d'enregistrerment…

Bien sûr je pourrais mettre sur la form un contrôle textbox lié au champ "age" et récupérer dans ce contrôle cette valeur mais je voudrais savoir si c'est possible via une simple ligne de code…

Merci

Bonjour,

Tu peux envisager plusieurs méthodes...
En voici une :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Function ObtenirValeurChamp(ByVal QuelChamp As String, ByVal QuelleTable _ As String, ByVal ChampCritere As String, ByVal Valeur As String) As String Dim oRS As DAO.Recordset Dim SQL As String Dim strFindFirst As String   SQL = "SELECT * FROM " & QuelleTable & ";"   strFindFirst = "[" & ChampCritere & "] = " & Chr(34) & Valeur & Chr(34)   Set oRS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)   With oRS     .FindFirst strFindFirst     If .NoMatch Then       ObtenirValeurChamp = "Aucune occurence trouvée"     Else       ObtenirValeurChamp = .Fields(QuelChamp).Value     End If     .Close   End With   Set oRS = Nothing End Function Private Sub txtTrouver_LostFocus()   MsgBox "Valeur trouvée :" & ObtenirValeurChamp("Age", "datAuthors", _   "Nom", Trim(Me!txtTrouver)) End Sub

---

Argy

Merci

Je viens de l'intéger et il y a un message d'erreur (erreur d'excécution 424, un objet est requis) à ce niveau

Code:

---

Set oRS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

---

Je suppose que ça vient du CurrentDb mais je ne vois pas le pb exact :oops:

1/ Cocher la référence à DAO 3.6 Object Library

2/ Tout dépend où est le code :

dans VB6 ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim oDB As DAO.Database Dim oWKS As DAO.Workspace Dim oRS As DAO.Recordset   Set oWKS = Workspaces(0) Set oDB = oWKS.OpenDatabase("Chemin + nom de ta base") Set oRS = oDB.OpenRecordset("SELECT...") [....] oRS.Close oDB.Close   Set oRS = Nothing Set oDB = Nothing Set oWKS = Nothing

---

dans Access ?
CurrentDB est la BDD en cours...

Argy

Citation:

---

Envoyé par getea85

Ce que je voudrais savoir, c'est si à la place du XXX, il pourrait y avoir une ligne de code qui affiche à l'écran (par une Msgbox….) la valeur du champ "age" de la même ligne d'enregistrerment…

---

Pour repondre a cette question je dirais que oui c'est tout a fait possible. - A voir ton code tu utilises un ADODC -

Ainsi si tu faisais ceci, je croit tu devrais avoir le resultat voulu

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub txtTrouver_LostFocus() Dim strnom As String strnom = Trim(txtTrouver.Text) & "*" strnom = "nom like '" & strnom & "'" If txtTrouver.Text <> "" Then datAuthors.Recordset.FindFirst strnom 'Tu verifies d'abord si tu as aumoins un resultat if datAuthors.Recordset.Recordcount > 0 then msgbox datAuthors.Recordset!Champs_Age end if End If End Sub

---

Merci à vous : les 2 solutions fonctionnent :D

Celle de sovo est la plus simple mais celle d'argyronet plus évoluée pourra surement me servir pas la suite !