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

Private Sub Form_Current()
Dim sql As String
sql = "INSERT INTO REGISTRE CLIENT (DATE 1RE VISITE, ETABLISSEMENT) " & _
      "SELECT DATE 1RE VISITE, ETABLISSEMENT FROM REGISTRE CLIENT " & _
      "IN 'C:\Users\Admin\OneDrive\Documents\MEGA\TEST CLIENT SERVEUR  online @6 sept26 STARTS\Main FichierServeurOnline\CLINIQUE MANAGER 1_1 FichieiServOnline.accdb';"
      CurrentDb.Execute sql, dbFailOnError
End Sub