Discussion :

[cslbcg]

Bonjour,

Dans ma base de facturation, j'ai un formulaire de saisie de facture qui inclue 2 sous -formulaires :

• DetailsFacture : contient les infos générales sur les articles
• TarifsSpeciaux : contient des infos particulières sur les articles, propres à certains clients.

Sur le champ PVHT de Détails facture, j'ai inséré le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub PVHT_Enter()
    If Nz(Tbase, 0) = 0 Then
    Me.PVHT = Nz(Me.TL1, 0)
        ElseIf Nz(Tbase, 0) = 2 Then
        Me.PVHT = Nz(Me.TL2, 0)
            ElseIf Nz(Tbase, 0) = 3 Then
            Me.PVHT = Nz(Me.TsPlace, 0)
End If
End Sub

ça fonctionne très bien mais je voudrais ajouter un If au début, pour transformer le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub PVHT_Enter()
    If Me.Tarifs_spéciaux = -1 Then
    Me.PVHT = Me.PU_SPE
        ElseIf Nz(Tbase, 0) = 0 Then
        Me.PVHT = Nz(Me.TL1, 0)
            ElseIf Nz(Tbase, 0) = 2 Then
            Me.PVHT = Nz(Me.TL2, 0)
                ElseIf Nz(Tbase, 0) = 3 Then
                Me.PVHT = Nz(Me.TsPlace, 0)
End If
End Sub

Le problème se situe au niveau de PU_SPE :
ce champ ne se trouve pas dans le sous-formulaire DétailsFacture mais dans TarifsSpeciaux ; comment faire pour récupérer sa valeur ?

Merci d'avance de votre aide

Catherine

[Invité]

Bonjour

Pour lire des infos dans un sous-formulaire, tout est dans ce tuto : http://loufab.developpez.com/tutorie...pelformulaire/

Philippe

[cslbcg]

Merci de ta réponse ; j'avais déjà regardé un peu mais pas au bon endroit !

J'ai modifié mon code mais ça ne marche toujours pas

Voilà le code modifié :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub PVHT_Enter()
    If Me.Tarifs_spéciaux = -1 Then
    Me.PVHT = Forms.Frm_FactureEntete.SsFrm_TarSpe.Form.PU_SPE
      ElseIf Nz(Tbase, 0) = 0 Then
        Me.PVHT = Nz(Me.TL1, 0)
            ElseIf Nz(Tbase, 0) = 2 Then
            Me.PVHT = Nz(Me.TL2, 0)
                ElseIf Nz(Tbase, 0) = 3 Then
                Me.PVHT = Nz(Me.TsPlace, 0)
End If
End Sub

Le code est sur le champ PVHT du sous-formulaire Frm_FactureDetails.
Le formulaire Frm_FactureEntete est le formulaire principal contenant également le sous-formulaire SsFrm_TarSpe.
SsFrm_TarSpe n'est pas un sous-formulaire de Frm_FactureDetails.

Merci d'avance de vos lumières, je suis inculte en VBA !

[User]

Salut,

Essaie avec cela:

Code :

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

Me.PVHT=Forms!Frm_FactureEntete!SsFrm_TarSpe.Form!PU_SPE

Vérifie bien le nom de tous tes objets:
Frm_FactureEntete
SsFrm_TarSpe
PU_SPE

et donnes nous le message d'erreur

A+

[cslbcg]

Salut,

Essaie avec cela:

Code :

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

Me.PVHT=Forms!Frm_FactureEntete!SsFrm_TarSpe.Form!PU_SPE

Vérifie bien le nom de tous tes objets:
Frm_FactureEntete
SsFrm_TarSpe
PU_SPE

et donnes nous le message d'erreur

A+

Alors...
ça marche, mais pas comme il faudrait

En fait, le problème, c'est que ça renvoie le même tarif pour tous les produits, quel que soit le code article.

Tous les produits facturés se retrouvent avec le tarif du 1er produit de la liste des tarifs spéciaux, quel que soit le produit facturé.

ça vient peut-être de la structure de mes tables ?

Je joins une version simplifiée de ma base, si ça peut aider !

Merci d'avance

Catherine

[User]

Je ne peux lire ta base, je suis sous Access 2003 .

Peux-tu faire une copie d'écran de ton formulaire et nous expliquer le problème...

[cslbcg]

Je ne peux lire ta base, je suis sous Access 2003 .

Peux-tu faire une copie d'écran de ton formulaire et nous expliquer le problème...

Bonjour,

J'ai fait une copie de ma base en format 2000 et une copie d'écran.

La saisie des données de facturation se fait dans le sous-formulaire du bas et les tarifs spéciaux (dans la fenêtre au dessus à droite, en jaune) sont à extraire d'un autre sous-formulaire, indépendant de celui du détails de la facturation, mais lié à l'entête.

