Discussion :

[sultan87]

bonsoir
j'ai un formulaire avec des onglets
dans les onglets j'ai soit des sous formulaire soit des champs soit les deux
je désire à l'activation de mon formulaire affecter des valeurs à des champs se trouvant sur un onglet particulier
comment faire
pouvez vous m'aider
Pierre

[tee_grandbois]

bonsoir,

je désire à l'activation de mon formulaire affecter des valeurs à des champs se trouvant sur un onglet particulier

il y a la propriété "Valeur par défaut" qui peut être intéressante pour faire cela

[sultan87]

Bonsoir
merci pour la réponse
ce sont des valeurs que je calcule à l'activation du formulaire en fonction de certains pramètres
Pierre

[tee_grandbois]

ça peut également se faire en VBA:

Code :

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

1
2
3
Dim UneValeur as string
UneValeur = "test"
Me.champ1.DefaultValue = UneValeur

[sultan87]

Bonjour
merci

Code :

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

1
2
3
Dim UneValeur as string
UneValeur = "test"
Me.champ1.DefaultValue = UneValeur

comment accéder à champ1 à l'activation du formulaire du genre
Me.Onglets.Pages("Relance").Controls(champ1.value) = "abcdef" qui ne fonctionne pas
Pierre

[tee_grandbois]

essaie comme cela:

Code :

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

Me.Onglets.Pages("Relance").Controls("champ1").value = "abcdef"

qui peut s'écrire aussi comme cela:

Code :

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

Me.Controls("Onglets").Pages("Relance").Controls("champ1").value = "abcdef"

et si il y a un sous-formulaire:

Code :

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

Me.Onglets.Pages("LaPage").Controls("SousForm1").Form.controls("Champ1").Value = "abcdef"

si, bien sûr, Onglets est le nom du contrôle onglet

[sultan87]

Bonjour
je viens de faire le test

Code :

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

1
2
3
Private Sub Form_Activate()
 
Me.Controls("Onglets").Pages("Relance").Controls("Date_Retard").Value = "01/" + Format(Str(Month(Now) - 2), "00") + "/" + Format(Str(Year(Now)), "0000")

j'ai ce message d'erreur

'l expression entrée fait référence à un objet fermé ou supprimé'

Pierre

[tee_grandbois]

l'objet ne semble pas être ouvert ... est-ce que le formulaire (ou sous-formulaire) contenant tous les contrôles précisés (Onglets, Relance, Date_Retard) est bien ouvert ?