Pattes de Genève

Tellement absorbé par mon travail hier soir de création graphique que je n'ai même pas pris le temps de me présenter !
Je m'appelle Patrick, j'ai 34 ans, célibataire, je suis enseignant en informatique, et j'ai un chien guide :

bienvenue pattes

bonjour

bienvenue pattes

coucou pattou... besoin de tes services en info...petit souci avec le vba d'access...

Sinon je remarque qu'ont a toujours pas la trombi du fondateur.....

Le VBA d'Access peux-tu m'en dire un peu plus ?

Option Compare Database

Option Explicit
Dim effectif As Integer
Dim somme As Double


Sub initialisation()
somme = 0
effectif = 0
Txt_Valnum.Value = 0
Txt_NbValEncodées.Value = 0
Txt_SommeValEncodées.Value = 0
Txt_Valnum.SetFocus
End Sub




Private Sub Cmd_Réinitialisation_Click()
Call_ initialisation

End Sub

Private Sub Cmd_Validation_Click()
effectif = effectif + 1
somme = somme + Txt_Valnum.Value
Txt_NbValEncodées.Value = effectif
Txt_SommeValEncodées.Value = somme
Txt_Valnum.Value = 0
Txt_Valnum.SetFocus

End Sub

Private Sub Form_Load()

End Sub

Private Sub Form_Open(Cancel As Integer)

End Sub





voila ce que j'ai mit comme code pour un formulaire mais je pense avoir fait une erreur,noter en gras ci dessus...