Discussion :

[FewRa]

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

[FewRa]

j'ai changer mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
Dim db As DAO.Database
Dim Lien As String
 
Lien = Me!LienAssos
 
   Set db = CurrentDb
db.TableDefs!CONTRATS_B.Fields("LienB").Properties("DefaultValue") = "Lien"
 
End Sub

maintenant j'ai ce message d'erreur:

"Erreur d'exécution 3422: un autre Utilisateur a ouvert la table. Impossible d'en changer la structure."

Alors que je suis le seul à l'utiliser

[FewRa]

j'avais tout faux

le code ne faisait pas ce que je voulais, j'avais mal compris lors de mes recherches sur le net

car le code précédent à marcher lorsque j'ai changer de table
et ça changer que la "valeur par défaut" et nom les champ actif

donc j'ai fait ça et ça marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
 
Dim Lien As String
Dim strSQL As String
Lien = Me!LienAssos
 
 
 
strSQL = "UPDATE CONTRATS_B SET [LienB] ='" & Lien & "'"
CurrentDb.Execute strSQL
 
 
End Sub