Discussion :

[zooffy]

Bonjour à tous.

Je rencontre un souci sur lequel je me bat régulièrement et je ne comprends toujours pas le fonctionnement : l'accès admin.

Par exemple, je lance une procedure qui contient cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rsDJFTemp = CurrentDb.OpenRecordset("SELECT * FROM JourFerieTemp")

Et il me dit :


Le code c'est ma machine, mais je sais que quelqu'un d'autre à ouvert également la base ACCESS et c'est normal, il doit bosser avec les outils que je lui programme.

Ce que je ne comprends pas malgré toute la lecture de doc que j'ai fait c'est comment je peux prendre ou reprendre le pas sur les autres pour mettre à jour des données dans une table ou modifier un formulaire ?

Pouvez-vous m'aider ?

Merci et bonne journée.

[marot_r]

Bonjour.

Deouis les versions 2000 il me semble il n'est plus possible de modifier (physiquement) une BD pendant que quelqu'un d'autre s'en sert.
On peut évidement modifier les données mais pas le code ou les formulaires par exemple.

La solution est de découper la BD en frontale (tous sauf les tables et les relations) et dorsale (les tables et les relations seulement).Il y a un assistant pour cela.
Ensuite quand tu développes, tu travailles sur une copie de la frontale et de la dorsale.
Une fois au point tu pousses la frontale en prod et tu la lies aux données de prod.

A+

[zooffy]

Merci pour ton aide.

Ce principe de Dorsale et Frontale, je le fait déjà.

Donc, ok pour le développement en lui-meme, je vais modifier ma façon de bosser.
Par contre, le cas que j'ai donné dans le premier message avec le montage d'un Recordset, c'est le fonctionnement normal de la base de donnée.
J'ai pointé cette ligne car c'est elle qui a généré le message d'erreur. Mais ce morceau de code est censé s'exécuter en mode normal, en production en somme.

C'est en fait le premier pas de ma procedure de mise à jour des données. Du coup, si, dés qu'il y a plus d'un utilisateur sur le fichier, ACCESS ne peut plus mettre lui-même à jour ses données, je suis dans la mouise.

Vois tu ce que je veux dire ?

[marot_r]

OK, désolé d'avoir mal identifié ton problème.

Non à priori tu peux modifier tes données, c'est en soit l'essence même d'une BD :-).

Est-ce que tu as du code qui est en train de changer la structure de ta BD en même temps (ex : création dynamique de formulaire, de table, de requête ?).

Parce que sur la simple ligne que tu as mise tu n'aurais pas du avoir d'erreur.

Aussi valide que cela se produit quand tu fermes et que tu réouvres ta BD. Parfois Access garde cette notion de blocage même si apparemment plus personne ne fait de modification de structure.

Actuellement je travaille à cheval sur 2 versions et je fais des modifs dans les 2 donc il me faut faire des copies d'objet d'une version à l'autre et parfois (j'ai pas encore compris pourquoi) l'une ou l'autre de mes BD refuse de glisser/coller.
J'ai bien compilé et sauvegardé tout des 2 côtés mais la BD destinatrice m'indique qu'elle est verrouillée par Admin/MaMachine.
Je ferme la récalcitrante et je l'ouvre à nouveau et, là, je peux maintenant faire ma copie.

A+

[zooffy]

Non, je n'ai pas de code qui modifie la structure des données ou même un quelconque autre objet dans la base.

Ma procedure de mise à jour des données est assez simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
DataDb.Execute ("DELETE FROM MaTable")
DoCmd.TransferText acImportDelim, , "MaTable", "\\mon.server\GroupShares\Folder\ROBOTS_Data.csv", True

Parfois je fais un truc en plus, du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DataDb.Execute ("UPDATE MaTable SET STATUS = 'Z' WHERE IsNull(STATUS)")

Et je lance aussi une grosse procédure car une de mes tble doit être remplie avec un gros traitement de donnée en provenance d'une autre table qui vient juste d'être remplie.
Je met le code pour info, ça pourait même intéresser des gens, c'est pour intégrer des dates à partir de chaines de caratères qui sont monté avec quatre chiffre pour chaque date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub TraitementTablejourFerie()
Dim rsDJFTemp As Recordset
Set rsDJFTemp = CurrentDb.OpenRecordset("SELECT * FROM JourFerieTemp")
Do While Not rsDJFTemp.EOF
    Dim CodeMonnaie, Annee, LibPays  As String
    Annee = rsDJFTemp.Fields("ANNEE")
    CodeMonnaie = rsDJFTemp.Fields("MONNAIE")
    LibPays = rsDJFTemp.Fields("TBDES1")
    LibPays = Replace(LibPays, "'", " ")
    Dim strDate As String
    strDate = rsDJFTemp.Fields("DESCRIP")
    If Right(strDate, 4) = "0000" Then
        strDate = Left(strDate, Len(strDate) - 4)
    End If
    Do While Len(strDate) > 3
        Dim strExtrDate As String
        strExtrDate = Right(strDate, 4)
        Dim intMonth, intDay As Integer
        Dim dteJourFerie As Date
        intMonth = Right(strExtrDate, 2)
        intDay = Left(strExtrDate, 2)
        dteJourFerie = DateSerial(Annee, intMonth, intDay)
        CurrentDb.Execute ("INSERT INTO JourFerie (CodeMonnaie, LibPays, DateJourFerie) VALUES ('" & CodeMonnaie & "','" & LibPays & "','" & dteJourFerie & "')")
        strExtrDate = ""
        intMonth = 0
        intDay = 0
        dteJourFerie = 0
        strDate = Left(strDate, Len(strDate) - 4)
    Loop
    Annee = 0
    CodeMonnaie = 0
    rsDJFTemp.MoveNext
Loop
End Sub

Je vais regarder de plus prêt les condition de plantage.

Merci pour ton aide.

[Jean-Philippe André]

Salut,

a toute fin utile, pense a fermer ton recordset en fin de processus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rsDJFTemp.Close