Discussion :

[rcarlyp]

Voici mon formulaire pour modifier les informations d'un patient:
J'aimerais si modifie des informations du patient, qu'un code VBA aille modifier une table externe et une table interne.

Voici mon code mais je suis bloqué:

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
Private Sub Commande1_GotFocus()
Dim db As DAO.Database
Dim sql As String
Dim cheminExterne As String
' Chemin d'accès vers la base de données externe
cheminExterne = "C:\Users\Admin\OneDrive\Documents\MEGA\TEST CLIENT SERVEUR  online @6 sept26 STARTS\Main FichierServeurOnline\CLINIQUE MANAGER 1_1 FichierServOnline.mdb"
' Construction de la requête SQL UPDATE avec la clause IN
sql = "UPDATE REGISTRE CLIENT IN '" & cheminExterne & "' " & _
"SET CLIENT = 'NouvelleValeur' " & _
"WHERE NO COMPTE CREDIT = Me.texte112;"
' Exécution de la requête
Set db = CurrentDb db.Execute sql, dbFailOnError
MsgBox "Mise à jour réussie !", vbInformation
 
End Sub

MERCI deja pour votre aide

[EricDgn]

Bonjour,

Sans doute quelque chose de ce genre:

Code :

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

1
2
3
sql = "UPDATE [REGISTRE CLIENT] IN '" & cheminExterne & "' " & _
"SET CLIENT = '" & Me.Client & "' " & _
"WHERE NO COMPTE CREDIT = '" & Me.texte112 & "';"

Cordialement.

[Thumb down]

bonsoir,
@EricDgn tous les champs qui ont des espaces doivent être [encadrer] [COMPTE CREDIT]

[rcarlyp]

Bonjour,

Sans doute quelque chose de ce genre:

Code :

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

1
2
3
sql = "UPDATE [REGISTRE CLIENT] IN '" & cheminExterne & "' " & _
"SET CLIENT = '" & Me.Client & "' " & _
"WHERE NO COMPTE CREDIT = '" & Me.texte112 & "';"

Cordialement.

ok je vais essayer

[rcarlyp]

voici ce q'est devenu mon code:

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
Private Sub Commande1_Click()
 Dim db As DAO.Database
    Dim sql As String
    Dim cheminExterne As String
 
    ' Chemin d'accès vers la base de données externe
    cheminExterne = "C:\Users\Admin\OneDrive\Documents\MEGA\TEST CLIENT SERVEUR  online @6 sept26 STARTS\Main FichierServeurOnline\CLINIQUE MANAGER 1_1 FichierServOnline.mdb"
 
    ' Construction de la requête SQL UPDATE corrigée
    sql = "UPDATE [REGISTRE CLIENT] IN '" & cheminExterne & "' " & _
          "SET CLIENT = '" & Me.CLIENT.Value & "', SEXE = '" & Me.SEXE.Value & "' WHERE [NO COMPTE CREDIT]=" & Me.NOCOMPTECREDIT.Value & ""
 
    ' Exécution de la requête
db.Execute sql, dbFailOnError
 
End Sub

Mais ce ne fonctionne toujours pas et ce recois le message d'erreur suivant:

[Thumb down]

bonjour,
personnellement je préconise [de toujours encadrer les champs] même s'il n'y a pas d'espace [date] ,pare exemple,étant un mot réservé il faut l'encadrer. si tu encadres tous tes champs tu n'auras plus de problème, du moins celui ci. car si ton client ce nomme L'évêque tu auras un problème sur l'apostrophe.

Code :

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

1
2
3
sql = "UPDATE [REGISTRE CLIENT] IN '" & chemin & "' " & _
      "SET CLIENT = '" & client & "' " & _
      "WHERE [NO COMPTE CREDIT] = '" & texte112 & "';"

[tee_grandbois]

bonjour,
Que ce soit une requête d'insertion ou de mise à jour, la façon d'accéder à la base distante reste la même.
Donc, pourquoi avoir abandonné la solution de la table attachée, préconisée ici ?
Sinon le code actuel semble correct après les corrections apportées, le problème est peut-être ailleurs.

Quelle instruction provoque l'erreur ?

[rcarlyp]

voici mon code maintenenant

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande1_Click()
Dim db As DAO.Database
    Dim sql As String
    Dim cheminExterne As String
  ' Chemin d'accès vers la base de données externe
    cheminExterne = "C:\Users\Admin\OneDrive\Documents\MEGA\TEST CLIENT SERVEUR  online @6 sept26 STARTS\Main FichierServeurOnline\CLINIQUE MANAGER 1_1 FichierServOnline.mdb"
 sql = "UPDATE [REGISTRE CLIENT] SET CLIENT = '" & Me.CLIENT.Value & "', sexe = '" & Me.SEXE.Value & "' WHERE [# DOSSIER AUTOMATIQUE] = '" & Me.NOCOMPTECREDIT.Value & "'"
 CurrentDb.Execute sql, dbfailerror
 DoCmd.OpenForm "21sept26EnrgModifINFOSDEMOPATIENT"
