[AC-2007] erreur après compactage de la base de donnée [Résolu]

[Kisty10]

Bonjour

j'explique mon problème :
j'ai supprimé toutes les champs de mes tables et j'ai compacté ma base de donnée.
après, j'ai lancé mon projet et je voulais ajouter un client.
bon j'ai remplis les champs du Formulaire et quand j'ai basculé vers le sous formulaire pour remplir la commande de client,j'ai eu un message d'erreur : "Un index ou une clé principale ne peut pas contenir une valeur Null"

PS :
j'ai un champ (Numfacture) sur ce formulaire au format numérique de style (20110001) qui remet a zero chaque debut d'anné, je pense que le problème est la!!!

[marot_r]

Je ne pense pas que le compactage soit le coupable, plutôt le vidage de table.

Regarde la source de données de ton formulaire et vérifie que tu entres bien des données dans le ou les champs qui composent ta ou tes clefs primaires et tes indexs uniques.

A+

[Philippe JOCHMANS]

Bonjour

Regardes également dans ton code s'il n'y a pas incrémentation d'un champ (de type numéro de facture) qui soit programmé par VBA.

En effet, lorsque tu veux faire l'incrément et que la table est vide il arrive que l'on ait ce genre d'erreurs, car on veut prendre pour référence un enregistrement qui n'existe pas.

Philippe

[Kisty10]

Oui j'ai une incrémentation de (numéro de facture), c'est ici l'erreur, parce que j'ai remplis le champ NumFacture manuellement dans ma table et j'ai plus l'erreur.
Mais, ce n'est pas une solution, parce que j'ai juste essayé de remplir ce champ pour savoir s'il provoque l'erreur ou pas.
Alors dois-je faire quoi? est ce qu'il faut changer le type de ce champ?

[marot_r]

Peux-tu poster le code qui fait l'incrémentation ?

A+

[Kisty10]

Voila le code :

Code :

1
2
3
4
5
6
 
Function num_fac()
Dim dern_fac
dern_fac = DLast("NumFacture", "Facture")
If Year(Date) > dern_fac / 10000 Then num_fac = Year(Date) * 10000 + 1 Else num_fac = dern_fac + 1
End Function

Et je fait appel à cette fonction dans la propriété "valeur par défaut" de mon champ (NumFacture).

Donc si je vide mes tables, le champ (NumFacture)n'incrémente pas?

[marot_r]

Code :

1
2
3
4
5
Function num_fac()
Dim dern_fac
dern_fac = Nz(DMax("NumFacture", "Facture"),0)
If Year(Date) > dern_fac / 10000 Then num_fac = Year(Date) * 10000 + 1 Else num_fac = dern_fac + 1
End Function

S'il n'y a pas de de données DLast retourne Null, le NZ() permet de remplacer ce null par un 0, mais je l'ai remplacé par DMax() car il n'est pas du tout sur que le dernier enregistrement de la table soit celui qui ai le numéro de facture maximum. C'est TRÈS probable mais ce n'est pas CERTAIN :o). J'ai perdu une après-midi avec une erreur de ce type avant de comprendre pourquoi mon code marchait parfois mais pas tout le temps.

Et si tu as plusieurs utilisateurs qui peuvent générer des factures en même temps alors ton code risque de retourner deux fois le même numéro de facture.

A+

[Philippe JOCHMANS]

Re

Envoyé par Kisty10

Oui j'ai une incrémentation de (numéro de facture), c'est ici l'erreur, parce que j'ai remplis le champ NumFacture manuellement dans ma table et j'ai plus l'erreur.
Mais, ce n'est pas une solution, parce que j'ai juste essayé de remplir ce champ pour savoir s'il provoque l'erreur ou pas.
Alors dois-je faire quoi? est ce qu'il faut changer le type de ce champ?

C'est bien ce que je pensais pour m'être fait avoir une fois.

La fonction NZ que t'indique marot_r est une bonne réponse à ce genre de problème.

Philippe

[marot_r]

Salut à toi Philippe :-).

Un point avec NZ() ne pas l'utiliser avec un nombre décimal car parfois elle tronque les décimales !!! Par exemple : 10.5 devient 10 ... pas cool.

A+

[Kisty10]

Je viens d'essayé ce que t'as proposé et ça marche bien

J'ai perdu une après-midi avec une erreur de ce type avant de comprendre pourquoi mon code marchait parfois mais pas tout le temps.

Donc dans ce cas la cette solution n'est pas sur à 100%? est ce qu'elle provoque des erreurs de temps en temps ?

[marot_r]

Je parlais de DLast() vs DMax(), j'avais utilisé DLast() au lieu de DMax() et cela m'a pris du temps avant de découvrir mon erreur. Avec DMax() ça marche tout le temps, avec DLast() ça marche si tu as de la chance.

A+

[Kisty10]

Ah d'accord,
Désolé marot_r j'ai pas vu ta réponse
Merci

[Kisty10]

Merci a toi aussi Philippe