Discussion :

[benjiprog]

Bonjour, j'ai petit problème je voudrais pouvoir prendre la valeur qui se trouve dans une cellule qui se trouve dans un tableau de mon formulaire. Je repère la cellule grâce a trois champs d'une ligne j'ai fait :

Code :

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

1
2
3
4
 
If ((Salle_embarquement = "2F1") And (Faisceau_tarifaire = "DOM TOM") And (Unité = "Pax")) Then
    tot = tot + Jan.Text
End If

tot étant une variable long et Jan.text est la cellule dont je veux recupérer la valeur seulement je voudrais la recupérer sans faire de if, mais j'ai pas trouvé la fonction VBA Access qui permet de se "placer" dans une cellule qui est dans un tableau et de prendre la valeur.
Merci d'avance.

[bruno28]

Parle en Access stp.
Une cellule, c'est sous Excel
Si tu parles d'une zone de texte, c'est Me.nomZoneDeTexte.Value

[benjiprog]

Oui, désolé mais je jongle entre access et excel donc desfois je me trompe. En fait le problème c'est que ma zone de texte fait partie d'un tableau et je cherche a recupérer une valeur précise dans une colone. Le nom de ma zone de texte est Jan mais dans toute la colone, donc je me repère à la ligne par 3 champs : Salle_embarquement, Faisceau_tarifaire, Unité et je me demandais comment pouvoir appliquer cette fonction afin de pouvoir intégrer les caractèristiques de la ligne comme dans mon code avec le if mais appliquer a la fonction Me.zonedeliste.value.
Merci.

[bruno28]

En fait le problème c'est que ma zone de texte fait partie d'un tableau et je cherche a recupérer une valeur précise dans une colone. Merci.

En Access courant, ça veut dire quoi??

[benjiprog]

Ca veut dire que j'ai un formulaire et que j'ai une multitude de zone de texte qui forment un tableau, ma 1ère colone du tableau s'appèle Jan et donc dans cette colone je voudrais recupérer une valeur qui se trouve dans une zone de texte de cette colone donc étant donné que dans ma colone j'ai plusieurs zone de texte je me repère par rapport a la ligne pour localiser la zone de texte dont je veux récupérer la valeur.
Ca ressemblerais a :

Code :

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

1
2
 
Me.nomZoneDeTexte[ligne].Value

La ligne est repérer par 3 champs texte.
J'éspère avoir été clair.

[bruno28]

C bien compliqué ton affaire. Si tu as besoin d'un tableau, pourquoi ne pas utiliser un listView??

[benjiprog]

En fait je veux juste pouvoir me repérer grâce a une ligne, imaginons qu'il y a 9 zones de textes formant un tableau de 3 lignes et 3 colones comment pourrais-je faire pour prendre la valeur de la zone de texte du milieu (ligne 2 colone 2) sachant que les noms de colones et de ligne sont des chaine de caractère?

[benjiprog]

La condition de recherche sur ma ligne est :
((Salle_embarquement = "2F1") And (Faisceau_tarifaire = "DOM TOM") And (Unité = "Pax")) (car il y a 3 champs texte)
et ma colone est Jan le problème c'est que j'aimerais recherché le contenu de ma zone de texte a la colone Jan (la pas de problème) ET sur la ligne ((Salle_embarquement = "2F1") And (Faisceau_tarifaire = "DOM TOM") And (Unité = "Pax")) et je n'ai pas trouver de fonction pouvant me faire cela donc je suis perdu.
Merci d'avance.

[benjiprog]

J'ai trouver une solution pour l'addition en colonne la fonction SomDOm le problème c'est qu'il ne marche pas apparement pour uen erreur de syntaxe mais je vois vraiment pas laquelle :

Code :

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

1
2
3
4
5
6
 
Dim tot As Long
tot = 0
 
tot = SomDom ("[Jan]"; "Liaison";"[Salle_embarquement]= " & 2F1 &_
    " AND [Faisceau_tarifaire]= " & DOM TOM)

Jan est ma colonne, liaison ma table lié a mon formulaire et salle_embarquement et faisceau_tarifaire mes 2 champs sur lesquelles je base mon critère.

[Invité]

Bonjour

Tu fais des recherches sur du texte, il faut mettre des quotes, essaye ceci pour voir

Code :

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

1
2
3
4
5
Dim tot As Long
tot = 0
 
tot = SomDom ("[Jan]"; "Liaison";"[Salle_embarquement]= '" & 2F1 &_
    "' AND [Faisceau_tarifaire]= '" & DOM TOM & "'")

De plus

Code :

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

tot = 0

est inutile, car la variable de type long est initialisée à 0 à la déclaration.

Starec

[benjiprog]

Non ca ne marche pas non plus, mais en fait mon problème à la base c'est de pouvoir prendre une valeur dans une zone de texte que j'identifie grâce a ses coordonnées (ligne et colonne). J'ai fait un formulaire lié a une table en utilisant l'assistant formulaire et la representation tabulaire. Et j'aimerais pouvoir prendre la valeur d'une zone de texte dans le tableau et je pourrais la reperer grace au libelle de sa colonne et par un N°index pour la ligne seulement je ne connais pas la fonction me permettant d'effectuer une telle recherche.
Merci.

[Invité]

Re

Pour mieux comprendre (pour moi et les autres car je pars bientôt), peux-tu répondre à ces questions :

1 - Ton formulaire est-il lié à une source (table ou requête), ou est-il indépendant ?
2 - Comment as-tu nommé tes contrôles pour les repérer dans ta grille ?
3 -Peux-tu nous mettre une copie d'écran pour mieux voir.

Merci

Starec

[benjiprog]

Mon formulaire est lié a une table.

Voilà, bon je n'ai pas encore fait les mises en formes. Voilà donc j'aimerais par exemple additionner le 6 et le 5 (photo) et mettre le resultat dans une autre zone de texte mais impossible de trouver une fonction pouvant aller prendre les valeurs dans les zones de texte par exemple aller prendre le 6 et le 5.
J'ai fait un formulaire instantané tableau sur une de mes tables voilà. Merci.

[benjiprog]

On m'a dit de résoudre ce problème par des requête SQl donc c'est ce que j'ai fait il me reste juste un petit problème :

Code :

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

1
2
3
4
 
Dim SQL As String
 
SQL = "select sum(Jan) from Liaison where Index=17 and Index=22;"

Le problème c'est qu'il me renvoie la requête mais pas le resultat de la requête que faut-il faire?
Merci d'avance.