Discussion :

[thor18]

Je ne souhaite pas compter le nombre de résultat, mais stocker le résultat,quelle mthode faut-il utilisé! je cherche depuis hier, je suis un peu à cours d'idée!

Merci

Code :

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

1
2
3
Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    v = rst.RecordCount 'utiliser pour compter! 
    Debug.Print v

[marot_r]

Qu'entends-tu par seulement 'stoker le resultat' ?

Un objet recordset est un ensemble d'enregistrement que tu peux parcourrir (méthode : MoveFirst, MoveNext, MovePrevious, MoveLast, FindFirst), ou comme là compter donc tu as déjà un résultat qui correspond à l'instruction SQL que tu as demandée.

Si tu veux enregistrer l'ensemble des enregistrements, tu peux les mettre dans une table temporaire ou dans un fichier selon tes besoins.

A+

[thor18]

Dans ce cas ci, la "réponse" est une seul valeur présent dans une table, il ne peut y avoir de doublon. je souhaite que la variable v vaut "ce qui est stocké dans la table. je ne sais pas quelle méthode utiliser pour ça!

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
Function RecupèreValeurDansTabletemp(AppareilATester)
    Dim rst As DAO.Recordset 'DAO.Recordset est un sous objet DAO et est un objet representant un enregistrement
                             'c'est à dire une variable pouvant stocker le resultat d'une requette sql
    Dim sSQL As String 'sSQL est une variable pouvant stocker plusieurs charactères: ici une requete
    Dim v As String 'Stock le nombre d'occurences trouvées lors de la recherche
 
    sSQL = "SELECT TableTemp.TempNFab " & _
    " FROM TableTemp" & " WHERE (((TableTemp.Appareil)='" & AppareilATester & "'));"
 
    Debug.Print sSQL 'Affiche la requete dans la fenètre de Débogage
 
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    v = rst.RecordCount
    Debug.Print v
    rst.Close 'On ferme le recordset pour liberer la memoire
    End Function

Il s'agit plus précisèment d'un tableau! je recherche dans le champA le nom d'un appareil, et je souhaite récupèrer le contenu du ChampB.

[DMboup]

Tu fais le plus difficile et tu te blique sur le plus simple.

Si tu est certain d'avoir une seule ligne tu fais

Code :

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

1
2
 
Debug.Print rst("TempNFab")

Si tu as par contre plusieurs lignes alors tu fais une boucle

Code :

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

1
2
3
4
5
6
7
8
9
 
Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    v = rst.RecordCount 'utiliser pour compter! 
    Debug.Print v
    Do Until rst.Eof
         Debug.Print rst("TempNFab")
 
         rst.MoveNext
    Loop

[thor18]

euh je suis pas sûre de comprendre!

debug.print sert à afficher une valeur dans la fenêtre de deboguage!
Si je veut que cette valeur soit stocké dans v! comment dois-je procéder!

PS: et oui ce qui paraît le plus facile ne l'est pas forcément!

[DMboup]

Si je veut que cette valeur soit stocké dans v! comment dois-je procéder!

Eh bien , tu remplacer Debug.Print par ta variable qui devra être un tableau ou une variable adaptée si tu as plusieurs lignes par ta requête.

Code :

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

1
2
 
  v=rst("TempNFab")

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   dim MonTab() as variant, i as integer
  Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    v = rst.RecordCount 'utiliser pour compter! 
    Debug.Print v
    Redim MonTab(v)
    i=0
    Do Until rst.Eof
         MonTab(i) rst("TempNFab")
 
         i=i+1
         rst.MoveNext
    Loop

[jean-paul lepetit]

Salut,

Tu veux utiliser cette variable dans un autre formulaire ou un état ?

Si c'est cela, il te faut déclarer cette variable dans un module et la déclarer en Global et de plus pas en String qui est une variable chaîne, mais en Integer

Code :

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

Global V as Integer

[DMboup]

[CODE]Global V as Integer

Attention là. Il n'as pas dit que sa variable été un entier. Est si c'est un tableau d'entier et de string?

[jean-paul lepetit]

Code :

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

   v = rst.RecordCount 'utiliser pour compter!

RecordCount peux renvoyer un String.....?

[DMboup]

RecordCount peux renvoyer un String.....?

Qu'on ne met pas dans un integer. Je crois...?

[jean-paul lepetit]

Excuses moi, mais tu me mets le doute....

le recordcount te renvoies bien un entier, non?....

[DMboup]

Oui le RecordCount renvoie bien un entier. Je crois qu'on ne se comprend pas
Son problème c'est

je recherche dans le champA le nom d'un appareil, et je souhaite récupèrer le contenu du ChampB.

Son RecordSet

