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
"Luis" J'ai un formulaire avec un sous-formulaire. Avec ce sous-formulaire on a la première et la dernière date saisie dans le formulaire pricipale. J'ai essayé avec une MsgBox d'attirer l'attention sur activé du formulaire principal comme suit:
Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache]) Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Luis"
J'ai un formulaire avec un sous-formulaire.
Avec ce sous-formulaire on a la première et la dernière
date saisie dans le formulaire pricipale.
J'ai essayé avec une MsgBox d'attirer l'attention sur
activé du formulaire principal comme suit:
Private Sub Form_Activate()
DoCmd.Maximize
If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache]) Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"Luis" J'ai un formulaire avec un sous-formulaire. Avec ce sous-formulaire on a la première et la dernière date saisie dans le formulaire pricipale. J'ai essayé avec une MsgBox d'attirer l'attention sur activé du formulaire principal comme suit:
Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache]) Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Luis
Bonjour, Tu as raison, merci. Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet. Donc je ne m'en sort pas. Luis
-----Message d'origine----- Salut,
"Luis" J'ai un formulaire avec un sous-formulaire. Avec ce sous-formulaire on a la première et la dernière date saisie dans le formulaire pricipale. J'ai essayé avec une MsgBox d'attirer l'attention sur activé du formulaire principal comme suit:
Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache]) Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Bonjour,
Tu as raison, merci.
Mais avec 'Form' j'ai une autre erreur:
Erreur d'exécution '438'
propriété ou méthode non gérée par cet objet.
Donc je ne m'en sort pas.
Luis
-----Message d'origine-----
Salut,
"Luis"
J'ai un formulaire avec un sous-formulaire.
Avec ce sous-formulaire on a la première et la dernière
date saisie dans le formulaire pricipale.
J'ai essayé avec une MsgBox d'attirer l'attention sur
activé du formulaire principal comme suit:
Private Sub Form_Activate()
DoCmd.Maximize
If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache])
Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Bonjour, Tu as raison, merci. Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet. Donc je ne m'en sort pas. Luis
-----Message d'origine----- Salut,
"Luis" J'ai un formulaire avec un sous-formulaire. Avec ce sous-formulaire on a la première et la dernière date saisie dans le formulaire pricipale. J'ai essayé avec une MsgBox d'attirer l'attention sur activé du formulaire principal comme suit:
Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = ([Formulaires].[DebutFinTache].[FinTache]) Then
= Forms!DebutFinTache!FinTache
le VBA ne connait pas "Formulaires"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
3stone
re,
"Luis" Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
re,
"Luis"
Mais avec 'Form' j'ai une autre erreur:
Erreur d'exécution '438'
propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"Luis" Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Luis
Re-bonjour, Oui avec s, mais j'ai toujours Erreur d'exécution '2450' Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = (Forms!DebutFinTache!FinTache) Then Dim X As Integer X = MsgBox("Vous avez saisie les heures de la dernière date de la mission!!! Est-ce que toutes les heures ont été saisies?", vbYesNo + vbQuestion) If X = vbNo Then Exit Sub End If
Pourquoi, car il existe ce sous-formulaire. Luis
-----Message d'origine----- re,
"Luis" Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Re-bonjour,
Oui avec s, mais
j'ai toujours Erreur d'exécution '2450'
Impossible de trouver le formulaire 'DebutFinTache' auquel
il est fait référence dans l'expression de macro ou un
code visual Basic.
Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors
de
Private Sub Form_Activate()
DoCmd.Maximize
If (Me.FIN) = (Forms!DebutFinTache!FinTache) Then
Dim X As Integer
X = MsgBox("Vous avez saisie les heures de la dernière
date de la mission!!! Est-ce que toutes les heures ont été
saisies?", vbYesNo + vbQuestion)
If X = vbNo Then Exit Sub
End If
Pourquoi, car il existe ce sous-formulaire.
Luis
-----Message d'origine-----
re,
"Luis"
Mais avec 'Form' j'ai une autre erreur:
Erreur d'exécution '438'
propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Re-bonjour, Oui avec s, mais j'ai toujours Erreur d'exécution '2450' Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de Private Sub Form_Activate() DoCmd.Maximize If (Me.FIN) = (Forms!DebutFinTache!FinTache) Then Dim X As Integer X = MsgBox("Vous avez saisie les heures de la dernière date de la mission!!! Est-ce que toutes les heures ont été saisies?", vbYesNo + vbQuestion) If X = vbNo Then Exit Sub End If
Pourquoi, car il existe ce sous-formulaire. Luis
-----Message d'origine----- re,
"Luis" Mais avec 'Form' j'ai une autre erreur: Erreur d'exécution '438' propriété ou méthode non gérée par cet objet.
Non...
= Forms!DebutFinTache!FinTache
avec un "S"
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
3stone
re,
"Luis" [...] Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de <snip>
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
re,
"Luis"
[...]
Impossible de trouver le formulaire 'DebutFinTache' auquel
il est fait référence dans l'expression de macro ou un
code visual Basic.
Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors
de
<snip>
"Luis" [...] Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de <snip>
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Luis
Re, Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache. Pour ouvrir le message. Luis
-----Message d'origine----- re,
"Luis" [...] Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de <snip>
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Re,
Avec:
Forms!NomFormPrincipal!DebutFinTache.Form!FinTache
Je ne compare pas la valeur du champ 'FIN' du Formulaire
principal avec la valeur 'FinTache' du sous-formulaire
DebutFinTache.
Pour ouvrir le message.
Luis
-----Message d'origine-----
re,
"Luis"
[...]
Impossible de trouver le formulaire 'DebutFinTache' auquel
il est fait référence dans l'expression de macro ou un
code visual Basic.
Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors
de
<snip>
Re, Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache. Pour ouvrir le message. Luis
-----Message d'origine----- re,
"Luis" [...] Impossible de trouver le formulaire 'DebutFinTache' auquel il est fait référence dans l'expression de macro ou un code visual Basic. Le sous-formulaire 'DebutFinTache' n'est pas trouvé lors de <snip>
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
3stone
Salut,
"Luis" Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire courant...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Luis"
Avec:
Forms!NomFormPrincipal!DebutFinTache.Form!FinTache
Je ne compare pas la valeur du champ 'FIN' du Formulaire
principal avec la valeur 'FinTache' du sous-formulaire
DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire courant...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"Luis" Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire courant...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Luis
Bonjour,
Oui, oui 'DebutFinTache' est le sous formulaire.
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then Je pense qu'il y a un problème de parenthèses. Alors j'ai essayé: If ((Me.FIN) = Me!DebutFinTache.Form!FinTache) Then Mais j'ai Erreur d'exécutio '2427' Expression sans paramètre. Est-ce que j'ai mal placé les parenthèses?
Luis
-----Message d'origine----- Salut,
"Luis" Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire courant...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Bonjour,
Oui, oui 'DebutFinTache' est le sous formulaire.
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
Je pense qu'il y a un problème de parenthèses.
Alors j'ai essayé:
If ((Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
Mais j'ai Erreur d'exécutio '2427'
Expression sans paramètre.
Est-ce que j'ai mal placé les parenthèses?
Luis
-----Message d'origine-----
Salut,
"Luis"
Avec:
Forms!NomFormPrincipal!DebutFinTache.Form!FinTache
Je ne compare pas la valeur du champ 'FIN' du Formulaire
principal avec la valeur 'FinTache' du sous-formulaire
DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire
courant...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then Je pense qu'il y a un problème de parenthèses. Alors j'ai essayé: If ((Me.FIN) = Me!DebutFinTache.Form!FinTache) Then Mais j'ai Erreur d'exécutio '2427' Expression sans paramètre. Est-ce que j'ai mal placé les parenthèses?
Luis
-----Message d'origine----- Salut,
"Luis" Avec: Forms!NomFormPrincipal!DebutFinTache.Form!FinTache Je ne compare pas la valeur du champ 'FIN' du Formulaire principal avec la valeur 'FinTache' du sous-formulaire DebutFinTache.
Si on explique clairement ce que l'on cherche...
If (Me.FIN) = Me!DebutFinTache.Form!FinTache) Then
si "DebutFinTache" est sous formulaire du formulaire courant...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Luis
Bonjour, J'ai toujours l'erreur d'exécution '2427' Expression sans paramètre. Luis
-----Message d'origine----- 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 -----------------------------
.
Bonjour,
J'ai toujours l'erreur d'exécution '2427'
Expression sans paramètre.
Luis
-----Message d'origine-----
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
-----------------------------
Bonjour, J'ai toujours l'erreur d'exécution '2427' Expression sans paramètre. Luis
-----Message d'origine----- 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 -----------------------------
.
Luis
Re-Bonjour, 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? Luis
-----Message d'origine----- 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-Bonjour,
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?
Luis
-----Message d'origine-----
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-Bonjour, 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? Luis
-----Message d'origine----- 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 -----------------------------
