Discussion :

[cigale13]

Salut salut!
J'ai un problème... Je suis en train d'élaborer une base de donnée. Sans blague me direz-vous!
Bref, je rencontre un problème de syntaxe depuis deux jours sur la programmation VBA pour une recherche multicritère. Je veux appeler un champ qui se trouve sur une des tables, mais access ne semble pas me reconnaître ma table.
Pourtant après relecture je ne trouve pas d'erreur de frappe.
Pour appeler le champ de la table j'utilise la formule suivante : 'nom de la table'!'nom du champ"
Est ce la bonne formule?

[temar]

Salut !

Si tu veux qu'on t'aide a trouver l'erreur dans ton code, montre nous ton code.

Sinon à priori, oui en utilisant NomTable.NomChamp, c'est ok.
Si tu as des espaces dans le nom de la table ou du champ, tu fais

[nom de la table].[nom du champ]

A+

[cigale13]

Salut!

J'ai mis entre crochet les noms des champs même si il n'y avait pas d'espace entre les caractères car l'erreur s'affichée toujours. Maintenant l'erreur n'apparait plus! Allélouia! Mais j'en ai une autre qui s'est mise.. Erreur d'execution 2001. Alors je ne sais pas à quoi elle correspond! That is the myster! Comme j'avais oublié de vous mettre le code de ma programmation, je vous la met tout de suite.

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
40
41
42
43
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String


SQL = "SELECT ID_entreprise, Entreprise, Nom, E-mail, Code Postal FROM base_de_donnee WHERE [base_de_donnee]![ID_entreprise] <> 0 "

If Me.chketp Then
    SQL = SQL & "And [base_de_donnee]![Entreprise] like '*" & Me.txtRechetp & "*' "
    End If
    
If Me.chknom Then
    SQL = SQL & "And [base_de_donnee]![Nom] like '*" & Me.txtRechnom & "*' "
    End If

If Me.chkmail Then
    SQL = SQL & "And [base_de_donnee]![E-mail] like '*" & Me.txtRechmail & "*' "
    End If
    
If Me.chkcp Then
     SQL = SQL & "And [base_de_donnee]![Code Postal] like '*" & Me.txtRechcp & "*' "
    End If
    
If Me.chkville Then
    SQL = SQL & "And triville = '" & Me.cmbville & "' "
    End If
    
If Me.chktitre Then
    SQL = SQL & "And [base_de_donnee]![Evenementiel] = '" & Me.cmbtitre & "' "
    End If
    
If Me.chktype Then
    SQL = SQL & "And tritype = '" & Me.cmbtype & "' "
    End If

 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"

Me.lblstats.Caption = DCount("*", "base_de_donnee", SQLWhere) & " / " & DCount("*", "base_de_donnee")
Me.lstresult.RowSource = SQL
Me.lstresult.Requery

End Sub

L'erreur semble venir de ma fonction SQLWhere ou bien de la ligne que j'ai mis en rouge.
Merci à tous pour votre aide précieuse.
@+