Discussion :

[elcondor]

salut à tous,
je travail actuellement sur la réalisation d'une application VB6 et Access(je suis debutant en VB).
SVP dites moi comment faire pour récupérer dans un form les facture qui ont été saisies entre deux date(valeur de deux DTPicker que j'utilise)??
sachant qu'une facture fournisseur s'enregistre dans la BDD dans 2 table différentes :
la table factute_four(N°facture,date_fact,Code_four) et dans le seconde table ligne_facture_four(N°facture,code_article,Quantité,TTC,Code_four)
Donc le champs code_four est le lien entre les deux tables.

Voila le code que j'ai utilisé mais ca marche pas!!

Code :

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

1
2
Set rsfact_four = New ADODB.Recordset 
rsfact_four.Open "Select* from Facture_four where Date_fact between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# and #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#", cn, 1, 2

Code :

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

1
2
Set rsligne_fact_four = New ADODB.Recordset 
rsligne_fact_four.Open " select * from ligne_facture_four where ligne_facture_four.N°facture=Facture_four.N°facture ", cn, 1, 2

Sur le premier Recordset,qui contient la date, je pense que c bon d'appliquer la condition de la date between.
Le probléme me pose surtout sur la condition à appliquer sur le deuxiéme Recordset qui contient la plus part des champs que je cherche à afficher!!

Merci à vous d'avance

[OhMonBato]

Question désormais traditionnelle : tu ne ferais pas du VB.Net ? (Le DateTimePicker me le laisse croire...)

[SfJ5Rpw8]

Je pencherai plutôt pour un problème de requête SQL .. ..?

Je ne suis pas sur que tu ait besoin des deux recordset... pour le second il faut que tu modifie ta requête SQL , que tu y rajoute ta table Facture_four de façon à pouvoir tester la date ..

[elcondor]

Salut,
Personnellement je suis bloqué , et si je savais comment modifier ma requete pour résoudre le probléme je l'aurais fait !!!
Ca serait gentil de votre part d'etre un peu plus clair.
Merci

[OhMonBato]

Ce serait gentil de ta part de nous dire aussi si tu es en VB6 ou VB.Net (même si pour une requête SQL celà ne change rien). Autant être sur le bon forum du premier coup, si tu as d'autres questions par la suite.

[Dung-Tri]

C'est du VB6

Ta 2ème requete peut pas marché. Il peut pas deviner tous seul le n°Facture de ta premier requete. Recupère le n° Facture de la premiere requette et fais comme ta fais avec les datePicker; du genre :

Code :

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

1
2
3
 
Set rsligne_fact_four = New ADODB.Recordset 
rsligne_fact_four.Open "select * from ligne_facture_four where ligne_facture_four.N°facture=" & rsfact_four["N°Facture"],  cn, 1, 2

[elcondor]

Salut,
oui ca marche cette fois ci!!Maij j'ai tousjours un probléme qui pércicte encore c'est celui de l'affichage de donnees récupérees!!
A l'exection je recois l'erreur suivante:

BOF ou EOF est egale à true ou l'enregistrement actuel a été suprimé.L'opération demendée nécesite un enregistrement actuel

J'ai remarqué que cette erreur arrive uniquement sur les champs que j'essaye de récupérer de deuxiéme recodset(rsligne_fact_four.Fields)

Code :

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

1
2
3
4
5
6
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5)

Merci
Le voila le code que j'utilise et merci de me dire les erreursque j'ai comise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
connect 
Set rsfact_four = New ADODB.Recordset 
 
Call rsfact_four.Open("Select * from Facture_four where Date_fact >=#" & DTPicker1.Value & " #AND " & _ 
  "Date_fact <=#" & DTPicker2.Value & "#", cn, 1, 2) 
  If rsfact_four.RecordCount = 0 Then 
 
rsfact_four.MoveFirst 
MsgBox "pas de facture saisie entre ces dates" 
Exit Sub 
End If 
While rsfact_four.EOF = False 
    Set rsligne_fact_four = New ADODB.Recordset 
    rsligne_fact_four.Open " select * from ligne_facture_four where ligne_facture_four.N°facture= " & rsfact_four("N°facture"), cn, 1, 2 
 
   ' MsgBox rsligne_fact_four("N°facture") 
 
    rsfact_four.MoveNext 
Wend 
With g 
  .FixedRows = 1 'ligne en-tete 
  .Rows = 2 ' + une ligne vide 
   i = 1 
