Erreur de compilation: end sub attendu [Fermé]

Messages postés
6
Date d'inscription
mardi 30 juillet 2013
Statut
Membre
Dernière intervention
2 août 2013
- - Dernière réponse : Teaocoffee
Messages postés
6
Date d'inscription
mardi 30 juillet 2013
Statut
Membre
Dernière intervention
2 août 2013
- 31 juil. 2013 à 08:51
Bonjour,

Quand je commence à saisir le formulaire, une fenêtre erreur de compilation: end sub attendu apparaît sur la 1ère ligne du code ci-dessous dans la procédure évènementielle avant insertion:

Private Sub Form_BeforeInsert(Cancel As Integer)
Function newnum()
Dim curAnnee As String
curAnnee = Format(Date, "yyyy")

lastnum = DMax("NUM", "table", "NUM like '" & curAnnee & "*'")

If IsNull(lastnum) Then 'pas de n° pour cette année
newnum = curAnnee & "-0001"
Else
newnum = curAnnee & "-" & Format(Right(lastnum, 4) + 1, "0000")
End If

End Function
End Sub

Avez-vous une idée?
Merci beaucoup,
Afficher la suite 

4 réponses

Meilleure réponse
1
Merci
Bonjour,

Il faut retirer les lignes

Function newnum()
End Function

ça devrait fonctionner un peu mieux.
Penses aussi à définir le type de newnum.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58667 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
mardi 30 juillet 2013
Statut
Membre
Dernière intervention
2 août 2013
0
Merci
Rebonjour,

Bon, en fait il faut mettre le end sub juste après le sub.
Maintenant le code demande d'entrer la valeur num lors de l'éxecution. J'aimerais que ce n° s'incrémente automatiquement à l'ouverture du formulaire.
Comment faire?
Merci
Messages postés
6
Date d'inscription
mardi 30 juillet 2013
Statut
Membre
Dernière intervention
2 août 2013
0
Merci
Merci de ta réponse. Si j'enlève les lignes, le msg suivant s'affiche: erreur de compilation seuls des commentaires peuvent apparaître après end sub end function ...
Qu'est-ce que ça signifie?
Merci bien
Messages postés
6
Date d'inscription
mardi 30 juillet 2013
Statut
Membre
Dernière intervention
2 août 2013
0
Merci
Salut,

Bon OK pour les msg de compilation. Je voudrais appeler une fonction: call nomfunction mais ça me demande d'entrer la valeur dans le champ correspondant alors que je voudrais que cela se fasse automatiquement. J'ai peut-être oublié qqchose dans le code (cf 1ère question).
Quelqu'un voit?
Merci et bonne journée,