OVH Cloud OVH Cloud

calendrier

6 réponses
Avatar
Marie
Bonjour
J'aurais voulu m'inspirer de l'exemple du calendrier2 du forum
http://www.self-access.com/access/grenier =BB et je souhaitais
int=E9grer dans mon formulaire : =AB le formulaire : frmTestCalendrier
=BB mais je bute sur le module :

Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer

If Not IsNull(Me.OpenArgs) Then
' Identifier les champs
intI =3D InStr(1, Me.OpenArgs, "!", vbTextCompare)
If intI <> 0 Then
strForm =3D Left(Me.OpenArgs, intI - 1)
strChamp =3D Mid(Me.OpenArgs, intI + 1)

' Affecter la date au champ pass=E9 en argument
Forms(strForm)(strChamp) =3D Me!Calendrier.Value
End If
End If

Je n'arrive pas =E0 faire reconna=EEtre mon formulaire, il fonctionne
tr=E8s bien mais tout seul sans changer le nom de son formulaire. j'ai
un probl=E8me au niveau 'Affecter la date au champ pass=E9 en
argument' il me manque quelque chose pour l'int=E9grer =E0 mon
document. Merci si vous pouvez m'aider.

6 réponses

Avatar
Raymond [mvp]
Bonjour.

à la lecture du traitement du openargs, ton paramètre doit être indiqué:
nomduformulaire!nomduchamp
est-ce bien ainsi que tu l'indiques ?

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonjour
J'aurais voulu m'inspirer de l'exemple du calendrier2 du forum
http://www.self-access.com/access/grenier » et je souhaitais
intégrer dans mon formulaire : « le formulaire : frmTestCalendrier
» mais je bute sur le module :

Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer

If Not IsNull(Me.OpenArgs) Then
' Identifier les champs
intI = InStr(1, Me.OpenArgs, "!", vbTextCompare)
If intI <> 0 Then
strForm = Left(Me.OpenArgs, intI - 1)
strChamp = Mid(Me.OpenArgs, intI + 1)

' Affecter la date au champ passé en argument
Forms(strForm)(strChamp) = Me!Calendrier.Value
End If
End If

Je n'arrive pas à faire reconnaître mon formulaire, il fonctionne
très bien mais tout seul sans changer le nom de son formulaire. j'ai
un problème au niveau 'Affecter la date au champ passé en
argument' il me manque quelque chose pour l'intégrer à mon
document. Merci si vous pouvez m'aider.
Avatar
Marie
Bonsoir Raymond

Je pense que c'est là mon problème, seulement je ne suis pas assez
experte pour bien intégrer ce paramètre dans ce code, si tu pouvais
me donner un exemple de ce bout de code qui me manque. Mon formulaire
s'appelle « menu » merci d'avance






Bonjour.

à la lecture du traitement du openargs, ton paramètre doit être ind iqué:
nomduformulaire!nomduchamp
est-ce bien ainsi que tu l'indiques ?

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonjour
J'aurais voulu m'inspirer de l'exemple du calendrier2 du forum
http://www.self-access.com/access/grenier » et je souhaitais
intégrer dans mon formulaire : « le formulaire : frmTestCalendrier
» mais je bute sur le module :

Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer

If Not IsNull(Me.OpenArgs) Then
' Identifier les champs
intI = InStr(1, Me.OpenArgs, "!", vbTextCompare)
If intI <> 0 Then
strForm = Left(Me.OpenArgs, intI - 1)
strChamp = Mid(Me.OpenArgs, intI + 1)

' Affecter la date au champ passé en argument
Forms(strForm)(strChamp) = Me!Calendrier.Value
End If
End If

Je n'arrive pas à faire reconnaître mon formulaire, il fonctionne
très bien mais tout seul sans changer le nom de son formulaire. j'ai
un problème au niveau 'Affecter la date au champ passé en
argument' il me manque quelque chose pour l'intégrer à mon
document. Merci si vous pouvez m'aider.


Avatar
Raymond [mvp]
Bonsoir.

