Discussion :

[ttfme]

Bonjour à tous,
et déjà merci pour tout ce que j'ai appris en venant ici.
Débutant en vba sous access, j'ai l'erreur '3251' opération non autorisée pour ce type d'objet.
en gros,
suite à un click, je souhaite lire une table [utilisateur] dont la clé est code et pour chaque record dans [utilisateur], je veux faire un FINDFIRST dans une table [utilisation] qui a comme clé code ; date_prestation. Si ce record n'existe pas, je vais l'ajouter dans [utilisation]
voici le code que je tente d'exécuter :

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
 
Private Sub Commande9_Click()
Dim r_utilisateur As DAO.Recordset
Dim r_utilisation As DAO.Recordset
Dim r_utilisation_date As String
Dim bd As DAO.Database
Dim critere As String
Dim test As Integer
 
test = 17
 
Set bd = Application.CurrentDb
 
Set r_utilisation = bd.openrecordset("utilisation", dbopentable, dbreadonly)
Set r_utilisateur = bd.openrecordset("utilisateur", dbopentable, dbreadonly)
r_utilisateur.MoveFirst
 
Do While (r_utilisateur.EOF <> True)
critere = buildcriteria("code",dbLong, test)
    r_utilisation.FindFirst (critere)  'cette ligne pose problème
    r_utilisateur.MoveNext
Loop
 
End Sub

merci d'avance de me faire bénéficier de votre expérience

[wape]

Bonjour,

Extrait de l'aide DAO :

FindFirst, FindLast, FindNext, FindPrevious, méthodes

Recherche, dans un objet Recordset de type Feuille de réponses dynamique (Dynaset) ou Instantané (Snapshot) le premier enregistrement, le dernier, le suivant ou le précédent qui répond aux critères indiqués et transforme cet enregistrement en enregistrement en cours (espaces de travail Microsoft Jet uniquement).

La méthode FindFirst ne fonctionnera donc pas avec un Recorset de type Table, tel que tu l'as défini dans ton code
(cf. paramètre dbopentable). D'autre part, en ouvrant le Recordset en lecture seule (cf. paramètre dbreadonly),
tu ne pourras pas y ajouter d'enregistrements par la suite.

Essaye de modiifer la ligne de création du Recordset comme suit :

Code :

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

Set r_utilisation = bd.openrecordset("SELECT * FROM utilisation", dbOpenDynaset)

Pour tester si l'enregistrement existe (ou pas) :

Code :

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

1
2
3
4
5
6
7
(...)
r_utilisation.FindFirst (critere)
If r_utilisation.NoMatch Then
   'Ajouter l'enregistrement dans la table [utilisation]
End If
r_utilisateur.MoveNext
(...)

wape

[ttfme]

un grand merci, j'ai pas encore tout essayé mais c'est vrai qu'hier soir, je dsespérait de pas avoir de réponse et je me suis à nouveau plongé dans le tutoriel et j'avais fais la même conclusion sauf que je ne vois pas ce que je dois mettre si je ne met pas readonly? Appendonly me permet d'aouter sans modifier?? moi je veux et modifier et ajouter si non présent.
Encore un tout grand merci...petits détails pour vous les boss mais montagne pour les p'tits développeurs => vive les forums!

[wape]

Bonjour,

Il n'y a rien besoin de mettre à la place de dbreadonly. C'est le paramètre dbOpenDynaset qui
va permettre l'ajout, la modification et la suppression des enregistrements dans la table sous-jacente.

wape