1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Dim Type_de_pièce As String
Dim mois As String
Dim an As String
Dim num As String
an = Me.an
mois = Me.mois
num = Me.num
'Recherche si le numéro existe déja
'Numéro = FormaterPiece("F", an, mois, num)
'Existe = RechDom("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro)
'Recherche si le numéro existe déja
'Numéro = FormaterPiece("F", "05", "12", "001")
Numéro = FormaterPiece("F", an, mois, num)
existe = DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro & "'")
MsgBox existe
' si le numéro n'existe pas on le formate en fonction des élément entrées
If IsNull(existe) Then
Me.NumFacture = FormaterPiece("F", "05", "12", "001")
Else: MsgBox "Le Numéro existe déja essayer un autre numéro"
End If |
Partager