il ne manque pas de bout de code mais seulement que tu indiques bien les
noms de formulaires et controle dans les arguments.
le code indiqué sur le site est le suivant:
Private Sub btnDebut_Click()
DoCmd.OpenForm "frmCalendrier", acNormal, , , , ,
"frmTestCalendrier!txtDebut"
End Subremplace "frmTestCalendrier!txtDebut" par les vrais noms .

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonsoir Raymond

Je pense que c'est là mon problème, seulement je ne suis pas assez
experte pour bien intégrer ce paramètre dans ce code, si tu pouvais
me donner un exemple de ce bout de code qui me manque. Mon formulaire
s'appelle « menu » merci d'avance
Avatar
Marie
Bonsoir Raymond

Ce n'est pas le code ni le nom des formulaires que j'ai bien repris
dans le formulaire d'exemple qui ne va pas, mais c'est au moment
ou la date doit être indiquer dans les champs date début ou fin par
la touche OK que le code s'arrête, il ne retrouve pas mon formulaire
de date puisque je le place dans un autre formulaire. Je ne sais pas
comment indiquer dans le code d'aller chercher d'abord mon
formulaire pour ensuite placer mon résultat dans le sous formulaire «
frmTestCalendrier » merci de me répondre si je me suis bien
expliqué. Marie


Bonsoir.

il ne manque pas de bout de code mais seulement que tu indiques bien les
noms de formulaires et controle dans les arguments.
le code indiqué sur le site est le suivant:
Private Sub btnDebut_Click()
DoCmd.OpenForm "frmCalendrier", acNormal, , , , ,
"frmTestCalendrier!txtDebut"
End Subremplace "frmTestCalendrier!txtDebut" par les vrais noms .

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonsoir Raymond

Je pense que c'est là mon problème, seulement je ne suis pas assez
experte pour bien intégrer ce paramètre dans ce code, si tu pouvais
me donner un exemple de ce bout de code qui me manque. Mon formulaire
s'appelle « menu » merci d'avance


Avatar
Raymond [mvp]
A mon avis ça ne marche pas pour un sous formulaire car il faut indiquer 3
champs minimum. il faut donc compléter ta fonction pour récupérer 3 champs
et les charger de cette façon:
"frmTestCalendrier!Sous-frm!txtDebut"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonsoir Raymond

Ce n'est pas le code ni le nom des formulaires que j'ai bien repris
dans le formulaire d'exemple qui ne va pas, mais c'est au moment
ou la date doit être indiquer dans les champs date début ou fin par
la touche OK que le code s'arrête, il ne retrouve pas mon formulaire
de date puisque je le place dans un autre formulaire. Je ne sais pas
comment indiquer dans le code d'aller chercher d'abord mon
formulaire pour ensuite placer mon résultat dans le sous formulaire «
frmTestCalendrier » merci de me répondre si je me suis bien
expliqué. Marie
Avatar
Marie
Merci Raymond, j'ai finalement réussie a faire fonctionner une
condition que je relis avec mon état pour la date souhaitée. Je vais
retravaillé avec les exemples et tes conseils pour le reste.
Marie


A mon avis ça ne marche pas pour un sous formulaire car il faut indique r 3
champs minimum. il faut donc compléter ta fonction pour récupérer 3 champs
et les charger de cette façon:
"frmTestCalendrier!Sous-frm!txtDebut"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Marie" a écrit dans le message de news:

Bonsoir Raymond

Ce n'est pas le code ni le nom des formulaires que j'ai bien repris
dans le formulaire d'exemple qui ne va pas, mais c'est au moment
ou la date doit être indiquer dans les champs date début ou fin par
la touche OK que le code s'arrête, il ne retrouve pas mon formulaire
de date puisque je le place dans un autre formulaire. Je ne sais pas
comment indiquer dans le code d'aller chercher d'abord mon
formulaire pour ensuite placer mon résultat dans le sous formulaire «
frmTestCalendrier » merci de me répondre si je me suis bien
expliqué. Marie