Discussion :

[letzvva]

Bonjour à tous.

J'ai un problème lorsque je clic sur mon bouton "Nouveau Enregistrement" qui utilise la macro "Nouveau" depuis que j'ai mis ce code dans mon formulaire sur l'événement "Sur Activation".

Ce code permet d'afficher ou non une image et de colorer un champ en différentes couleurs lorsque le champ "Etat" a une valeur particulière.

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
 
Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT Contacts1.* FROM Contacts1 WHERE Contacts1.ID =" & Me.chmpID & ";")
    If Not rs.EOF Then
    If rs.Fields("Etat").Value = "Client" Then
        Me!imgClient.Visible = True
        Me!chmpsociete.BackColor = vbRed
    ElseIf rs.Fields("Opportunité").Value = "E-Mail envoyé" Then
        Me!chmpsociete.BackColor = vbYellow
        Me!imgClient.Visible = False
    Else
        Me!imgClient.Visible = False
        Me!chmpsociete.BackColor = vbWhite
    End If
    End If
    rs.Close
    Set rs = Nothing
 
End Sub

Voici le message d'erreur :

Erreur de syntaxe (opérateur absent) dans l'expression "Contacts1.ID = ".


Merci d'avance pour votre aide.

[Arkham46]

bjr,

sur un nouvel enregistrement, le champ Me.chmpID est null donc il manque quelque chose dans le code de la requête

on peut tester en amont avant d'ouvrir le recordset et sortir de la procédure

Code :

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

if isnull(Me.chmpID) then exit sub

[letzvva]

Merci Arkham46

Problème réglé en 1 ligne je dis chapeau !

Je le passe en résolu.

Encore merci à toi.