Discussion :

[GMPADD]

Bonjour a tous,

J'ai constitué une base de donnée des outils d'une entreprise, elle fonctionne mais une action prend beaucoup de temps, aussi je cherche à l’améliorer.
J'ai une liste déroulante qui doit absolument être vide lorsque l’opérateur ouvre un certain formulaire or celle ci mémorise la valeur entrée. De manière à supprimer cette valeur, j'ai fait un petit VBA qui efface tout le champ dans la table qui la sauvegarde, cependant le temps de parcourir toutes les lignes est très long. Je vous met le code à la suite:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set oRst = oDb.OpenRecordset("T2-Références", dbOpenTable)
While Not oRst.EOF
  'Passe en mode modification
  oRst.Edit
  'Efface la valeur
  oRst.Fields("Pos1").Value = Null
  'Met à Jour
  oRst.Update
  'Passe au suivant
  oRst.MoveNext
 
Wend

T2-Références est la table dans laquelle est inscrit le champ pos1 que je dois effacer.
Dans notre cas je n'aurai qu'une seule ligne à effacer a chaque fois que l’opérateur fait son choix dans la liste déroulante.
Cependant je ne sais pas comment faire un code pour lui dire d'aller spécifiquement effacer la cellule pos1 correspondant à la ligne qui vient d’être changée.
Quelqu'un à une idée ?

[jimbolion]

GMPADD bonjour

en passant par une requête SQL, cela d'évite de boucler sur tous les enregistrements de ta table

Code :

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

CurrentDb.Execute "UPDATE T2-Références SET T2-Références.Pos1 = Null;"

Cordialement

Jimbolion

[GMPADD]

Bonjour,

Merci pour votre aide. Je voulais passer par VBA car je n'arrive pas à faire que requête SQL car lorsque je l’exécute Access m'ouvre une fenêtre "Sélectionner la source de données" .
Celle ci me demande de "sélectionner la source de données fichier qui décrit le pilote auquel vous souhaite vous connecter. Vous pouvez utiliser toute source de données faisant référence à un pilote ODBC installé sur votre machine".

Meme en appliquant la procédure décrite ici :
https://support.office.com/fr-fr/art...2-6dac62532a42
ou ici :
https://support.office.com/fr-fr/art...7-f369b78d3db8.

Je n'arrive à rien.

[jimbolion]

GMPADD,


Le code fourni est bien du VBA !
Il est toutefois possible que la syntaxe de noms de tes tables t'oblige à mettre entre crochets le nom des entités ainsi ce code :

Code :

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

CurrentDb.Execute "UPDATE [T2-Références] SET [T2-Références].Pos1 = Null;"

Ce code remplace le tien dans ta fonction ou procédure

Jimbolion

[GMPADD]

Impeccable ça fonctionne au top merci jimbolion