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 07/04/2011, 16h17   #1
Membre éclairé
 
Homme Michel
Développeur informatique
Inscription : février 2008
Messages : 261
Détails du profil
Informations personnelles :
Nom : Homme Michel
Localisation : France, Hérault (Languedoc Roussillon)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : février 2008
Messages : 261
Points : 304
Points : 304
Par défaut Pb de déplacement entre enregistrements

Bonjour
Problème à vous soumettre :

J'ai un formulaire dans lequel s'affichent des rubriques d'une table.
J'ai créé un bouton "enregistrement suivant" ainsi codé :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande182_Click()
 
On Error GoTo Err_Commande182_Click
 
    DoCmd.GoToRecord , , acNext
 
Exit_Commande182_Click:
    Exit Sub
 
Err_Commande182_Click:
    MsgBox Err.Description 'fin de fichier 
    Resume Exit_Commande182_Click
End Sub
Et un bouton "enregistrement précédent" ainsi codé :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande183_Click()
 
On Error GoTo Err_Commande183_Click
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Commande183_Click:
    Exit Sub
 
Err_Commande183_Click:
    MsgBox Err.Description
    Resume Exit_Commande183_Click
End Sub
Ce sont par ailleurs 2 codes générés automatiquement pas ACCESS.

Le problème est le suivant :

Après avoir cliqué un grand nombre de fois sur le bouton "enregistrement suivant" lorsque j'arrive au dernier enregistrement de la table et que je clique encore une fois, un enregistrement vide se présente et si je clique encore le message de fin de fichier arrive bien.

Mais dès lors, que je clique sur "enregistrement précédent" ou sur "enregistrement suivant" un erreur est générée qui dit :

Citation:
erreur d'exécution '2249'
impossible d'utiliser l'action AtteindreEnregistrement ou
la méthode gotorecord en mode création.
Auriez-vous une solution à me proposer ?

--> J'aimerais d'une part que cet enregistrement à blanc (fin de fichier) qui n'existe pas dans la table exploitée n'apparaisse pas et rester positionné sur le dernier enregistrement valide

--> et d'autre part qu'un fois la fin de fichier atteinte, je puisse en cliquant sur le bouton "enregistrement précédent" revenir en arrière dans mes enregistrements et non rester bloqué sur cet enregistrement "vide"

Merci par avance si vous avez la solution.

Michel
Orion34080 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/04/2011, 16h52   #2
Expert Confirmé
 
Avatar de vodiem
 
Homme Diem VO
Vivre
Inscription : avril 2006
Messages : 2 644
Détails du profil
Informations personnelles :
Nom : Homme Diem VO
Âge : 40
Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

Informations professionnelles :
Activité : Vivre
Secteur : Conseil

Informations forums :
Inscription : avril 2006
Messages : 2 644
Points : 3 895
Points : 3 895
salut Orion34080 et bienvenu,

essai avec:
feuille de propriété/type de sélection:formulaire/onglet Données/Ajout autorisé = 'Non'
vodiem est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/04/2011, 09h04   #3
Membre éclairé
 
Homme Michel
Développeur informatique
Inscription : février 2008
Messages : 261
Détails du profil
Informations personnelles :
Nom : Homme Michel
Localisation : France, Hérault (Languedoc Roussillon)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : février 2008
Messages : 261
Points : 304
Points : 304
Par défaut Probleme résolu

Merci pour ta réponse : ce n'était que ça ! Mais c'est déjà beaucoup pour moi car je ne trouvais pas la solution

Encore merci
Michel
Orion34080 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h56.


 
 
 
 
Partenaires

Hébergement Web