Bonjour,
Afin de simplifier la saisie d' une facture, je souhaite numéroter les lignes de facture d' une manière automatique. A ce jour, j' ai un module VBA qui normalement devrai s' assurer si la ligne 1 existe puis commencer la numérotation. A chaque lancement, j' obtiens ce code d' erreur:
Erreur d' exécution 2447 :
Utilisation non valide du point(.), du point d' exclamation(!) ou de parenthèses.
vous avez peut-être un identificateur non valide ou fait suivre la constante NUL de parenthèses.
Ci-dessous le code utilisé:
Private Sub Ligne_Pré_Enter()
Dim NmLg As String
Dim Rgt As Recordset
Dim Bd As Database
Set Bd = CurrentDb
NmLg = "SELECT T_Mouvements.Clé_Pré, (Count(*)+1) AS [Compte De T_Mouvements] "
NmLg = NmLg & "FROM T_Mouvements"
NmLg = NmLg & " Where T_Mouvements.Clé_Pré = " & Forms![Sf_PrtLg01]![Clé_Pré].Value
NmLg = NmLg & " GROUP BY T_Mouvements.Clé_Pré;"
Set Rgt = Bd.OpenRecordset(NmLg, dbOpenSnapshot)
If (Rgt.BOF) And (Rgt.EOF) Then
Forms![Sf_PrtLg01]![Ligne Pré] = 1
Else
Forms![Sf_PrtLg01]![Ligne Pré] = Rgt.Fields![Compte De T_Mouvements].Value
End If
End Sub
Merci de vos réponses
PS : Configuration Windows XP + Access 97