Discussion :

[Caroline1]

Bonjour,

J'ouvre un formulaire avec DoCmd.OpenForm avec l'option acFormAdd.
Dans ce formulaire, j'ai les champs dépendant txtID, txtDate, txtTitre et txaNote.

Je veux initialiser txtID à partir d'une valeur connue.

Le problème : j'obtiens une erreur "Impossible d'attribuer une valeur à cet objet" quand je passe par txtID.value = str. En passant par txtID.DefaultValue, j'ai le bon résultat (j'ouvre toujours un nouvel enregistrement).

DefaultValue fonctionne... mais tout est convertit en entier.

• Si str = "12", c'est OK.
• Si str = "342-42", il met 300!
• Si str = "une vraie chaîne", j'obtiens #Nom ?

Je n'arrive pas m'expliquer pourquoi ça fait ça. Le champ lié est bien un string. Il n'y a ni masque ni formatage sur le champ.

Que regarder d'autres?
Auriez-vous une idée?

Merci!
Caroline

Bout de code:

Code :

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

DoCmd.OpenForm "frmCreerNote", , , , acFormAdd, , [Forms]![frmMenuAccueil]![lstDatas].Value

Code :

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

1
2
3
4
5
6
7
    'Lire les paramètres
    If Not IsNull(Me.OpenArgs) Then
        Me.txtID.DefaultValue = Me.OpenArgs
    Else
        MsgBox "Nombre de paramètres invalide!"
        Cancel = true
    End If

Source = "tblNotes"
txtID.ControlSource = "IDNote" (IDNote est un string)

[Arkham46]

slt,

t'as essayé un :

Code :

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

MsgBox Me.OpenArgs

histoire de voir si le problème vient du lstDatas ou du txtId?

[Caroline1]

Oui. Avec l'espion, je vois que OpenArgs contient ce à quoi je m'attends.

J'ai essayé de mettre directement

Code :

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

txtID.DefaultValue = "342-42" 'Donne 300

ou

Code :

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

txtID.DefaultValue = "une vraie chaîne" 'Donne #Nom ?

et j'obtiens aussi une drôle de conversion en entier.

Quand je fais le même test sur un champ indépendant, ça s'affiche correctement.

Caroline

[Arkham46]

mets des guillemets :

Code :

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

 Me.txtID.DefaultValue = """" & Me.OpenArgs & """"

(tu t'aperçois en entrant une valeur directement dans la propriété qu'il met automatiquement des guillemets)

[Caroline1]

Trouvé dans l'aide Access :

Propriété Default Value

Dans Visual Basic, utilisez une expression chaîne pour attribuer une valeur à cette propriété. Par exemple, le code suivant définit la valeur « espèces » pour la propriété DefaultValue d'un contrôle zone de texte nommé MéthodePaiement :

Code :

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

Forms!frmInvoice!PaymentMethod.DefaultValue = """Cash"""

Quand on a une variable, ça devient :

Code :

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

 Me.txtID.DefaultValue = """" & me.OpenArg & """"

[Caroline1]

lol. Merci Arkham.

Caroline
(Il faudrait un bouton auto pour ajouter ça au message : "Merci Arkham" . Le forum serait vide sans toi!)

[Arkham46]

lol. Merci Arkham.

Caroline
(Il faudrait un bouton auto pour ajouter ça au message : "Merci Arkham" . Le forum serait vide sans toi!)

Lol ça me plaît bien l'idée du bouton "Arkham"

Merci beaucoup mais heureusement je suis pas tout seul!