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

Messages postés
123
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
17 mai 2011
- - Dernière réponse : Tydher
Messages postés
123
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
17 mai 2011
- 16 mai 2011 à 15:26
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
Afficher la suite 

2 réponses

Messages postés
123
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
17 mai 2011
5
0
Merci
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
Messages postés
123
Date d'inscription
vendredi 5 juin 2009
Statut
Membre
Dernière intervention
17 mai 2011
5
0
Merci
Voila la solution

MaxEquipment = DLookup("Max([IDEQUIPMENT])", "Equipment")
MaxEquipment = MaxEquipment + 1

DoCmd.RunSQL "Insert into ProgToto values ( " & FProgram & ", " & MaxEquipment & ")"