Discussion :

[lumbroso]

salu a tous
voila le code que j'ai mis et il y a une erreur pouvez vous m'aider a la corriger

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
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 DISTINCT [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]")
lstResults.AddItem = sql
End Sub

elle se situe sur le Dcount

[SfJ5Rpw8]

déjà des espaces dans des noms de champs pour une table je trouve cela pas terrible.. mais toi en plus tu met des quotes ' ...., je serai pas étonné si ton probléme viens de la ...

[Delbeke]

Honte sur moi, Je ne connais pas cette fonction Dcount, ca sort de ou ?

[SfJ5Rpw8]

Honte sur moi, Je ne connais pas cette fonction Dcount, ca sort de ou ?

je dirai que c'est plutôt de l'access VBA.. mais...

[lumbroso]

effectivement c'est une partie de code que j'ai recupérer sur une aplication que j'aivais realiser et la je déserspert ya t il une solution pour mon probleme ou un code meilleur?
merci

[SfJ5Rpw8]

slt ya t il une solution pour mon probleme ou un code meilleur?
merci

déjà code tu bien en VB6..?

[lumbroso]

tu me demande si je code bien en vb je pense que peut etre
je ne suis pas un pro j'essai seulement d'aprendre en faissant une appliation
pourquoi le code que j'ai fait n'est pas bon??

[SfJ5Rpw8]

tu me demande si je code bien en vb je pense que peut etre
je ne suis pas un pro j'essai seulement d'aprendre en faissant une appliation
pourquoi le code que j'ai fait n'est pas bon??

on vas essayer d'être plus clair, alors.. comment fais-tu pour lancer ton environnement de développement... tu lance Access..? ou tu lance directement VB6..?

[lumbroso]

je lance dirrectement vb
j'ai un formulairedans lequel j'ai dans un champ listbox tout mes client
et au dessuj'ai un champ text ou quand je tappe le nom d'un client m'affiche tous les clients daont le nom commence par ce que j'ai tapé apres validation
parconte ma base de donnee se trouve sur access