[VBA - Access] récuperer une valeur

blanblan -  
 blanblan -
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

  1. blanblan
     
    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