Discussion :

[getea85]

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 :

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

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

[argyronet]

Bonjour,

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

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
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

[getea85]

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 :

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

Set oRS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

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

[argyronet]

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

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

dans VB6 ?

Code :

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

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

[sovo]

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 :

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

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

[getea85]

Merci à vous : les 2 solutions fonctionnent

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