End Sub

Le code s'execute parfaitemant sans aucun message d'erreur mais la table externe n'a pas ete mis a jour!

Pourriez-vous m'aider s'il vous plait?

[Philippe JOCHMANS]

Bonjour,

A quel moment tu utilises la variable cheminExterne ?

Comme dit dans d'autres discussions, les tables liées c'est beaucoup mieux et moins de soucis.

Philippe

[tee_grandbois]

bonjour Philippe,

A quel moment tu utilises la variable cheminExterne ?

le code d'origine était (à peu près) comme ceci:

Code :

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

1
2
   sql = "UPDATE [REGISTRE CLIENT] IN '" & cheminExterne & "' " & _
          "SET CLIENT = '" & Me.CLIENT.Value & "', SEXE = '" & Me.SEXE.Value & "' WHERE [NO COMPTE CREDIT]=" & Me.NOCOMPTECREDIT.Value & ""

entre temps, IN '" & cheminExterne & "' " a disparu. Du coup, je pense que c'est la table interne nommée [REGISTRE CLIENT] qui a été mise à jour ...

Et on ne sait toujours pas pourquoi cette table doit être mise à jour à posteriori. Si on connaissait le besoin plutôt que d'essayer de résoudre un problème de code, la solution serait-elle plus adaptée ?

[rcarlyp]

bonjour Philippe,

le code d'origine était (à peu près) comme ceci:

Code :

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

1
2
   sql = "UPDATE [REGISTRE CLIENT] IN '" & cheminExterne & "' " & _
          "SET CLIENT = '" & Me.CLIENT.Value & "', SEXE = '" & Me.SEXE.Value & "' WHERE [NO COMPTE CREDIT]=" & Me.NOCOMPTECREDIT.Value & ""

entre temps, IN '" & cheminExterne & "' " a disparu. Du coup, je pense que c'est la table interne nommée [REGISTRE CLIENT] qui a été mise à jour ...

Et on ne sait toujours pas pourquoi cette table doit être mise à jour à posteriori. Si on connaissait le besoin plutôt que d'essayer de résoudre un problème de code, la solution serait-elle plus adaptée ?

Cette table doit etre mis a jour pour alimenter une autre base de donnees. Dans mon cas actuel j'aimeras que je cette table soit mis à jour sans etre ouverte pour eviter des conflits

[tee_grandbois]

une requête de mise à jour peut provoquer un conflit si un utilisateur est sur un enregistrement concerné, donc le problème existera toujours sauf si aucun utilisateur n'a accès à cette table depuis un formulaire ou par tout autre connexion

[rcarlyp]

une requête de mise à jour peut provoquer un conflit si un utilisateur est sur un enregistrement concerné, donc le problème existera toujours sauf si aucun utilisateur n'a accès à cette table depuis un formulaire ou par tout autre connexion

C'est pour cette raisaon que j'aimerais la mettre a jour sans l'ouvrir mais mes codes ne fonctionnent pas. Pensez-vous que l'espace dans les noms des tables et dans les nom des champ peut provoquer des erreurs?

[tee_grandbois]

C'est pour cette raisaon que j'aimerais la mettre a jour sans l'ouvrir mais mes codes ne fonctionnent pas.

aucun logiciel n'est capable d'accéder à une table sans ouvrir la base, même si cela ne se voit pas, la base sera ouverte pendant l'exécution de la requête, puis fermée.
et cela ne répond toujours pas à mes interrogations:
- au sujet de la table distante: qui y a accès et de quelle manière (saisie/MAJ dans la journée via formulaire, importation/exportation...) ?
- quelle instruction fait planter ?

peut on voir le code SQL avant l'exécution ?
il suffit d'ajouter Debug.Print sql juste avant l'instruction CurrentDb.Execute sql, dbfailerror, le résultat s'affiche dans la fenêtre d'exécution de VBA, il suffit ensuite de faire un copier/coller et de le poster

moins il y a d'informations et moins on peut apporter de solutions

Pensez-vous que l'espace dans les noms des tables et dans les nom des champ peut provoquer des erreurs?

je ne pense pas qu'ici les espaces soient la cause du problème actuel, même si ils sont à éviter dans la mesure du possible car cela oblige à utiliser les crochets systématiquement donc source d'ennuis si on oublie de le faire, les mots réservés comme Date, User etc. sont à éviter également.

Mais en premier lieu, je pense qu'il faudrait commencer par faire fonctionner la requête avec la table attachée pour savoir si cela plante aussi (mais avec le résultat du Debug du SQL quand même), après on avisera

[rcarlyp]

