Discussion :

[Juan277]

Bonjour,

Je me suis inspiré de la FAQ pour exécuter une requête non enregistrée et m'en servir. Je sélectionne le dernier élément d'une table et s'il correspond à l'enregistrement en cours, je rends visible un bouton.
Seulement, j'ai une erreur 3265 sur la ligne "Set qdf..." que je ne comprends vraiment pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
If IsNull(Me!Date_envoi) Then
    Set qdf = CurrentDb.QueryDefs("SELECT LAST(N°Mandat) AS DERNIER FROM T_Mandat")
    Set rcs = qdf.OpenRecordset
    If rcs!DERNIER = Me.N°Mandat.Value Then
        cmdDemandater.Visible = True
    End If
    Set qdf = Nothing

Avez-vous une idée ??

Merci d'avance

[lyxthe]

a mon avis c'est sur la déclaration des variables et leur utilisation, je pense que tu n'a pas besoin de tout, essaye juste ça :

Code :

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

1
2
3
4
5
6
7
Dim rcs As Recordset
 
If IsNull(Me!Date_envoi) Then
    Set rcs = CurrentDb.OpenRecordset("SELECT LAST(N°Mandat) AS DERNIER FROM T_Mandat", dbOpenDynaset)
    If rcs!DERNIER = Me.N°Mandat.Value Then
        cmdDemandater.Visible = True
    End If

je suis pas sur de moi

[Juan277]

Ca marche.

Merci pour tout.