Discussion :

[YOUSSEFALAOUIA]

Bonjour tout le monde,
j'ai une table T_eleves(N_Exam(long),N_Etab(Texte),N_Eleve(long))
dans un formulaire un cadre(Cadre9)avec 3 cases à cocher : 1 N_Exam , 2 N_Etab , 3 N_Eleve
une zone de texte (Num)
un bouton(Cmd_FicheEleve) qui filte un Etat (E_Eleves) avec l'evenement suivant ;

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
44
45
46
47
48
49
50
51
52
    Private Sub Cmd_FicheEleve_Click()
        Dim stDocName As String
        If IsNull(Me.Cadre9) Then
            MsgBox "Attention Cochez une case", vbExclamation, "Attention"
            Me.Cadre9.SetFocus
        End If
 
        If Cadre9.Value = 1 Then
            If IsNull(Me.Num) Then
                MsgBox "Attention Saisissez le N_Exam", vbExclamation, "Attention"
                Me.Num.SetFocus
            ElseIf DCount("Num", "R_Eleves") = 0 Then
                MsgBox "Aucun enregistrement !", vbExclamation
                Cancel = True
            ElseIf IsNull(DLookup("[N_Exam]", "R_Eleves", "[N_Exam]=" & Me.Num & "")) Then
                MsgBox "Vérifier le Numéro N_Exam Saisi !", vbExclamation
                Cancel = True
            Else
                DoCmd.OpenReport "E_Eleves", acPreview, , "N_Exam= " & Me.Num & ""
            End If
        End If
 
        If Cadre9.Value = 2 Then
            If IsNull(Me.Num) Then
                MsgBox "Attention Saisissez le Numéro National", vbExclamation, "Attention"
                Me.Num.SetFocus
            ElseIf DCount("Num", "R_Eleves") = 0 Then
                MsgBox "Aucun enregistrement !", vbExclamation
                Cancel = True
            ElseIf IsNull(DLookup("[N_Etab]", "R_Eleves", "[N_Etab]='" & Me.Num & "'")) Then
                MsgBox "Vérifier le N_Etab Saisi !", vbExclamation
                Cancel = True
            Else
                DoCmd.OpenReport "E_Eleves", acPreview, , "N_Etab= '" & Me.Num & "'"
            End If
        End If
 
        If Cadre9.Value = 3 Then
            If IsNull(Me.Num) Then
                MsgBox "Attention Saisissez le Numéro D'examen Correcte", vbExclamation, "Attention"
                Me.Num.SetFocus
            ElseIf DCount("Num", "R_Eleves") = 0 Then
                MsgBox "Aucun enregistrement !", vbExclamation
                Cancel = True
            ElseIf IsNull(DLookup("[N_Eleve]", "R_Eleves", "[N_Eleve]=" & Me.Num & "")) Then
                MsgBox "Vérifier le N_Eleve Saisi !", vbExclamation
                Cancel = True
            Else
                DoCmd.OpenReport "E_Eleves", acPreview, , "N_Eleve= " & Me.Num & ""
            End If
        End If
    End Sub

Mon problème est que lorsque je sasie un (D5666) et je coche soit la case 1 ou 3 le message d'erreur suivant apparait :
erreur de syntaxe dans l'expression :<<[N_Exam] ou [N_Eleve]=D5666>>.
Merci pour votre attention.

[marot_r]

Bonjour.

C'est un peu normal si N_Exam ou N_Eleve sont des nombres dans Access, D5666 n'est pas un nombre, c'est du texte.
Donc si tu essaye de faire passer un texte pour un nombre, Access n'accepte pas.

Tu peux.

• Changer le type de N_Exam et N_Eleve pour texte, si tu ne fait pas de calcul cela ne devrait pas avoir de grosses conséquence, peut-être seulement si tu tries sur ces valeurs tu vas avoir quelque chose de contre intuitif du genre 1, 11, 110, 20, 232, 3.
• Si N_Exam et N_Eleve ne sont pas des nombres mais des textes, alors il faut mettre des délimiteurs autours du critère.
  Quelque chose comme "N_Exam= '" & Me.Num & "'", ce que tu as déjà fait pour le choix N_Etab.
• T'assurer que le critère est bien un nombre.
  Attention la fonction IsNumeric n'est pas fiable à 100%, il y a des texte qui contiennent des chiffres et des lettres qui sont reconnus comme des nombres.
  Il est préférable de faire sa propre fonction qui vérifie les caractères un à un.

A+