access vba recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : access vba recordset

pdm69

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

Publicité

Chelmi18

Et si tu fais un truc du style :

Code :

Set maConnexion= New ADODB.Connection
Set monRecord= New ADODB.Recordset
monRecord.Open "R_reçu_fiscal_new_cot2", maConnexion, , , adCmdText

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

pdm69

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

Chelmi18

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.

kiro40

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 :

Dim Cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim reqsql_str As String
Set Cn = New ADODB.Connection
Cn.Provider = "Microsoft.jet.oledb.4.0"
Cn.Properties("Data Source" ) = "C:\Users\Kevin\Documents\20160108_BDD_PERSO.MDB"
Cn.Open
For x = 2012 To 2020
For i = 1 To 12
reqsql_str = " INSERT INTO Temps(Annee,Mois) VALUES ( " & x & "," & i & " )"
Set rst = Cn.Execute(reqsql_str)
Next i
Next x
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"

FORUM HardWare.fr

Programmation

VB/VBA/VBS

access vba recordset

Sujets relatifs
access probléme visual basic recordset	copie 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 Recordset	aide 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

Page générée en 0.037 secondes