[VBA-A] probleme de requette

**lumbroso** · 17/05/2006, 00h49

bonsoir a tous j'ai realiser un formulaire de recherche et ca ne marche pas voici le code que j'ai tappe y aurai t il une personne qui pourrai me dire ou est l'erreur? merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT [Fiche d'identité client].[Nom], [Fiche d'identité client].[Prenom], [Fiche d'identité client].[Date de naissance], [Fiche d'identité client].[Réference client], [intervention].[Numéro dossier] FROM intervention INNER JOIN [Fiche d'identité client] ON [intervention].[Réference client]=[Fiche d'identité client].[Réference client] Where [Fiche d'identité client]![Nom]<> 0 "
SQL = SQL & "And [fiche d'identité client]!Nom like '*" & Me.txtRechnom & "*' "
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & " / " & DCount("*", "[Fiche d'identité client]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub

**AlainTech** · 17/05/2006, 05h41

Commence par clôturer tes discussions précédentes:

http://www.developpez.net/forums/sho...d.php?t=124711

http://www.developpez.net/forums/sho...d.php?t=146826

http://www.developpez.net/forums/sho...d.php?t=148161

Résolues ou pas?
Les conseils t'ont-ils aidé?

Si oui, un petit merci ne fait pas de mal... Et pense au bouton

en bas de page.

Ensuite, mets un tag [VBA-A] dans le titre de cette discussion-ci.

Après tout ça, on pourra commencer à t'aider.

**AlainTech** · 17/05/2006, 05h48

Pour éviter d'avoir une ligne kilométrique, tu peux formater ton code comme ceci:

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = ""
SQL = SQL & "SELECT [Fiche d'identité client].[Nom],"
SQL = SQL & "  [Fiche d'identité client].[Prenom],"
SQL = SQL & "  [Fiche d'identité client].[Date de naissance],"
SQL = SQL & "  [Fiche d'identité client].[Réference client],"
SQL = SQL & "  [intervention].[Numéro dossier] "
SQL = SQL & "FROM intervention "
SQL = SQL & "INNER JOIN [Fiche d'identité client] "
SQL = SQL & "ON [intervention].[Réference client]=[Fiche d'identité client].[Réference client] "
SQL = SQL & "WHERE [Fiche d'identité client]![Nom]<> 0 "
SQL = SQL & "AND [fiche d'identité client]!Nom like '*" & Me.txtRechnom & "*' "
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub

**lumbroso** · 17/05/2006, 09h50

bonjour a tous et je vous remerci des reponces auquel vous m'avez aider mais si je n'ai pas donner aucun signe c parceque je n'ai toujours pas trouver la solution.

en tout cas merci

est ce que vous pourriez m'aider à repondre à la question popssé precedament

**SfJ5Rpw8** · 17/05/2006, 09h54

c'est quoi ton message d'erreur ? ton probléme ? ...

as-tu essayé avec une requête plus simple ... voir si ton probléme viens de ta requête ou d'autre chose ...

cela me semble bizarre :

Code :

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

 [Fiche d'identité client]![Nom]<> 0

**khany** · 17/05/2006, 10h02

Bonjour !

Nous voulons tous bien te répondre mais, relis le message de AlainTech, réalise ce qu'il demande afin que tes messages soient lisibles correctement et taggé de la bonne technologie !

Ce n'est pas une punition, juste le fait de se conformer aux règles d'un forum agréable à parcourir pour tous !

Ensuite, tu auras tout l'aide que tu désires

Merci !

**lumbroso** · 17/05/2006, 15h12

bonjour
en essayant de faire comme ma dit AlainTech le message d'erreur 3464 soit type d'erreur impatible sur la ligne:

Code :

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

1
2
3
 
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")

a part ca la recherche via mon champ texte ne ce fait pas merci

**AlainTech** · 17/05/2006, 20h42

Jusqu'à présent, je n'ai rien dit. A part mettre ton code en forme pour qu'il ait meilleure allure.

Par contre, je t'ai demandé de répondre dans tes discussions précédente avant d'en ouvrir une nouvelle.

Un forum est un lieu d'échange et la moindre des choses est de répondre à ceux qui essayent de t'aider. Même si les réponses ne fonctionnent pas ou ne correspondent pas à ton attente.

**lumbroso** · 17/05/2006, 23h57

bonsoir

merci AlainTech de m'avoir de quelque facon car j'ai repondu aux discutions dont on ma a donne des sol.
je pense avoir compris le message

je demande encore une aide si possible concernant mon problème peut tu m'aider stp alain?

**AlainTech** · 18/05/2006, 07h37

Je ne connais pas la fonction DCount et n'ai plus le temps de chercher maintenant. Je ne sais donc pas si la syntaxe est correcte.
Comme tu n'as pas mis de tag dans ton titre, je ne sais pas dans quel environnement tu travailles. Je "devine" que c'est en VBA Access...
Si c'est le cas, le tag approprié est [VBA-A].
Merci de le mettre pour ceux qui essayent de t'aider.

**lumbroso** · 18/05/2006, 15h33

alain j'ai toujour le meme proble concernant

Code :

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

1
2
3
 
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")

est ce que je pourrai t'envoyer le form avec les donnes de la base pour que tu es une idee plus presise de mon problème?

**AlainTech** · 18/05/2006, 20h23

Je veux bien que tu m'envoies ton formulaire mais pas avant que tu fasses ce que je t'ai demandé.

Envoyé par AlainTech

Comme tu n'as pas mis de tag dans ton titre, je ne sais pas dans quel environnement tu travailles. Je "devine" que c'est en VBA Access...
Si c'est le cas, le tag approprié est [VBA-A].
Merci de le mettre pour ceux qui essayent de t'aider.

Il est vraiment pénible de travailler en aveugle et à la devinette.

**lumbroso** · 18/05/2006, 23h26

bonsoir
alain je veux bien mettre un tag mais comment faire?
en ce qui concerne le langae c' du vba access por le formulaire ou est ce que je peux te l'envoyer? merci de ton aide

**AlainTech** · 19/05/2006, 00h29

Envoyé par lumbroso

alain je veux bien mettre un tag mais comment faire?

C'est pourtant pas compliqué.
Tu édites (bouton "Editer") le premier message de la discussion et tu tapes [VBA-A] devant ton titre.

Edit --> Par contre, c'est encore plus simple si on le fait dès le départ.

**lumbroso** · 21/05/2006, 07h45

salut
ce message est adresse a alain tech je n'est toujour pas eu de reponse te ta par est ce normal merci de me repondre

**jmfmarques** · 21/05/2006, 09h04

Je suis comme Alain : je ne sais pas ce que fait Dcount

Je m'interroge toutefois sur la raison pour laquelle il utilise 3 arguments là et 2 ailleurs. Est-ce normal ?

Code :

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

1
2
3
 
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")

Quel est le résultat attendu par Dcount et quel est son type ?

**SfJ5Rpw8** · 21/05/2006, 10h04

tiens j'ai voila un peu de code à tester ...:

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
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = ""
SQL = SQL & "SELECT [Fiche d'identité client].[Nom],"
SQL = SQL & "  [Fiche d'identité client].[Prenom],"
SQL = SQL & "  [Fiche d'identité client].[Date de naissance],"
SQL = SQL & "  [Fiche d'identité client].[Réference client],"
SQL = SQL & "  [intervention].[Numéro dossier] "
SQL = SQL & "FROM intervention "
SQL = SQL & "INNER JOIN [Fiche d'identité client] "
SQL = SQL & "ON [intervention].[Réference client]=[Fiche d'identité client].[Réference client] "
SQL = SQL & "WHERE "
SQLWhere = "[Fiche d'identité client]![Nom]<> 0 "
SQLWhere = SQLWhere & "AND [fiche d'identité client]!Nom like '*" & Me.txtRechnom & "*' "
SQL = SQL & SQLWhere & ";"
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub

par contre je n'ai pas access (ni ta base...) mais comme je te l'ai écris... il y as quelques jours... cela

Code :

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

"[Fiche d'identité client]![Nom]<> 0 "

me laisse perplexe (comparer une chaine avec un nombre ?) ...
au cas ou essai de remplacer les 2 lignes SQLWhere ... par :

Code :

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

 SQLWhere = "[fiche d'identité client]!Nom like '*" & Me.txtRechnom & "*' "

**AlainTech** · 22/05/2006, 03h19

Une petite insomnie m'a permis d'analyser ton code plus tôt que prévu.
Je rejoins bbil dans ses conclusions.
Voici le code corrigé (avant d'avoir vu le sien).
A toi de choisir celui qui te convient le mieux.

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQLWhere = ""
SQLWhere = SQLWhere & "[Fiche d'identité client].[Nom]<> '' "
SQLWhere = SQLWhere & "AND [fiche d'identité client].Nom like '*" & Me.txtRechnom & "*' "
 
SQL = ""
SQL = SQL & "SELECT [Fiche d'identité client].[Nom],"
SQL = SQL & "  [Fiche d'identité client].[Prenom],"
SQL = SQL & "  [Fiche d'identité client].[Date de naissance],"
SQL = SQL & "  [Fiche d'identité client].[Réference client],"
SQL = SQL & "  [intervention].[Numéro dossier] "
SQL = SQL & "FROM intervention "
SQL = SQL & "INNER JOIN [Fiche d'identité client] "
SQL = SQL & "ON [intervention].[Réference client]=[Fiche d'identité client].[Réference client] "
SQL = SQL & "WHERE " & SQLWhere
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "[Fiche d'identité client]", SQLWhere) & _
                      " / " & DCount("*", "[Fiche d'identité client]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

C'était effectivement la comparaison de [Fiche d'identité client].[Nom] avec 0 qui posait problème.
Le message d'erreur aurait dû te mettre sur la voie.
A ce sujet, tu admettras que

Envoyé par lumbroso

type d'erreur impatible

Ne ressemble pas vraiment à

Type de données incompatible dans l'expression du critère

J'espère que tu peux comprendre que si tu ne nous donnes pas toutes les informations, nous sommes obligés de "jouer aux devinettes" et que cela fait perdre du temps à tout le monde.

**lumbroso** · 22/05/2006, 08h57

je remerie tout le monde car grace à votre aide j'ai pu un petit peut avancer merci encore

[VBA-A] probleme de requette

VBA Access

Discussions similaires

Partager

Partager