rsligne_fact_four.MoveFirst 
rsfact_four.MoveFirst 
Do While Not rsligne_fact_four.EOF 
Do While Not rsfact_four.EOF 
 
'If rsligne_fact_four.Fields(4) = Combo1.Text Then 
i = i + 1 
 
  .Rows = i 'nombre de ligne 
  .Row = i - 1 'ligne courante 
 
  .Col = 0 
.Text = rsfact_four.Fields(1) 
.Col = 1 
.Text = rsfact_four.Fields(0) 
.Col = 2 
.Text = rsfact_four.Fields(2) 
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5) 
'End If 
  rsligne_fact_four.MoveNext 
  rsfact_four.MoveNext 
  g.Refresh 
Loop 
Loop 
End With 
'End If 
J'ai un probléme qui s'afffiche sur 
Col = 3 
.Text = rsligne_fact_four.Fields(3)

Merci

[elcondor]

J'ai oublié de répondre à OhMonBato , c'est du VB6.

[OhMonBato]

Désolé, tu l'avais indiqué dans ton premier message pourtant.

Ca ne fait pas avancer ton code mais c'est tout de même étrange d'avoir créé une table supplémentaire juste pour enregistrer la date de la facture (si j'en crois ton premier post, c'est la seule donnée qui ne soit pas en commun avec la deuxième table). Ce serait plus simple de travailler sur une seule table non ?

[Dung-Tri]

Forcement si tu fait les 2 movenext dans le meme loop

Essai plutot comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Do While Not rsligne_fact_four.EOF 
Do While Not rsfact_four.EOF 
 
'If rsligne_fact_four.Fields(4) = Combo1.Text Then 
i = i + 1 
 
  .Rows = i 'nombre de ligne 
  .Row = i - 1 'ligne courante 
 
  .Col = 0 
.Text = rsfact_four.Fields(1) 
.Col = 1 
.Text = rsfact_four.Fields(0) 
.Col = 2 
.Text = rsfact_four.Fields(2) 
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5) 
'End If 
 
  rsfact_four.MoveNext 
  g.Refresh 
Loop 
   rsligne_fact_four.MoveNext 
Loop

Parcontre ta facon de faire est bizarre que cherche tu as faire?

[Dung-Tri]

Pour que ton Algo puissent mieux marcher je te conseil de d'abord faire un Do While .. Loop sur le recordset des infos d'entete de ta facture puis un autre Do While .. Loop sur les lignes de détail de la facture. Ca sera plus clair plus toi.

[elcondor]

Salut Dung-Tri;
C'est ce que j'ai fait et ca marche!
D'autre part,Je veux affecter la somme des TTC des factures affichées à un textbox. Est ce que tu as une idée comment faire!!!
Merci bcp

[fernier]

tu peux faire tes requetes directement dans access en desing, et transformer le resulat en SQL pour l'integer a ton code.

[Dung-Tri]

Pour la TVA je te conseil de la gérée une table des TVA avec par ex: un ID, un Libelle et un taux, voir avec les comptes rattaché si tu compte gérée la comptabilité.
C'est une méthode standard dans le milieu professionnel.

Puis dans ta requete fait un inner join sur cette table et calcul le taux directement dans le select

ex de requete :

Code :

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

1
2
 
 SELECT lignefact.PrixHorsTaxe * (1 + Tva.Taux / 100) FROM lignefact INNER JOIN Tva ON lignefact.codeTva = Tva.code;

[elcondor]

Salut,
Apparemment je me suis mal exprimé!je reformule ma question:
Dans une grille s'affichent un ensemble de factures(N°FActure,......,TTC),ce que je cherche c'est de récupérer le cumul des TTC des factures affichées et de l'affecter à un Textbox!!!
Merci d'avance

[Dung-Tri]

Pour le cumul ca deviens complexe
Ca fait longtemp... que j'ai vu ca.
Le cumul c'est bien la somme des tva (hors taxe déduite) et ca par code taux de tva. Ce que ta sur les tickets de caisse à la fin.

Cela pourra pas sur faire directement dans la requete.

Faut que tu code une fonction afin des faires un regroupement par code tva

C'est à dire que pour une facture avec du 19,6 et 5.5
tu totalise toutes les tva a 19,6, toutes les tva a 5.5 dans un tableau à partir de ton recordset. c'est a dire : HT * (TauxTVA/100).

[elcondor]

