Methode item de l'objet [Résolu]

[zebi42]

Bonjour,


Le code suivant me renvoie l'erreur: Methode item de l'objet form a échoué

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Suite_click()
Dim rec As DAO.Recordset
Dim query As DAO.QueryDef
 
'Controle mot de passe
 
Set query = CurrentDb.QueryDefs("R_Identification")
query.Parameters("param") = Me.Utilisateur
 
Set rec = query.OpenRecordset
 
If rec.RecordCount = 0 Then
    MsgBox "Nom incorrect"
Else
    If rec("Mdp") <> Me.MdP Or IsNull(Me.MdP) Then
        MsgBox "Mot de passe erronné"
    Else
        DoCmd.OpenForm "Selections"
        With Forms("selections")
           .Rep = rec("Util")
           .MExp = rec("MetExp")
        End With
 
    End If
End If
 
End Sub

Avez-vous une idée ?

Merci

[zebi42]

J'ai fait une copie de mon formulaire et tout fonctionne avec le nouveau

Les bizarreies d'Access ........!!!!!