Discussion :

[BCBFIS]

J'avais indiqué que cette discussion n'était PLUS RESOLUE, c'est pourquoi je joins ici les 2 tables modifiées et le formulaire concerné en mode création. Je n'arrive pas à transposer la solution proposée.
Merci pour votre aide et votre patience.

[Pierre Fauconnier]

La patience est mise à rude épreuve lorsque l'on demande le code utilisé pour la troisième ou quatrième fois et qu'on ne l'a toujours pas

[BCBFIS]

Voici le code que j'ai introduit, mais cela ne fonctionne pas. Je me suis probablement enmellé les pinceaux car certains noms noms concernent tantôt une table, tantôt un champ.
Merci.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Value As String
 
  Value = Nz(DLookup("Valeur", "T_TypeCompte", "'" & Left(Nature_CpteGen.Value, 3) & "' >= debut and '" & Left(Nature_CpteGen.Value, 3) & "' <= fin"), "")
  If Value = "" Then Value = Nz(DLookup("Valeur", "T_TypeCompte", "'" & Left(Nature_CpteGen.Value, 3) & "' >= debut and '" & Left(Nature_CpteGen.Value, 3) & "' <= fin"), "")
  TypeCompte.Value = Value
End Sub

[Pierre Fauconnier]

TypeCompte.Value = Value ===>>> Nature_CpteGen.Value = Value

[BCBFIS]

OK. Après la modification proposée et le remplacement de Left(Nature_CpteGen.Value, 3) par Left(Num_CpteGen.Value, 3) cela fonctionne.
Encore un tout grand merci pour votre aide et votre patience.

[Pierre Fauconnier]

Bon weekend