Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1334 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  access vba recordset

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

access vba recordset

n°2271855
pdm69
Posté le 18-12-2015 à 09:05:04  profilanswer
 

Je veux créer un recordset avec une requête (R_reçu_fiscal_new_cot2) pour ensuite faire des opérations diverses. Voici le début de mon code
          Dim enr As Recordset
          DoCmd.SetWarnings False
          enr = CurrentDb.OpenRecordset("R_reçu_fiscal_new_cot2" )
J'obtiens le message suivant : Utilisation incorrecte de la propriété
Pouvez-vous m'aider car j'ai cheché sur Internet et mon instruction me semble correcte
merci
pdm69

mood
Publicité
Posté le 18-12-2015 à 09:05:04  profilanswer
 

n°2271856
Chelmi18
Posté le 18-12-2015 à 09:30:26  profilanswer
 

Et si tu fais un truc du style :
 

Code :
  1. Set maConnexion= New ADODB.Connection
  2. Set monRecord= New ADODB.Recordset
  3. monRecord.Open "R_reçu_fiscal_new_cot2", maConnexion, , , adCmdText


 
PS : pense à utiliser les balises cpp/cpp pour formater ton code.

n°2271905
pdm69
Posté le 18-12-2015 à 16:33:32  profilanswer
 

Ma requête sélectionne un ensemble d'enregistrements que dans la suite du programme je souhaite balayer avec une séquence qui commence par
    With enr
    .movefirst
    Do While not.EOF
 
D'après moi, la séquence
          Dim enr As Recordset
          enr = CurrentDb.OpenRecordset("marequête" )  
devrait marcher.
Que se passe-t-il ?
Ton code retourne-t-il un ensemble d'enrigistrements?
Quelles déclarations faut-il faire Dim ...   ?

n°2272040
Chelmi18
Posté le 21-12-2015 à 08:30:30  profilanswer
 

Il y a plein de raisons pour lesquelles ça pourrait ne pas fonctionner : pas la bonne version d'Office (OpenRecordset ne s’applique qu'à partir d'Office 2013), mauvaise déclaration de CurrentDb, etc ...
 
C'est pour cela qu'en scindant correctement les instructions, cela permet généralement de mieux cerner le problème.

n°2273081
kiro40
Posté le 08-01-2016 à 22:10:22  profilanswer
 

Je ne suis pas expert en programamtion  informatique mais j'utilise la manière suivante  si cela peut t'aider:
 
Il faut cependant vérfier que ta base soit en .mdb ( version 2000 )
Que tu es ajouté les references lies a l'ADO connection , et ADO reccordset
 
 

Code :
  1. Dim Cn As ADODB.Connection
  2. Dim rst As ADODB.Recordset
  3. Dim reqsql_str As String
  4. Set Cn = New ADODB.Connection
  5. Cn.Provider = "Microsoft.jet.oledb.4.0"
  6. Cn.Properties("Data Source" ) = "C:\Users\Kevin\Documents\20160108_BDD_PERSO.MDB"
  7. Cn.Open
  8. For x = 2012 To 2020
  9.     For i = 1 To 12
  10.        reqsql_str = " INSERT INTO Temps(Annee,Mois) VALUES ( " & x & "," & i & " )"
  11.        
  12.         Set rst = Cn.Execute(reqsql_str)
  13.     Next i
  14. Next x
  15. Cn.Close



---------------
"Nous ne devons jamais verser de larmes. Les larmes ne sont rien d'autre que la défaite du corps sur le cœur. Elles constituent la preuve que garder un cœur ne sert à rien d'autre qu'à s'affaiblir"

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  access vba recordset

 

Sujets relatifs
access probléme visual basic recordsetcopie de recordset? vba access
Menu dynamique en VBA pour Access 2003 par recordset[VBA][Access] Faire une requête jointure sur un recordset et une table
[Résolu[VBA][Access] Remplissage d'1 liste déroulante avec 1 Recordsetaide sure les recordset dans ACCESS
[VBScript] Recordset Access et champ de type Mémo[ASP/ACCESS]Affichage d'un recordset dans des zones de texte
[VBA][Access] RecordSet[ASP/ACCESS]utilisation deux Recordset
Plus de sujets relatifs à : access vba recordset


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR