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 17/05/2011, 12h16   #1
Invité de passage
 
Homme
Administrateur systèmes et réseaux
Inscription : mai 2011
Messages : 2
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Hauts de Seine (Île de France)

Informations professionnelles :
Activité : Administrateur systèmes et réseaux
Secteur : Conseil

Informations forums :
Inscription : mai 2011
Messages : 2
Points : 0
Points : 0
Par défaut Restauration de base / Impossible d'atteindre l'enregistrement spécifié

Bonjour à tous,

Premier post ici, et quelques peu étranger au monde d'Access

Voici mon problème: Notre environnement est composé de postes ayant soit MSAccess 2002, soit juste le runtime. Une base MDB a été supprimée de notre réseau. Cette base était "partagée" dans le sens où l'accès concurrent était possible. Elle ne tient qu'en un seul fichier MDB, aucun fichier MDE ou autre n'a été crée. Suite à sa disparition, je l'ai restaurée depuis les bandes de sauvegardes. Et depuis, je rencontre plusieurs problèmes.
  1. L'accès concurrent à la base n'est plus possible.
  2. Le bouton "Nouveau" qui figure sur l'un des formulaires et qui permet de créer une nouvelle entrée retourne un message d'erreur ("Impossible d'accéder à l'enregistrement spécifié...") quand il est utilisé via le runtime Access.

Donc, quand un utilisateur de MSAccess 2002 l'ouvre seul, tout va bien. Mais quand un utilisateur l'ouvre via le runtime, le bouton "Nouveau" ne fonctionne plus. De plus, 2 utilisateurs (runtime ou MSAccess) ne peuvent l'ouvrir en même temps. (ça va, je suis cohérent?)

Le code derrière le bouton "Nouveau" est le suivant:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bNewRecord_Click()
On Error GoTo Err_bNewRecord_Click
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_bNewRecord_Click:
    Exit Sub
 
Err_bNewRecord_Click:
    MsgBox Err.Description
    Resume Exit_bNewRecord_Click
 
End Sub
Voilà. J'espère que vous pourrez m'aider, je suis un peu dans la merde là !

Un grand merci et une excellente journée à tous!
Hewitt est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/05/2011, 16h13   #2
Invité de passage
 
Homme
Administrateur systèmes et réseaux
Inscription : mai 2011
Messages : 2
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Hauts de Seine (Île de France)

Informations professionnelles :
Activité : Administrateur systèmes et réseaux
Secteur : Conseil

Informations forums :
Inscription : mai 2011
Messages : 2
Points : 0
Points : 0
Pour info, suite à plusieurs recherches sur le net, j'ai essayé de remplacer:

Code :
DoCmd.GoToRecord , , acNewRec
par:

Code :
DoCmd.GoToRecord , , , acNewRec
Mais sans succès...

Une idée? Merci!
Hewitt 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 13h40.


 
 
 
 
Partenaires

Hébergement Web