Discussion :

[maringot]

Bonjour,

J'ai un formulaire client sur lequel j'ai 3 cases à cocher. J'ai un évènement sur le formulaire AMJ

Code :

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

1
2
3
4
5
6
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.IDClients = False And Me.C_Prospect Or Me.C_Client = False Then
   MsgBox "Vous avez oublié de cocher PROSPECT ou CLIENT"
   Cancel = True
End If
End Sub

pour ne pas oublier de cocher la case "Prospect" ou "Client" sinon la fiche client n'est accessible que par la table, donc de cette manière ça fonctionne bien.

En revanche sur ma fiche j'ai une case "Mise en sommeil" pour archiver les clients avec qui je ne travaille plus et ainsi ma fiche client va dans un listing "clients mis en sommeil" et donc ils n'apparaissent plus dans ma liste principale (ça permet de faire le ménage). Mais pour que cette fiche soit archivée les cases "Prospect" ou "client" doivent être désactivées, or à cause du code je suis obligé de cocher "Prospect" ou "Client.

Alors que dois-je écrire dans le code pour que cela fonctionne ?

Merci pour votre aide

[jimbolion]

maringot,

Pourquoi ne pas agir directement sur ta case Mise en sommeil.

Si mise en sommeil = True (evenement après mise à jour) alors me.C_Prospect= False:me.C_Client = False et rendre en plus inactif ces deux cases par me.C_Client.enabeld = False:me.C_Prospect.enabled= False (et inversement si décoché)

A mettre en place dans ton code

JimBoLion