Code :

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

1
2
3
4
5
6
7
8
 
sSQL = "SELECT TableTemp.TempNFab " & _
    " FROM TableTemp" & " WHERE (((TableTemp.Appareil)='" & AppareilATester & "'));"
 
    Debug.Print sSQL 'Affiche la requete dans la fenètre de Débogage
 
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    v = rst.RecordCount

le

Code :

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

1
2
 
    v = rst.RecordCount

est un exemple qu'il veut remplacer par la bonne formule lui permettant de récupérer les lignes renvoyées par son RecordSet.

Voila ce que j'ai en tout cas compris.

[Alain36]

Bonjour,

Je me permets de faire irruption dans cette discussion car elle concerne une sujet que je traite fréquemment. VBA propose la méthode GetRows pour ranger dans une seule variable tout un jeu d'enregistrements. Petit exemple :

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
 
Dim rcs As RecordSet, VarEnreg as Variant, LgNbLignes  As Long
'
Set rcs = CurrentDb.OpenRecordset(Définition SQL de la requête)
With rcs
   If Not .EOF Then
      '
      'petite gymnastique pour récupérer le nombre d'enregistrements
      '
      .MoveLast
      .MoveFirst
      LgNbLignes=.RecordCount
      '
      'récupération du jeu d'enregistrements dans la variable VarEnreg
      '
      VarEnreg=.GetRows(LgNbLignes)
   End If
   .Close
End With

VarEnreg ainsi renseigné devient un tableau variant qui s'exploite de cette façon :
VarEnreg(j,i) retourne la valeur du jème champ du ième enregistrement

[thor18]

Merci ça fonctionne à présent.
voici le code fonctionnel

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
26
27
28
Function RecupèreValeurDansTabletemp(AppareilATester)
    Dim rst As DAO.Recordset 'DAO.Recordset est un sous objet DAO et est un objet representant un enregistrement
                             'c'est à dire une variable pouvant stocker le resultat d'une requette sql
    Dim sSQL As String 'sSQL est une variable pouvant stocker plusieurs charactères: ici une requete
    Dim sSQL2 As String
 
    'champ1
    sSQL = "SELECT TableTemp.TempNFab " & _
    " FROM TableTemp" & " WHERE (((TableTemp.Appareil)='" & [AppareilATester] & "'));"
    Debug.Print sSQL 'Affiche la requete dans la fenètre de Débogage
 
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    TmpNFab = rst("TempNFab")
    Debug.Print TmpNFab
    rst.Close 'On ferme le recordset pour liberer la memoire
 
 
    'champ2
    sSQL2 = "SELECT TableTemp.TempNRef " & _
    " FROM TableTemp" & " WHERE (((TableTemp.Appareil)='" & [AppareilATester] & "'));"
    Debug.Print sSQL2 'Affiche la requete dans la fenètre de Débogage
 
    Set rst = CurrentDb.OpenRecordset(sSQL2, dbOpenForwardOnly, dbReadOnly) 'dbReadOnly signifie que l'on est en lecture seul
    TmpNRef = rst("TempNRef")
    Debug.Print TmpNRef
    rst.Close 'On ferme le recordset pour liberer la memoire
 
End Function

Mais j'ai une autre requete qui me pose problème!
La variable ZoneTexte contient le contenu d'une zone de texte qu'édite un utilisateur. Cela fonctionne presque tout le temps; sauf quand on entre des caractère spéciaux! come ' _ # etc avez vous déjà rencontré ce genre de problème!

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
Sub AjouteEntrerDansTablePb(NUMFAB, NREF, ZoneTexte)
 
'Déclaration des variables
Dim sSQL As String 'sSQL est une variable pouvant stocker plusieurs characteres: ici une requete
Dim qdf As Variant
Dim bds As Database
Dim dateActuel As Date
Dim TableZ As String
 
dateActuel = Now 'Affecte à la variable dateActuel l'heure du système
TableZ = "Problèmes_rencontrés"
 
'requête SQL
sSQL = "INSERT INTO " & [TableZ] & " " & _
           "(NUM_FAB, NUM_REF, DATE_AJOUT,Description_problème) " & _
           "VALUES ('" & [NUMFAB] & "', '" & [NREF] & _
           "', '" & [dateActuel] & ",' " & [ZoneTexte] & ");"
 
'Afficher Le Resultat Dans Debug : CLICK DROIT BARRE OUTILS : ACTIVER DEBUGAGE : CLIQUER SUR FENETRE EXECUTION... POUR VOIR LE RESULTAT
Debug.Print ZoneTexte
Debug.Print sSQL
 
CurrentDb.Execute sSQL, dbFailOnError 'execute la requete sSQL
End Sub