Bonjour à tous voilà mon code qui devrait normalement me déclarer des variables et les initilialiser.
Le seul souci c est le message d'erreur suivant : " erreur d execution '13' ; incompatibilité de type " avec la ligne 6 du code surlignée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private sub new click()

Dim db as database
dim rec as recordset
dim nbr as integer

set db = application.currentdb
set rec = db.openrecordset ( "nom_table", db.opentable)
nbr=rec.recordset
....
Pouvez vous m éclaircir stp.
Thanks d avance