Bonjour,
J'ai un formulaire avec un sous-formulaire.
Avec ce sous-formulaire on a la premi=E8re et la derni=E8re=20
date saisie dans le formulaire pricipale.
J'ai essay=E9 avec une MsgBox d'attirer l'attention sur=20
activ=E9 du formulaire principal comme suit:
Private Sub Form_Activate()
DoCmd.Maximize
If (Me.FIN) =3D ([Formulaires].[DebutFinTache].[FinTache])=20
Then
Dim X As Integer
X =3D MsgBox("Vous avez saisie les heures de la derni=E8re=20
date !!! Est-ce que les heures de tous les jours ont =E9t=E9=20
saisies?", vbYesNo + vbQuestion)
If X =3D vbNo Then Exit Sub
End If
End Sub
Mais jai une erreur d'ex=E9cution '2465'
Impossible de trouver le champ "I" auquel il est fait=20
r=E9f=E9rence.
D'o=F9 vient le probl=E8me?
Merci pour votre aide.
Luis
Bonjour, Ca marche super. Merci pour ton aide précieuse. Luis
-----Message d'origine----- Salut,
"Luis" Le problème vient d'ailleurs.
;-)
Lorsqu'aucune heure dans le formulaire principal n'a été saisie le sous formulaire 'DebutFinTache' est invisible. comment faire pour passer si ce sous formulaire est invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub If Me.Fin = ....
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Bonjour,
Ca marche super.
Merci pour ton aide précieuse.
Luis
-----Message d'origine-----
Salut,
"Luis"
Le problème vient d'ailleurs.
;-)
Lorsqu'aucune heure dans le formulaire principal n'a été
saisie le sous formulaire 'DebutFinTache' est invisible.
comment faire pour passer si ce sous formulaire est
invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub
If Me.Fin = ....
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Bonjour, Ca marche super. Merci pour ton aide précieuse. Luis
-----Message d'origine----- Salut,
"Luis" Le problème vient d'ailleurs.
;-)
Lorsqu'aucune heure dans le formulaire principal n'a été saisie le sous formulaire 'DebutFinTache' est invisible. comment faire pour passer si ce sous formulaire est invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub If Me.Fin = ....
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
3stone
re,
"Luis"
If Me!FIN = Me!DebutFinTache.Form!FinTache Then
Est-ce que j'ai mal placé les parenthèses?
c'était un résidu... (copié collé ;)
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
re,
"Luis"
If Me!FIN = Me!DebutFinTache.Form!FinTache Then
Est-ce que j'ai mal placé les parenthèses?
c'était un résidu... (copié collé ;)
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
3stone
Salut,
"Luis" Le problème vient d'ailleurs.
;-)
Lorsqu'aucune heure dans le formulaire principal n'a été saisie le sous formulaire 'DebutFinTache' est invisible. comment faire pour passer si ce sous formulaire est invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub If Me.Fin = ....
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Luis"
Le problème vient d'ailleurs.
;-)
Lorsqu'aucune heure dans le formulaire principal n'a été
saisie le sous formulaire 'DebutFinTache' est invisible.
comment faire pour passer si ce sous formulaire est
invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub
If Me.Fin = ....
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Lorsqu'aucune heure dans le formulaire principal n'a été saisie le sous formulaire 'DebutFinTache' est invisible. comment faire pour passer si ce sous formulaire est invisible sans que ça fasse erreur?
pour passer ?
Faire un test sur [Fin]
If IsNull(Me.Fin) Then Exit sub If Me.Fin = ....
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
