Récupération/insertion valeurs Access VBA Résolu/Fermé

Question

Bonjour à tous,

Apres quelques recherches sur différents forums, je reste bloqué bêtement.

Voila, dans un formulaire, l'utilisateur entre différentes données dans des text Box

Mon code VBA effectue différents tests et insert ensuite les données dans la table

Mon probleme et que je n'arrive pas à récuperer la valeur des champs du formulaire dans
des variables.

J'ai essayé :
FEquipment = TextEquipment   -> TextEquipment est le nom d'un champ du formulaire
FEquipment = Forms![TOTO].[TextEquipment].value

etc etc, mais sans succés

Votre aide sera la bienvenue 

Merci

Tydher · Answer

J'ai trouvé, c'etait simplement
FEquiment = TextEquipment.value

Maintenant, j'ai une variable qui doit me récuperer la valeur max de l'ID equipment, et ma requete d'insertion doit me faire un MaxEquipment +1 mais pour le moment sans succés

Voila ce que j'ai actuellement
MaxEquipment = "Select MAX(IDEQUIPMENT) From Equipment;"
DoCmd.RunSQL "Insert into Equipment values (MaxEquipment +1, ...);"
Lorsque je lance l'insertion, une boite de dialogue s'ouvre et me demande le MaxEquipment

Tydher · Answer

Voila la solution

MaxEquipment = DLookup("Max([IDEQUIPMENT])", "Equipment")
MaxEquipment = MaxEquipment + 1
DoCmd.RunSQL "Insert into ProgToto values ( " & FProgram & ", " & MaxEquipment & ")"

Récupération/insertion valeurs Access VBA

2 réponses

Discussions similaires