[VBA - Access] récuperer une valeur

Fermé
blanblan - Modifié par blanblan le 7/06/2010 à 12:52
 blanblan - 7 juin 2010 à 16:22
Bonjour,

J'ai une table (oph) contenant 3 colonnes : famille, oph1 (%), oph2 (€).
La famille possède soit un oph1 soit un oph2.
Dans un formulaire (produit) j'ai un champ liste de choix, servant à affecter une famille à un produit basé sur cette table. Dans cette liste de choix j'ai intègré en plus de la famille les colonnes oph1 et oph2 de facon a ce qu'il ne soit pas visible dans la liste de choix (0cm).
Après avoir créer mon produit je valide et passe sur un autre formulaire (calc_produit) ou j'ai une case à cocher (ligprd_lmp) qui permet de dire si je fait ou pas l'action et j'ai un champ (cvert), ou ce champ doit prendre la valeur de oph correspondant, pour cela j'ai fait :

Private Sub cvert_Click()

If VraiFaux(ligprd_lmp) = False Then
ligprd_cvert = ([Form_produit]![prd_fmle].Column(1))
Else
If ([Form_eto_produit]![prd_fmle].Column(1)) = Null Then
ligprd_cvert = ([Form_produit]![prd_fmle].Column(2))
Else
ligprd_cvert = IsNull
End If
End If

End Sub


Mais mon problème c'est que je ne récupère ni l'un ni l'autre.
Donc comment procéder, tel est ma question ?

Indication : quand la famille à un oph en % elle n'en a pas en euro et vis-versa.

Merci pour l'aide que vous pourrez m'apporter.

1 réponse

Re,

J'ai modifié mon code précédent par celui-ci :

Private Sub ligprd_cvert_Click()

If (ligprd_lmp) = False Then
ligprd_cvert = ([Form_eto_produit]![prd_fmle].Column(1))
Else
If ([Form_eto_produit]![prd_fmle].Column(1)) = Null Then
ligprd_cvert = ([Form_eto_produit]![prd_fmle].Column(2))
Else
ligprd_cvert = ""
End If
End If

End Sub

Cette fois je récupère bien l'oph1 (%) mais quant à l'oph2 et bien cela ne me retourne aucune valeur.
Merci pour votre aide.
0