Erreur de compilation: end sub attendu
Teaocoffee
Messages postés
6
Statut
Membre
-
Teaocoffee Messages postés 6 Statut Membre -
Teaocoffee Messages postés 6 Statut Membre -
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 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
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,
