If [chmpetat].Value = "Client" Then Me![chmpsociete].BackColor = vbRed Else If [chmpetat].Value = "En cours" Then Me![chmpsociete].BackColor = vbGreen Else If [chmpetat].Value = "Prospect" Then Me![chmpsociete].BackColor = vbWhite Else ' Le Else manquant Me![chmpsociete].BackColor = vbWhite End If End If End Ifqui peut aussi s'écrire
If [chmpetat].Value = "Client" Then Me![chmpsociete].BackColor = vbRed ElseIf [chmpetat].Value = "En cours" Then Me![chmpsociete].BackColor = vbGreen ElseIf [chmpetat].Value = "Prospect" Then Me![chmpsociete].BackColor = vbWhite Else Me![chmpsociete].BackColor = vbWhite End Ifet enfin, avec un Select Case
Select Case Me![chmpetat].Value Case "Client" : Me![chmpsociete].BackColor = vbRed Case "En cours" : Me![chmpsociete].BackColor = vbGreen Case "Prospect" : Me![chmpsociete].BackColor = vbWhite Case Else : Me![chmpsociete].BackColor = vbWhite End Select
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub chmpetat_AfterUpdate() Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("Contacts1") If Rs.Fields("Etat").Value = "Client" Then Me![imgAttention].Visible = True ElseIf Rs.Fields("Etat").Value = "En cours" Then Me![imgAttention].Visible = True ElseIf Rs.Fields("Etat").Value = "Prospect" Then Me![imgAttention].Visible = False Else Me![imgAttention].Visible = False End If End Sub
Private Sub chmpetat_AfterUpdate() Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("Contacts1") If Rs.Fields("Etat").Value = "Client" Then Me![chmpsociete].BackColor = vbRed ElseIf Rs.Fields("Etat").Value = "En cours" Then Me![chmpsociete].BackColor = vbGreen ElseIf Rs.Fields("Etat").Value = "Prospect" Then Me![chmpsociete].BackColor = vbWhite Else Me![chmpsociete].BackColor = vbWhite End If End Sub