[VBA-A] probleme de requette

Version imprimable

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:

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

17/05/2006, 05h41
AlainTech

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 :resolu: 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.

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

Code:

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

17/05/2006, 09h50
lumbroso

probleme de requette

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
17/05/2006, 09h54
SfJ5Rpw8

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:

[Fiche d'identité client]![Nom]<> 0
17/05/2006, 10h02
khany

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 !
17/05/2006, 15h12
lumbroso

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

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
17/05/2006, 20h42
AlainTech

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.
17/05/2006, 23h57
lumbroso

probleme de requette

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?
18/05/2006, 07h37
AlainTech

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.
18/05/2006, 15h33
lumbroso

probleme de requtte
alain j'ai toujour le meme proble concernant
Code:

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?
18/05/2006, 20h23
AlainTech

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

Citation:

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.
18/05/2006, 23h26
lumbroso

probleme de requette

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
19/05/2006, 00h29
AlainTech

Citation:

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.
21/05/2006, 07h45
lumbroso

[vba - a]

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
21/05/2006, 09h04
jmfmarques
Je suis comme Alain : je ne sais pas ce que fait Dcount :cry:
Je m'interroge toutefois sur la raison pour laquelle il utilise 3 arguments là et 2 ailleurs. Est-ce normal ?
Code:

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 ?

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

Code:

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:

"[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:

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

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:

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

Citation:

Envoyé par lumbroso

type d'erreur impatible

Ne ressemble pas vraiment à

Citation:

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.

22/05/2006, 08h57
lumbroso

[vab - a] probleme de requette

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