on load

Bonjour elisabeth.

il va falloir mettre un peu d'ordre dans les idées car pour nous ce n'est
pas évident de comprendre une situation que tu vis depuis longtemps.
Ton formulaire sur lequel est le form_load s'appelle comment ? est-ce le
formulaire2 ?
si non il faudra tester que formulaire2 est bien chargé.

Forms!formulaire2!Texte24.Value = Forms!formulaire2!Texte2
+ "~" + Forms!formulaire2!Texte22 + "~" + Forms!
formulaire2!Liste17 + "~" + Forms!formulaire2!Texte19

c'est une concaténation de chaînes, remplace les + par &

j'ouvre un formulaire mais le on load ne marche pas!!

normal si le formulaire est déja chargé.

Si ton formulaire et formulaire2 ne sont pas les mêmes , pourquoi charges-tu
formulaire2 à partir de ton formulaire et non le contraire ?

Err_modif_Click:
MsgBox Err.Description
Resume Exit_modif_Click
'Forms!formulaire2!Texte24.Value = Forms!formulaire2!

là il y a un problème de programmation, ta sequence s'arrêtera toujours sur
le resume

à suivre
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"elisabeth" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:b23401c43724$e5d6b3a0$a601280a@phx.gbl...
bonjour
je cherche a afficher une zone de texte au chargement et a
partir de celle-ci j'ouvre un formulaire mais le on load
ne marche pas!! je passe en mode création et je repasse en
mode formulaire et le ma valeur s'affiche dans la zone de
texte !! est-ce-quelqu'un sait pourquoi ceci, et est-ce-
qu'il y a une moyen de resoudre ce probleme??? sinon
qu'est-ce-que je peux faire d'autre???
merci a tous

voici mon code

Option Compare Database

Private Sub Form_Load()
Forms!formulaire2!Texte2.Value = "IN"
Forms!formulaire2!Texte19.Value = "DFT"
Forms!formulaire2!Texte22.Value = "P"
'Forms!formulaire2!Texte24.Value = "zzz"
Forms!formulaire2!Texte24.Value = Forms!formulaire2!Texte2
+ "~" + Forms!formulaire2!Texte22 + "~" + Forms!
formulaire2!Liste17 + "~" + Forms!formulaire2!Texte19
Me.Creer_doc.Enabled = False
Me.modif.Enabled = False
Me.Liste17.Requery
Me.Refresh

End Sub
Private Sub Creer_doc_Click()
On Error GoTo Err_Creer_doc_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Formulaire3"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Creer_doc_Click:
Exit Sub

Err_Creer_doc_Click:
MsgBox Err.Description
Resume Exit_Creer_doc_Click

End Sub

Private Sub Liste17_Click()
Me.Creer_doc.Enabled = True
Me.modif.Enabled = True

End Sub

Private Sub modif_Click()
On Error GoTo Err_modif_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "2-1 ss-Formulaire pour modif doc"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_modif_Click:
Exit Sub

Err_modif_Click:
MsgBox Err.Description
Resume Exit_modif_Click
'Forms!formulaire2!Texte24.Value = Forms!formulaire2!
Texte2 + "~" + Forms!formulaire2!Texte22 + "~" + Forms!
formulaire2!Liste17 + "~" + Forms!formulaire2!Texte19
'Forms!formulaire2!Texte24.Value = "IN~P~S6-2-1-1-~JLZ"
'a = DLookup("[IDDocument]", "DOCUMENT", "left
([IDDocument],18)=Forms!formulaire2!Texte24.Value")
'Debug.Print a
'If Not IsNull(a) Then
'Me.Liste31.Requery
'Me.Liste31.Visible = True
'Else
'a = MsgBox(, demande, vbExclamation, "informations
utilisateur")

'End If
End Sub

en fait en gros mon formulaire qui s'appelle formulaire2
est le plus important c'est le formulaire mère et il a 2
formulaires filles qui sont formulaire3(pour la creation
de document) et 2-1 ss-Formulaire pour modif doc(qui
permet de modifié des documents existants)
et dans le formuliare2 on a donc 4 zone de texte une zone
de liste et 2 bouton(creation et modif), les 3 zones de
textes affichent des valeur par defaut, et le texte 24
recupere ces valeurs + celle de la zone de liste

en fait merci parce que la tu ma permit de voir clair du
coup jai trouver mon erreur je devai pas afiicher au load
mais au click de la zonne de liste
merci avec des idées claires tu vois mieux!!!
merci encore, desormais j'essairai d'etre claire dans ma
tete peu etre que je trouverai la solution moi meme