Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 25/11/2010, 23h13   #1
Nouveau Membre du Club
 
Inscription : juin 2010
Messages : 33
Détails du profil
Informations forums :
Inscription : juin 2010
Messages : 33
Points : 32
Points : 32
Par défaut Perte de données

Bonjour, au travail, j'ai un petit problème de perte de données dans une DB access.
J'ai 2 tables: une dans laquelle un utilisateur entre des données et une autre qui fait le lien entre l'utilisateur et les données entrée.

L'ID des données entrée est une clé primaire auto-incrémentée. Je récupère donc cette valeur et l'insère dans la table qui me sert a faire le lien (Grâce a Resulset.AddRow et puis Update).

Jusque là, rien d'extraordinaire si ce n'est que de manière inexpliquée, j'ai perdu les 180 premiers records. C'est également arrivé chez un client.

Quelqu'un a-t-il même un début de piste?

Quelqu'un connaît-il un site ou l'on m'explique le fonctionnement complet de Resultset.AddRow?

Merci d'avance pour tout. Bonne soirée
zuurstof est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/11/2010, 18h28   #2
Rédacteur/Modérateur

 
Avatar de loufab
 
Homme Fabrice CONSTANS
Ingénieur développement logiciels
Inscription : avril 2005
Messages : 7 079
Détails du profil
Informations personnelles :
Nom : Homme Fabrice CONSTANS
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Ingénieur développement logiciels

Informations forums :
Inscription : avril 2005
Messages : 7 079
Points : 11 620
Points : 11 620
Bonjour,

Pour insérer un enregistrement dans un recordset DAO on utilise Addnew

Code :
1
2
3
4
5
6
dim rst as recordset
rst.addnew
rst.fields("Nom") = "monnom"  'soit par le nom
rst.fields(1) = "MonPrenom"    'soit par l'index
...
rst.update
Pour capter le dernier Id créé on utilise pour retrouver le dernier record.

Il y a un tuto la dessus

http://warin.developpez.com/access/dao/

5ème partie.

Pourquoi 180 enregistrement ont disparu ? Peut-être car il y a un écrasement causé par l'utilisation de mauvaises méthodes.

En l'absence de code posté on peut faire cette supposition.

Cordialement,
__________________
Classe MELA(CRUD) Opérateur IN et zone de liste
MsGraph et VBA - 1e Partie 2e partie
Entête d'états-Opérateur LIKE-Evénements formulaires-Cours 2010
Complément :Générateur de msgbox
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas l'extispicine
loufab est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h53.


 
 
 
 
Partenaires

Hébergement Web