Le souci c'est que la valeur de tarif spécial extraite est le 1ère de la liste, quel que soit le code article saisi !

Je ne sais pas si je suis claire je me prends tellement la tête avec ça !

Merci d'avance de votre aide

Catherine

[rjamin]

Bonjour,

Il faudrait créer un RecordSet avec les données du ssFormulaire Tarif spéciaux
pour pouvoir atteindre l'enregistrement correspondant au Code_article du sous formulaire détail facture comme cela on aurait le prix de l'article en question.

[cslbcg]

Bonjour,

Il faudrait créer un RecordSet avec les données du ssFormulaire Tarif spéciaux
pour pouvoir atteindre l'enregistrement correspondant au Code_article du sous formulaire détail facture comme cela on aurait le prix de l'article en question.

Alors ça, je ne sais pas faire

Quelle est la procédure ?

[User]

Salut,

Tu peux utiliser la méthode proposé par rjamin...

Mais si tu ne connais pas trop le VBA et DAO je te conseille plutôt la fonction de domaine DLookup

Ton code deviendrai:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub PVHT_Enter()
    If Me.Tarifs_spéciaux = -1 Then
    'Me.PVHT = Forms!Frm_FactureEntete!SsFrm_TarSpe.Form!PU_SPE
    Me.PVHT = Nz(DLookup("PU_SPE", "[Tarifs Speciaux]", "[Code_du_client]='" & Nz(Me.Parent!Code_client, "") & "' and [Code_article]='" & Nz(Me!Code_article, "") & "'"), 0)
        ElseIf Nz(Tarif_base, 0) = 0 Then
        Me.PVHT = Nz(Me.Tarif_livraison_1, 0)
            ElseIf Nz(Tarif_base, 0) = 2 Then
            Me.PVHT = Nz(Me.Tarif_livraison_2, 0)
                ElseIf Nz(Tarif_base, 0) = 3 Then
                Me.PVHT = Nz(Me.Tarif_sur_place, 0)
End If
End Sub

Me.PVHT est égal à zéro si il ne trouve pas de code article correspondant...

J'ai vu ta base: bon courage, à première vue c'est pas évident à mettre en place

[cslbcg]

Salut,

Tu peux utiliser la méthode proposé par rjamin...

Mais si tu ne connais pas trop le VBA et DAO je te conseille plutôt la fonction de domaine DLookup

Ton code deviendrai:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub PVHT_Enter()
    If Me.Tarifs_spéciaux = -1 Then
    'Me.PVHT = Forms!Frm_FactureEntete!SsFrm_TarSpe.Form!PU_SPE
    Me.PVHT = Nz(DLookup("PU_SPE", "[Tarifs Speciaux]", "[Code_du_client]='" & Nz(Me.Parent!Code_client, "") & "' and [Code_article]='" & Nz(Me!Code_article, "") & "'"), 0)
        ElseIf Nz(Tarif_base, 0) = 0 Then
        Me.PVHT = Nz(Me.Tarif_livraison_1, 0)
            ElseIf Nz(Tarif_base, 0) = 2 Then
            Me.PVHT = Nz(Me.Tarif_livraison_2, 0)
                ElseIf Nz(Tarif_base, 0) = 3 Then
                Me.PVHT = Nz(Me.Tarif_sur_place, 0)
End If
End Sub

Me.PVHT est égal à zéro si il ne trouve pas de code article correspondant...

J'ai vu ta base: bon courage, à première vue c'est pas évident à mettre en place

Bonsoir et Merci pour ce code,

C'est bien mais le fait que Me.PVHT soit égal à zéro pour les tarifs courants me pose problème ; enfin, ça posera problème à mon client !

C'est vrai que ce n'est pas simple : mon client avait une base Windev et un petit logiciel de compta dont il n'utilisait qu'une partie, je dois remplacer les 2 !
C'est mon 1er client et je n'avais pas anticipé toutes ces difficultés

Enfin, j'arrive à m'en sortir, en particulier grâce à ce forum et vous tous, j'en apprends tous les jours.

Concernant la méthode proposé par rjamin, je crois que j'ai compris comment créer le RecordSet mais j'en fait quoi, une fois créé, je le mets où ?



D'avance merci,

Catherine

[User]

Salut,

Pour mon code tu peux remplacer 0 par null

Sinon pour le recordSet:

tu peux regarder ce tuto

Une fois que tu as crée ton recordSet (RecSet) à partir du sql et de la condition que je t'ai donné, tu vérifies s'il est vide, si non alors tu affectes la valeur :

Code :

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

1
2
3
 if Not(RecSet.eof) Then
      Me.PVHT = RecSet!PU_SPE   
   end if