OVH Cloud OVH Cloud

Formulaire indépendant

9 réponses
Avatar
jean-marie
Bonjour

J ai cr=E9=E9 un =E9tat me permettant d=E9tablir des factures=20
clients.
Je souhaite =E9diter certaines d entre elles de date =E0 date
sans passer par l'option requete mais en cr=E9ant un=20
formulaire ind=E9pendant (avec format date)
mais je ne vois pas comment =E9tablir le lien entre l'=E9tat=20
et mon formulaire
Quid ?
Pouvez vous m'aider

jm

9 réponses

Avatar
André AVONS
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu mets dans l'evenement
sur clic
'================Copies ============================== Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source de ton etat mettre
le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "# and [DateDelaTABLE]
< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "# and [DateDelaTABLE]
<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message de
news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à date
sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.



Avatar
André AVONS
Salut
Dans la table Changes Date par datexxx
Date est un fonvtion access Date() qui renvoie la date du jour
Il faut aussi changer le nom dans l'etat du control ainsi due de la source
de donnee

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message de
news:040301c359aa$47dca220$
Salut

merci pour ton aide
J ai fait qq modifs et ca marche presque
c est le nom du champs "date" qui plante

Ca fait pkluqieurs fois que je regarde c est bien le même
nom
je comprends pas
J ai essayé avec un autre champs ca marche pas non plus
pourquoi
le sais tu?


jml

-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ============================== >Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description
& ") in procedure

Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à date
sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




Avatar
André AVONS
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message de
news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ============================== >Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description
& ") in procedure

Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à date
sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




Avatar
jean-marie
re- salut
j ai un nouveau message
eror13 (type incompatible) in procedure

?????
connais tu
jm

-----Message d'origine-----
Salut

merci pour ton aide
J ai fait qq modifs et ca marche presque
c est le nom du champs "date" qui plante

Ca fait pkluqieurs fois que je regarde c est bien le même
nom
je comprends pas
J ai essayé avec un autre champs ca marche pas non plus
pourquoi
le sais tu?


jml

-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ========================= ======
Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" &
Err.Description


& ") in procedure
Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.

.






Avatar
jean-marie
Je ne peux pas je suis sur 2 mucro incompatible
et en plus access 97

je peux donner mon tel si tu as 5 min
je e remercie de tes efforts en tt cas

jml

-----Message d'origine-----
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ========================= ======
Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description
& ") in procedure

Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




.





Avatar
jmarie
merci
mais je peux pas
l application est sur un micro sans internet
et la base est trop lourde
mais je vais essayer qd meme
par disquette

sinon je peux te donner mon tel
jm

-----Message d'origine-----
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ========================= ======
Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description
& ") in procedure

Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




.





Avatar
André AVONS
Salut
Crees une base vide
importes la table le form l'eta et compactes la ca devrait faire 50 k
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jmarie" a écrit dans le message de
news:767e01c359b7$1578c770$
merci
mais je peux pas
l application est sur un micro sans internet
et la base est trop lourde
mais je vais essayer qd meme
par disquette

sinon je peux te donner mon tel
jm

-----Message d'origine-----
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ============================== >>Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description
& ") in procedure

Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre l'état
et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




.





Avatar
jean-marie
Je t envoi base simple par mail
est reussi a mettre ca sur disquette
-----Message d'origine-----
Salut
Crees une base vide
importes la table le form l'eta et compactes la ca
devrait faire 50 k

--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jmarie" a écrit dans le message de
news:767e01c359b7$1578c770$
merci
mais je peux pas
l application est sur un micro sans internet
et la base est trop lourde
mais je vais essayer qd meme
par disquette

sinon je peux te donner mon tel
jm

-----Message d'origine-----
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ========================= ======
Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" &
Err.Description



& ") in procedure
Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et
des




compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le
message




de
news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre
l'état




et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




.




.






Avatar
André AVONS
Salut
c'est reparti corrigé

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message de
news:00b201c359e3$3f133ee0$
Je t envoi base simple par mail
est reussi a mettre ca sur disquette
-----Message d'origine-----
Salut
Crees une base vide
importes la table le form l'eta et compactes la ca
devrait faire 50 k

--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jmarie" a écrit dans le message de
news:767e01c359b7$1578c770$
merci
mais je peux pas
l application est sur un micro sans internet
et la base est trop lourde
mais je vais essayer qd meme
par disquette

sinon je peux te donner mon tel
jm

-----Message d'origine-----
Salut
Mets moi dans une mdb la table, l'etat et le formulaire
Sinon on va y passer la nuit
--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:040b01c359ab$a0373c40$
je pense qu il fallat mettre dans option Compare DATABASE
Dim critere as String
?????????
Peux tu me le confirmer

jml



-----Message d'origine-----
Salut
Dans ton formulaire tu crees 2 CHAMPS DATE
DateFormDeb et dateformfin
Puis tu crees un bouton que tu appelles Imprimer et tu
mets dans l'evenement

sur clic
'================Copies ============================== >>>Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click

'* [DatedelaTable] doit etre un champ de la table source
de ton etat mettre

le bon nom
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

< = #" & me.DateFormFin & "# "

'* "NomEtat" mettre le bon nom
DoCmd.OpenReport "NomEtat", acViewPreview, Critere

Fin:
Exit Sub
Err_Imprimer_Click:
MsgBox "Error " & Err.Number & " (" &
Err.Description



& ") in procedure
Imprimer_Click of Document VBA Form_SelectionAnnuaire"
Resume Next
End Sub
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere


--
@+
André

Quelques liens avec des exemples, des utilitaires et des
compléments pour

Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le message
de

news:007001c35921$927bb700$
As tu un exemple concret
je n arrive pas a adapter ta solution
merci encor
jm
-----Message d'origine-----
Salut
regardes l'option critere de Docmd.openreport

du genre
Critere = "[DateDelaTABLE] >= #" & me.DateFormDeb & "#
and [DateDelaTABLE]

<= #" & me.DateFormFin & "# "
DoCmd.OpenReport "NomEtat", acViewPreview, Critere
--
@+
André

Quelques liens avec des exemples, des utilitaires et
des




compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"jean-marie" a écrit dans le
message




de
news:081301c358e7$e11efd20$
Bonjour

J ai créé un état me permettant détablir des factures
clients.
Je souhaite éditer certaines d entre elles de date à
date



sans passer par l'option requete mais en créant un
formulaire indépendant (avec format date)
mais je ne vois pas comment établir le lien entre
l'état




et mon formulaire
Quid ?
Pouvez vous m'aider

jm


.




.




.




.