Erreur d'éxécution "3265":Element non trouvé dans cette collection.

bonjour, voilà ACCES m'émet un message d'erreur d'éxécution 3265.
Voilà mon code:

Citation:

---

Private Sub calcul_Click()

Dim Cot As Integer
Dim Cot1 As Integer
Dim cot2 As Integer
Dim cot3 As Integer
Dim couttotal As Integer

Dim rs As DAO.Recordset

Cot1 = 0
cot3 = 0

If Me.libelléLocal = "Hors commune" Then
Cot1 = Cot + 15
Else: Cot1 = Cot1

End If

Set rs = CurrentDb.OpenRecordset("select cotisation from categorie where categorie.libellecateg=""" & Me.libelleCateg & """;")
cot2 = rs("cotisation")

If Me.Nom = rs("Nom") And Me.CP = rs("CP") And Me.adresse = rs("Adresse") Then
cot3 = cot3 - 15
Else: Cot = cot3
End If

Me.calcul.Enabled = False

If cot3 < 0 Then
MsgBox ("un membre de votre famille est deja inscrit vous avez donc droit a une réduction de 15€")
Else
End If

couttotal = Cot1 + cot2 + cot3
cout.Caption = "votre cotisation est de " & couttotal & " €"
End Sub

---

Je ne vois pas ce qui est faux :/

Essai comme cela

Code:

---

1 2 3 4 5

If Me.libelléLocal = "Hors commune" Then Cot1 = Cot + 15 Else Cot1 = Cot1 End If

---

Oups, excusez moi, j'avais oublié de vous dire que c'était cette ligne:

Citation:

---

If Me.Nom = rs("Nom") And Me.CP = rs("CP") And Me.adresse = rs("Adresse") Then

---

qui déconne d'après ACCESS.

bonjour à tous
tu as écrit ceci:

Code:

---

Set rs = CurrentDb.OpenRecordset("select cotisation from categorie where categorie.libellecateg=""" & Me.libelleCateg & """;")

---

et dans ton select il n 'y a pas "nom" la dedans, d'où l'erreur erreur d'éxécution 3265.
Essai comme ceci:

Code:

---

Set rs = CurrentDb.OpenRecordset("select cotisation, nom from categorie where categorie.libellecateg=""" & Me.libelleCateg & """;")

---

@+