Erreur de compilation: end sub attendu
Teaocoffee
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Teaocoffee Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Teaocoffee Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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,
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,
A voir également:
- End sub attendu
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
4 réponses
Bonjour,
Il faut retirer les lignes
Function newnum()
End Function
ça devrait fonctionner un peu mieux.
Penses aussi à définir le type de newnum.
Il faut retirer les lignes
Function newnum()
End Function
ça devrait fonctionner un peu mieux.
Penses aussi à définir le type de newnum.
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
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
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
Qu'est-ce que ça signifie?
Merci bien
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,
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,
