Gestion des Erreurs ACCESS
Résolu
guitare77210
Messages postés
5
Date d'inscription
vendredi 9 octobre 2009
Statut
Membre
Dernière intervention
27 novembre 2010
-
26 nov. 2010 à 20:47
guitare77210 Messages postés 5 Date d'inscription vendredi 9 octobre 2009 Statut Membre Dernière intervention 27 novembre 2010 - 27 nov. 2010 à 15:51
guitare77210 Messages postés 5 Date d'inscription vendredi 9 octobre 2009 Statut Membre Dernière intervention 27 novembre 2010 - 27 nov. 2010 à 15:51
A voir également:
- Gestion des Erreurs ACCESS
- Exemple base de données access gestion du personnel - Forum Visual Basic
- Cahier des charges gestion de stock - Forum Java
- [Clos] cahier des charges d'une application de gestion des stocks et achats clas - Forum Java
- Gestion des cv - Forum VB.NET
- Gestion des pointages - Forum PHP
2 réponses
guitare77210
Messages postés
5
Date d'inscription
vendredi 9 octobre 2009
Statut
Membre
Dernière intervention
27 novembre 2010
27 nov. 2010 à 15:51
27 nov. 2010 à 15:51
Bonjour YvesSimon
Bonjour les dephinautes
Merci pour ta patience
La connexion avec la table est faite et l'affichage dans un DBGRID est possible.
Je pense avoir trouvé une soluce
pour le test des doublons j'ai créé un deuxième ADOTABLE nommé COMPTES2
en ReadOnly.
Ensuite sur la gestion de l’évènement BeforePost du composant COMPTES j'ai écris le code suivant :
var
Clé, Libellé : string;
begin
COMPTES2.Refresh; // actualiser, les enregistrement sauf celui de Table1
// qui n'est pas posté
clé := COMPTESCompte.Value;
if COMPTES2.Seek(Clé) then
raise Exception.Create('Doublon sur le compte : ' + clé);
if COMPTES.FieldByName('Compte').IsNull then
raise Exception.Create('Compte non renseigné......');
Libellé := COMPTESLibellé.Value;
if Length(Trim(Libellé)) < 1 then
raise Exception.Create('Le libellé du compte : ' + clé + ' est vide');
Je déclenche une exception à chaque erreur de saisie sur la fiche.
cela semble fonctionner.
A moins que je m'égare ??
Est ce que j'utilise la procédure correct ?
Guitare77
Bonjour les dephinautes
Merci pour ta patience
La connexion avec la table est faite et l'affichage dans un DBGRID est possible.
Je pense avoir trouvé une soluce
pour le test des doublons j'ai créé un deuxième ADOTABLE nommé COMPTES2
en ReadOnly.
Ensuite sur la gestion de l’évènement BeforePost du composant COMPTES j'ai écris le code suivant :
var
Clé, Libellé : string;
begin
COMPTES2.Refresh; // actualiser, les enregistrement sauf celui de Table1
// qui n'est pas posté
clé := COMPTESCompte.Value;
if COMPTES2.Seek(Clé) then
raise Exception.Create('Doublon sur le compte : ' + clé);
if COMPTES.FieldByName('Compte').IsNull then
raise Exception.Create('Compte non renseigné......');
Libellé := COMPTESLibellé.Value;
if Length(Trim(Libellé)) < 1 then
raise Exception.Create('Le libellé du compte : ' + clé + ' est vide');
Je déclenche une exception à chaque erreur de saisie sur la fiche.
cela semble fonctionner.
A moins que je m'égare ??
Est ce que j'utilise la procédure correct ?
Guitare77
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
27 nov. 2010 à 10:29
27 nov. 2010 à 10:29
Bonjour,
La connexion à la table est-elle faite ?
Un affichage dans un DBGRID est-il possible ?
BON COURAGE
yvessimon
La connexion à la table est-elle faite ?
Un affichage dans un DBGRID est-il possible ?
BON COURAGE
yvessimon