Salut à tous,
je suis en VB6 et Access.
dans le but de récupérer des factures qui concernet un article précis , j'utilise ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim rsfact_four  As ADODB.Recordset
Dim rsligne_fact_four   As ADODB.Recordset
Dim cn As ADODB.Connection
Dim i As Integer
 
    g.FixedRows = 1
    g.Rows = 2
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\Administrateur.INTERNET\Bureau\ma_base.MDB;"
    cn.Open
 
    Set rsligne_fact_four = New ADODB.Recordset
 
   Call rsligne_fact_four.Open("Select * from ligne_facture_four where code_article='" & Combo1.Text & "'", cn, 1, 2)
    If rsligne_fact_four.RecordCount = 0 Then
  MsgBox "pas de facture contenant cet article!!"
Exit Sub
Else
 
   rsligne_fact_four.MoveFirst
 
    While rsligne_fact_four.EOF = False
 
        Set rsfact_four = New ADODB.Recordset
    Call rsfact_four.Open(" select * from Facture_four where Facture_four.N°facture= " & rsligne_fact_four("code_article"), cn, 1, 2)
 
 '********************* l'erreur ce produit ICI **************
        rsfact_four.MoveFirst
 '**********************************************************
 
        While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1

à l'execution je recois l'erreur suivante:

BOF ou EOF est egale à true ou l'eregistrement actuel a été suprimé.L'opération demendée necessite un enregistrement actuel.
L'erreur arrive sur rsfact_four.MoveFirst
SVP dites moi la ou les causes .
Merci

[Coin]

Salut,

Cela veux dire que tu n'a pas d'enregistrement pour ton numéro de facture....

tu devrais mettre :

Code :

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

1
2
3
4
5
6
7
8
9
if not rsfact_four.eof then
rsfact_four.MoveFirst
While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1
            end with
wend
end if

Coin.

[elcondor]

Si si il y'en a des enregistrement pour le numéro de facture cherché!!
j'ai pas bien compris la modification que tu m'a proposé
Voila mon code comple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim rsfact_four  As ADODB.Recordset
Dim rsligne_fact_four   As ADODB.Recordset
Dim cn As ADODB.Connection
Dim i As Integer
 
    g.FixedRows = 1
    g.Rows = 2
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\Administrateur.INTERNET\Bureau\ma_base.MDB;"
    cn.Open
 
    Set rsligne_fact_four = New ADODB.Recordset
 
   Call rsligne_fact_four.Open("Select * from ligne_facture_four where code_article='" & Combo1.Text & "'", cn, 1, 2)
    If rsligne_fact_four.RecordCount = 0 Then
  MsgBox "pas de facture contenant cet article!!"
Exit Sub
Else
 
   rsligne_fact_four.MoveFirst
 
    While rsligne_fact_four.EOF = False
 
        Set rsfact_four = New ADODB.Recordset
    Call rsfact_four.Open(" select * from Facture_four where Facture_four.N°facture= " & rsligne_fact_four("code_article"), cn, 1, 2)
 
 '********************* l'erreur ce produit ICI **************
        rsfact_four.MoveFirst
 '**********************************************************
 
        While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1
    .TextMatrix(i, 0) = rsligne_fact_four.Fields(0)
                .TextMatrix(i, 1) = rsligne_fact_four.Fields(1)
                .TextMatrix(i, 2) = rsfact_four.Fields(1)
                .TextMatrix(i, 3) = rsfact_four.Fields(2)
                .TextMatrix(i, 4) = rsligne_fact_four.Fields(4)
                .TextMatrix(i, 5) = rsligne_fact_four.Fields(5)
            End With
             rsfact_four.MoveNext
        Wend
         rsligne_fact_four.MoveNext
    Wend
    g.Refresh
 
    cn.Close
End If
End Sub

Merci

[Coin]

Est-ce que tu peux rééditer ton post pour mettre le code entre balise (bouton # ). Merci.


tu remplaces

Code :

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

1
2
3
4
 
'********************* l'erreur ce produit ICI **************
rsfact_four.MoveFirst
'**********************************************************

par

Code :

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

1
2
3
4
5
6
7
if not rsfact_four.eof then
     rsfact_four.MoveFirst
     while .......
            .....
            .....
     wend
end if

Explication : Cela fonctionne comme ton while ....EOF = False. : Si tu n'as pas d'enregistrement, tu ne rentres pas dans la boucle (donc tu n'essayeras pas de te positionné sur le 1er enregistrement qui n'existe pas).

coin.