Bonjour à tout le monde
je voudrais que la valeur (ici un lien) que je rentre dans mon formulaire (dans mon champs : LienAssos) devienne la valeur par defaut du champs (LienB) de ma table (CONTRATS_B).
voila le code que j'ai essayé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Option Compare Database Option Explicit Private Sub Form_current() Dim Lien As String Dim fldLien As DAO.Field Lien = Me.LienAssos Set fldLien = CurrentDb.TableDefs!CONTRATS_B.Fields("LienB") fldLien.DefaultValue = Lien Set fldLien = Nothing End Sub
Mais j'ai un message d'erreur:
"Erreur d'exécution 3420 : l'objet est incorrect ou n'est plus défini."
ce qui est souligné en jaune est "fldLien.DefaultValue"
Merci d'avance
Partager