Discussion :

[aba_tarn]

Bonjour,

J'ai une erreur d'exécution 13 sur le code suivant:

Code :

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

1
2
3
4
5
6
Private Sub choix_num_redevable_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[numéro redevable]='" & Me![choix_num_redevable] & "'" And "[année activité]='" & Me![choix_annee] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

incompatibilité de type

Est-ce que l'on a le droit de mettre dans Findfirst AND ou pas?
Parce que les données de ma table sont au format texte.

merci

[aba_tarn]

Il faut mettre le and dans les "" code suivant:

Code :

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

1
2
3
4
5
6
Private Sub choix_num_redevable_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[numéro redevable]='" & Me![choix_num_redevable] & "' And [année activité]='" & Me![choix_annee] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub