Discussion :

[moilou2]

Bonjour, je travail sur ACCESS 2003, et dans une table, j'ai eu recours à l'utilisation de check box.

Mon problème est que quand j'affiche le résulat de cette table dans une zonne de liste à l'aide d'une requete, le resultat du "case coché" ou "case décoché", se traduit dans ma zonne de liste en "1" "-1".

Si quelqu'un sait comment faire?

Merci

[Chtulus]

En effet, une checkbox renvoi en fait oui ou non.

Que veux tu voir apparaitre. Si tu code ta liste ou directement dans ta requête avec un CASE

[moilou2]

Bonjour, eh bien je souhaiterais voir apparaître un oui ou un non, ou une case cochée!!!

Pour le momment j'ai un "1" et un "-1"

Voila merci

[Chtulus]

Alors c'est pas très esthétique mais dans ta requête utilise le CASE

[micniv]

Salut,
dans ta requete au lieu d'afficher CheckBox ,
tu mets IIF(Checbox=-1;"oui";"non")

[moilou2]

Dans ma requête sql de mon refreshquery, j'ai actuelement:

Code :

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

sql = "SELECT tbl_Référence.ID_Référence, tbl_Référence.CmdeAuto as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0

Il faut que je remplace ladedans par:

Code :

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

IIF(Checbox=-1;"oui";"non")

Merci

[micniv]

Mais quel est ton champ booléen dans ta requete ?

si , par exemple, c'est cmdeAuto alors tu mets :

Code :

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

sql = "SELECT tbl_Référence.ID_Référence, IIF(tbl_Référence.CmdeAuto =-1;"oui";"non")  as [Cmde Auto], ...

A+

[marot_r]

Je conseille de faire le test avec =True ou =False plutôt que =-1 ou =0 car c'est beaucoup plus parlant.

A+

[moilou2]

Re, je suis d'accord mais je met sa ou????

[moilou2]

Re, j'ai essayé ça:

Code :

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

sql = "SELECT tbl_Référence.ID_Référence,IIF(tbl_Référence.CmdeAuto =-1;"oui";"non") as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0"

et sa

Code :

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

sql = "SELECT tbl_Référence.ID_Référence, IIF(tbl_Référence.CmdeAuto =True;"oui";"non") as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0"

Et sa me met:

Erreur de compilation
Attendu : Fin d'instruction

Si quelqu'un sait?

[moilou2]

Bon ba je ne vois pas j'ai regardé, mais je ne voit pas pourquoi est ce qu'il me demande sa, est ce que

Code :

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

IIF(tbl_Référence.CmdeAuto =-1;"oui";"non")

ou même

Code :

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

IIF(tbl_Référence.CmdeAuto =True;"oui";"non")

N'est pas correcte?

Si quelqu'un a déja rencontré ce problème? Merci

[marot_r]

dans un chaîne de caractère, il faut doubler les " ou les remplacer par des '

La syntaxe devrait être

Code sql :

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

1
2
 
sql = "SELECT tbl_Référence.ID_Référence,IIF(tbl_Référence.CmdeAuto =true;""oui"";""non"") as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0"et sa

[moilou2]

Re, bon cette fois il accepte le code, mais j'ai une erreur, qui survient lors du chargement du formulaire:

Erreur de syntaxe dans la clause FROM

Voici le code de mon refreshQuery: J'ai mis en rouge ou sa plante

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
Public Sub RefreshQuery()
Dim sql, sqlCompteur As String
Dim SQLWhere As String

Dim oRst As DAO.Recordset
Dim odb As DAO.Database
Set odb = CurrentDb

sql = "SELECT tbl_Référence.ID_Référence, IIF(tbl_Référence.CmdeAuto =true;""oui"";""non"") as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0"

If Not IsNull(Me.cmbRechLigne) Then
    sql = sql & " and tbl_Machines.Id_Ligne =  " & Me.cmbRechLigne & " "
End If

If Me.cmbRechMachine <> "" Then
    sql = sql & " and tbl_Nomenclature.ID_Machine = " & Me.cmbRechMachine & " "
End If

If Me.cmdRechCat <> "" Then
    sql = sql & " and tbl_Désignation.ID_Catégorie =  " & Me.cmdRechCat & "  "
End If

sqlCompteur = "select count(*) from (" & sql & ");"
Set oRst = odb.OpenRecordset(sqlCompteur, dbOpenDynaset)

Me.txtNombreLigneCritéres.Caption = oRst.Fields(0).Value

sqlCompteur = "select count(*) from( select * from tbl_Intervention);"
Set oRst = odb.OpenRecordset(sqlCompteur, dbOpenDynaset)
Me.txtNombreLignetotal.Caption = oRst.Fields(0).Value

SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))

sql = sql & ";"

Me.lstResults.RowSource = sql
Me.lstResults.Requery

End Sub

[moilou2]

Bonjour à tous, je n'ai toujours pas de réponse pour mon problème.

Je fait donc un bilan. J'ain une zonne de liste qui devrait normalement afficher des checkBox, car c'est comme sa dans la table. A la place des checkBox, j'ai des -1;0, qui simule une case cochée ou non.

Pour palier à ce problème, j'ai donc remplacé dans mon refresh query, ma variable:

Code :

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

tbl_Référence.CmdeAuto

par

Code :

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

IIF(tbl_Référence.CmdeAuto =true;""oui"";""non"")

Mais quand je charge mon formulaire la zone de liste ne fonctionne plus, si quelqu'un peut m'aider...

Voila le code de mon refreshQuery

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
Public Sub RefreshQuery()
Dim sql, sqlCompteur As String
Dim SQLWhere As String
 
Dim oRst As DAO.Recordset
Dim odb As DAO.Database
Set odb = CurrentDb
 
sql = "SELECT tbl_Référence.ID_Référence, IIF(tbl_Référence.CmdeAuto =true;""oui"";""non"") as [Cmde Auto], tbl_Désignation.Désignation, tbl_Référence.Référence, tbl_Référence.StockActuel as [Stock Actuel], tbl_Marques.Marque, tbl_Lignes.Designation as [Ligne de production],tbl_Machines.Designation as [Machine],  tbl_Lignes.Id_Ligne, tbl_Machines.Id_Machine, tbl_Désignation.ID_Désignation, tbl_Marques.ID_Marque FROM (tbl_Désignation INNER JOIN (tbl_Marques INNER JOIN tbl_Référence ON tbl_Marques.[ID_Marque] = tbl_Référence.[ID_Marque]) ON tbl_Désignation.[ID_Désignation] = tbl_Référence.[ID_Désignation]) INNER JOIN ((tbl_Lignes INNER JOIN tbl_Machines ON tbl_Lignes.[Id_Ligne] = tbl_Machines.[Id_Ligne]) INNER JOIN tbl_Nomenclature ON tbl_Machines.Id_Machine = tbl_Nomenclature.ID_Machine) ON tbl_Référence.ID_Référence = tbl_Nomenclature.ID_Référence WHERE tbl_Référence.ID_Référence<>0"
 
If Not IsNull(Me.cmbRechLigne) Then
    sql = sql & " and tbl_Machines.Id_Ligne =  " & Me.cmbRechLigne & " "
End If
 
If Me.cmbRechMachine <> "" Then
    sql = sql & " and tbl_Nomenclature.ID_Machine = " & Me.cmbRechMachine & " "
End If
 
If Me.cmdRechCat <> "" Then
    sql = sql & " and tbl_Désignation.ID_Catégorie =  " & Me.cmdRechCat & "  "
End If
 
 
SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
 
sql = sql & ";"
 
Me.lstResults.RowSource = sql
Me.lstResults.Requery
 
End Sub

[marot_r]

Une petite attrape de Access.

Dans le QBE, il faut taper ";" mais en interne il utilise "," donc dans ton code il faut mettre

Code :

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

IIF(tbl_Référence.CmdeAuto =true,""oui"",""non"")

.

A+

[moilou2]

Sa marche merci beaucoup pour ton aide!