Discussion :

[Requiem11]

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

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 :/

[Renardo]

Essai comme cela

Code :

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

1
2
3
4
5
If Me.libelléLocal = "Hors commune" Then
Cot1 = Cot + 15
Else
 Cot1 = Cot1
End If

[Requiem11]

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

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

qui déconne d'après ACCESS.

[keita]

bonjour à tous
tu as écrit ceci:

Code :

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

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 :

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

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

@+