Discussion :

[stargates]

Bonjour,



j'essaie de faire une requete multicritère mais cela me donne une erreur

voici le 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
 
Private Sub Init_List()
Dim Strsql As String
Dim CodeAts As String
 
Me.ListView1.ListItems.Clear
Set Db = CurrentDb
CodeAts = NumCodeAts
DoCmd.Maximize
Me.ListView1.View = lvwReport
 
 
Strsql = "SELECT Article.NumOrdre, NumCodeAts, NbreEnStock, NumEntree, Raison,EntreeStock, Depot, Nom, Date   FROM Article, Entree WHERE Article.NumOrdre = Entree.NumOrdre And NumCodeAts = '" & CodeAts & "';"
Set Rs = Db.OpenRecordset(Strsql)
Rs.MoveFirst
While Not Rs.EOF
Set LaLigne = LaListe.ListItems.Add()
  LaLigne.Text = Rs!NumEntree
    LaLigne.SubItems(1) = Nz(Rs!NumOrdre, "None")
    LaLigne.SubItems(2) = Nz(Rs!NumCodeAts, "None")
    LaLigne.SubItems(3) = Nz(Rs!Raison, "None")
    LaLigne.SubItems(4) = Nz(Rs!EntreeStock, "None")
    LaLigne.SubItems(5) = Nz(Rs!Depot, "None")
    LaLigne.SubItems(6) = Nz(Rs!Nom, "None")
    LaLigne.SubItems(7) = Nz(Rs!NbreEnStock, "None")
    LaLigne.SubItems(8) = Nz(Rs!Date, "None")
    Rs.MoveNext
Wend
Rs.Close
ListView1.SortKey = 0
ListView1.SortOrder = lvwAscending
ListView1.Sorted = True
ListView1.SelectedItem.EnsureVisible
End Sub

il me retourne une erreur de type mismatch
Data type mismatch in criteria expression. (Error 3464)

il me surligne en jaune ceci

Code :

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

1
2
 
Set Rs = Db.OpenRecordset(Strsql)

peut-être une idée merci

[pc75]

Bonjour,

Ton champs NumCodeAts est de quel type ?

[Taoueret]

Vérifie que ta variable Rs est de type DAO.recordset et non pas ADODB.recordset.

Pour l'utiliser comme tu le fais il faut un DAO.recordset

[stargates]

bonsoir,

Pour taouret oui c'est bien Dao.recordset

Code :

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

1
2
3
4
5
6
7
8
9
 
Option Compare Database
Option Explicit
 
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim LaLigne As ListItem
Dim LaListe As Control
Dim i As Integer

pour pc75

numCodeats est de type number

[Didier71]

Bonjour...

Petite remarque : la chaine SQL me parait "bizarre", on dirait que tu fais appel à 2 tables , articles et entrées.. Mais elles ne semblent pas liées, par un
INNER JOIN ou LEFT JOIN ou RIGHT JOIN ???

As tu essayé de la construire avec le requêteur d'Access avant de "recopier" le code SQL dans ta variable ?

SI la chaine SQL est erronée, c'est surement normal qu'il te surligne en jaune le

Code :

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

Set Rs = Db.OpenRecordset(Strsql)

Il ne sait pas interpréter le code SQL...

Bon courage.

Didier71

[stargates]

D'accord didier 71


Mais si tu fais ca ca fonctionne

Code :

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

1
2
 
Strsql = "SELECT Article.NumOrdre, NumCodeAts, NbreEnStock, NumEntree, Raison,EntreeStock, Depot, Nom, Date   FROM Article, Entree WHERE Article.NumOrdre=Entree.NumOrdre ORDER BY NumEntree;"

donc les tables sont bien liée sans inner join, left join, right join

[Pierre Fauconnier]

Bonsoir

Avec un champ numérique, il ne faut pas encadrer la valeur avec des apostrophes

Code :

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

Strsql = "SELECT Article.NumOrdre, NumCodeAts, NbreEnStock, NumEntree, Raison,EntreeStock, Depot, Nom, Date   FROM Article, Entree WHERE Article.NumOrdre = Entree.NumOrdre And NumCodeAts = " & CodeAts

Le ; à la fin n'est pas obligatoire non plus.

[stargates]

ok super merci