Discussion :

[maxime350]

Bonjour,

je rencontre un problème avec l'action d'un recordset Edit.
Sur mon formulaire j'ai créé 2 boutons, un "Valider" et un "Refuser".
voici le code qui s'exécute au clique sur le bouton valider:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande471_Click()
Dim rst As DAO.Recordset
 
    Set rst = CurrentDb.OpenRecordset("Modèle V13")
    rst.Edit
        rst!validationoffre = "VALIDER"
    rst.Update
    rst.Close
    Set rst = Nothing
    MsgBox "Votre offre à été validée", vbOKOnly, "Offre validée"
End Sub

Il me modifie donc le champ 'validationoffre' de ma table 'Modèle V13'.
Cependant il me modifie à chaque fois le 1er enregistrement de ma table et non l'enregistrement en cours sur mon formulaire où je clique sur le bouton "Valider" ou "Refuser".

Savez vous comment faire un critère de tri dans un Recordset pour qu'il me modifie l'enregistrement en cours et non pas uniquement le 1er.

Merci,
Maxime

[Invité]

Bonjour

Il faut que tu remplaces ta table par une requête de sélection (SELECT) avec une clause WHERE qui comporte la donnée identifiant ton champ de façon unique.

Car avec ton code on ne sait pas qu'elle enregistrement on va modifier dans la table.

Starec

[maxime350]

Merci Starec pour ta réponse.
Si l'utilisation d'une requête est indispensable je vais donc passer par cela, mais j'aurais préféré en vba.

Cela n'est vraiment pas possible?

Maxime

[Invité]

Re

Tu gardes ta structure, mais tu crées une requête en SQL qui tu mets à la place du nom de ta table.

Aide toi du générateur de requête pour récupérer le code SQL.

Starec

[maxime350]

ok Merci Strarec,

je test et vous tiens au courant!

Maxime

[maxime350]

la je bloque.
je vous explique:

donc je créé une requête:

Code :

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

1
2
SELECT [Modèle V13].numoffre
FROM [Modèle V13];

je dois mettre une clause Where pour identifier l'enregistrement en cours.
sauf que la clause Where provient de mon formulaire que je consulte.
donc comment faire appel à la zone de texte "numoffre" dans mon formulaire "ModèleV13" qui identifie mon enregistrement?

j'espère me faire comprendre!

Merci,
Maxime

[maxime350]

J'ai fini par trouver comment faire et voici donc mon code:

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
Private Sub Commande471_Click()
Dim rst As DAO.Recordset
Dim Db As DAO.Database
Dim sql As String
Set Db = CurrentDb
 
sql = "SELECT * FROM [Modèle V13] WHERE numoffre = " & numoffre
 
    Set rst = Db.OpenRecordset(sql)
    rst.Edit
        rst!validationoffre = "VALIDER"
    rst.Update
    rst.Close
    Set rst = Nothing
    MsgBox "Votre offre à été validée", vbInformation + vbOKOnly, "Offre validée"
End Sub

Merci pour ton aide Starec!