aucun logiciel n'est capable d'accéder à une table sans ouvrir la base, même si cela ne se voit pas, la base sera ouverte pendant l'exécution de la requête, puis fermée.
et cela ne répond toujours pas à mes interrogations:
- au sujet de la table distante: qui y a accès et de quelle manière (saisie/MAJ dans la journée via formulaire, importation/exportation...) ?
- quelle instruction fait planter ?

peut on voir le code SQL avant l'exécution ?
il suffit d'ajouter Debug.Print sql juste avant l'instruction CurrentDb.Execute sql, dbfailerror, le résultat s'affiche dans la fenêtre d'exécution de VBA, il suffit ensuite de faire un copier/coller et de le poster

moins il y a d'informations et moins on peut apporter de solutions


je ne pense pas qu'ici les espaces soient la cause du problème actuel, même si ils sont à éviter dans la mesure du possible car cela oblige à utiliser les crochets systématiquement donc source d'ennuis si on oublie de le faire, les mots réservés comme Date, User etc. sont à éviter également.

Mais en premier lieu, je pense qu'il faudrait commencer par faire fonctionner la requête avec la table attachée pour savoir si cela plante aussi (mais avec le résultat du Debug du SQL quand même), après on avisera

Les autres utilisateurs ont access par IMPORTATION seulement.
Je vais reecrire le code et le reposter

[Philippe JOCHMANS]

Que veux tu dire par Importation ?

[tee_grandbois]

Les autres utilisateurs ont access par IMPORTATION seulement.

Si j'ai bien compris c'est une image de la table réelle dans une autre base utilisée uniquement pour des extractions afin de créer des rapports ou tableaux (via Excel, Access ou autre) Je connais très bien le contexte, en général ce type de configuration fonctionne avec une mise à jour de la base la nuit. C'est du temps réel un peu décalé mais sans risque de conflit d'écriture...
Je ne sais pas si c'est le même contexte pour vous, car si les mises à jour sont permanentes dans la journée, les utilisateurs doivent être conscients que les résultats ne reflèteront pas vraiment la réalité si une extraction est effectuée juste après une mise à jour, mais il faudrait à minima que l'utilisateur soit averti de l'heure de la dernière mise à jour

[Mat.M]

Cette table doit etre mis a jour pour alimenter une autre base de donnees. Dans mon cas actuel j'aimeras que je cette table soit mis à jour sans etre ouverte pour eviter des conflits

Dans un premier temps vérifier bien le chemin de la base de données ; il est peut-être trop long et non valide.
Ce qu'il faut faire c'est mettre un point d'arrêt ( en pressant F9), exécuter et mettre le curseur souris sur les variables pour activer Intellisense.
Voir ce que contiennent comme valeur les variables.

Code :

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

1
2
3
4
5
6
7
8
 
cheminExterne = "C:\Users\Admin\OneDrive\Documents\MEGA\TEST CLIENT SERVEUR  online @6 sept26 STARTS\Main FichierServeurOnline\CLINIQUE MANAGER 1_1 FichierServOnline.mdb"
' Construction de la requête SQL UPDATE avec la clause IN
sql = "UPDATE REGISTRE CLIENT IN '" & cheminExterne & "' " & _
"SET CLIENT = 'NouvelleValeur' " & _
"WHERE NO COMPTE CREDIT = Me.texte112;"
' Exécution de la requête
Set db = CurrentDb db.Execute sql, dbFailOnError

cheminexterne me pose un problème il est beaucoup trop long et encore une fois ne codez jamais en "dur" dans du code source.
Après lors de l'appel CurrentOb.db c'est pas étonnant que ça ne fonctionne pas.

[tee_grandbois]

bonsoir Mat.M,

Après lors de l'appel CurrentOb.db c'est pas étonnant que ça ne fonctionne pas.

en effet:

Code :

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

1
2
' code faux :
Set db = CurrentDb db.Execute sql, dbFailOnError

code bon :

Code :

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

Set db = CurrentDb: db.Execute sql, dbFailOnError

ou plus lisible :

Code :

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

1
2
Set db = CurrentDb
db.Execute sql, dbFailOnError

de plus, je n'avais pas remarqué sur le post # 5 la disparition de Set db = CurrentDb, d'où l'erreur 91. De plus, comme le code change à chaque nouveau post, il est difficile de s'y retrouver ...

[rcarlyp]

bonsoir Mat.M,

en effet:

Code :

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

1
2
' code faux :
Set db = CurrentDb db.Execute sql, dbFailOnError

code bon :

Code :

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

Set db = CurrentDb: db.Execute sql, dbFailOnError

ou plus lisible :

Code :

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

1
2
Set db = CurrentDb
db.Execute sql, dbFailOnError

de plus, je n'avais pas remarqué sur le post # 5 la disparition de Set db = CurrentDb, d'où l'erreur 91. De plus, comme le code change à chaque nouveau post, il est difficile de s'y retrouver ...

Effectivement j'esseyais plusieurs codes pour voir si je pouvais m'en sortir. Je vais repartir avec un seul tour en suivant vos conseils