Il manquait le & devant "2000.mdb" Pour les autres si prob, tu le signales ;-)
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset
Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai:
strSQL ="SELECT AppliPath, AppliName From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend
Par contre il te faut tester si rst ne contient rien, cas qui peut se
produire.
Donc :
If rst.BOF and rst.EOF then
Set rst= Nothing
Exit Sub
End If
rst.MoveFirst
While Not rst.EOF
...
' le code donné précédemment
Wend
...
End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent
pas être migrer.
J'ai pour ce faire ceci:
ublic Sub DoSql()
Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _
"FROM Appli " & _
"WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR
(((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
fth
Re, c'est super, J'ai appris bcp sur ce coup la Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" wrote in message news:
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Re,
c'est super,
J'ai appris bcp sur ce coup la
Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" <f_framZZ@hotmail.com> wrote in message
news:uIxh7kTjFHA.1412@TK2MSFTNGP09.phx.gbl...
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset
Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai:
strSQL ="SELECT AppliPath, AppliName From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend
Par contre il te faut tester si rst ne contient rien, cas qui peut se
produire.
Donc :
If rst.BOF and rst.EOF then
Set rst= Nothing
Exit Sub
End If
rst.MoveFirst
While Not rst.EOF
...
' le code donné précédemment
Wend
...
End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne
doivent pas être migrer.
J'ai pour ce faire ceci:
ublic Sub DoSql()
Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _
"FROM Appli " & _
"WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2))
OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Re, c'est super, J'ai appris bcp sur ce coup la Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" wrote in message news:
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Jessy Sempere [MVP]
"fth" disait :
et bon long week end .;si tu fais le pont !
;-))) Tu sais que le pont c'était le WE dernier, me dit pas que tu as travailler le jeudi dernier...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "fth" a écrit dans le message news:
Re, c'est super, J'ai appris bcp sur ce coup la Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" wrote in message news:
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
"fth" disait :
et bon long week end .;si tu fais le pont !
;-)))
Tu sais que le pont c'était le WE dernier, me dit pas que tu
as travailler le jeudi dernier...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"fth" <newsgrp@matloc.be> a écrit dans le message news:
OKfOftTjFHA.708@TK2MSFTNGP09.phx.gbl...
Re,
c'est super,
J'ai appris bcp sur ce coup la
Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" <f_framZZ@hotmail.com> wrote in message
news:uIxh7kTjFHA.1412@TK2MSFTNGP09.phx.gbl...
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset
Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai:
strSQL ="SELECT AppliPath, AppliName From Appli "
strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend
Par contre il te faut tester si rst ne contient rien, cas qui peut se
produire.
Donc :
If rst.BOF and rst.EOF then
Set rst= Nothing
Exit Sub
End If
rst.MoveFirst
While Not rst.EOF
...
' le code donné précédemment
Wend
...
End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne
doivent pas être migrer.
J'ai pour ce faire ceci:
ublic Sub DoSql()
Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _
"FROM Appli " & _
"WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2))
OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
--
A+
Eric
http://users.skynet.be/mpfa/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
;-))) Tu sais que le pont c'était le WE dernier, me dit pas que tu as travailler le jeudi dernier...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "fth" a écrit dans le message news:
Re, c'est super, J'ai appris bcp sur ce coup la Merci
et bon long week end .;si tu fais le pont !
Frédéric
"Eric" wrote in message news:
re,
Ajouter en tête de procédure sous Dim rst As DAO.Recordset Dim strSQL as String
puis au choix en fonction que tu veux "voir" peridicity ou non
strSQL ="SELECT AppliPath, AppliName, peridicity From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Si c'est juste pour filtrer alors je mettrai: strSQL ="SELECT AppliPath, AppliName From Appli " strSQL = strSQL & "WHERE peridicity between 1 and 3;"
Set rst = CurrentDb.OpenRecordset(strSQL)
and now, tu peux boucler sur rst avec le while ... Wend Par contre il te faut tester si rst ne contient rien, cas qui peut se produire. Donc : If rst.BOF and rst.EOF then Set rst= Nothing Exit Sub End If rst.MoveFirst While Not rst.EOF ... ' le code donné précédemment Wend ... End Sub
On pourrait faire plus propre, mais bon ... ;-)
Voilà
Re salut Eric,
ça fonctionne bien.
encore une petite finesse ...
le recordset correspond à un filtrage. De fait, toutes les bases ne doivent pas être migrer. J'ai pour ce faire ceci:
ublic Sub DoSql() Dim Sql As String
Sql = ("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
DoCmd.RunSQL Sql
End Sub
Comment en faire le recordset nécéssaire à la fonction?
Bàt,
Frédéric
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
