Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
bonjour
tu as + simple
dim n as integer
n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de news:O1ZAowEBFHA.3664@TK2MSFTNGP14.phx.gbl...
Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
B
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
Salut
OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET
car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci.
@ +
b(°!°)rbbu
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: Os$hFwFBFHA.1388@TK2MSFTNGP09.phx.gbl...
bonjour
tu as + simple
dim n as integer
n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de
news:O1ZAowEBFHA.3664@TK2MSFTNGP14.phx.gbl...
Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16
et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
Pierre CFI [mvp]
.../.... de toutes façons, pour avoir une bonne valeur de RecordCount , il faut faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:%
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
.../....
de toutes façons, pour avoir une bonne valeur de RecordCount , il faut faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast
RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de news:%23B2f5tQBFHA.1408@TK2MSFTNGP10.phx.gbl...
Salut
OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET
car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci.
@ +
b(°!°)rbbu
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: Os$hFwFBFHA.1388@TK2MSFTNGP09.phx.gbl...
bonjour
tu as + simple
dim n as integer
n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de
news:O1ZAowEBFHA.3664@TK2MSFTNGP14.phx.gbl...
Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16
et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
.../.... de toutes façons, pour avoir une bonne valeur de RecordCount , il faut faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:%
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
Robert Parise
Question:
Est-ce qu'on peut ensuite utiliser ce recordset comme recordsource d'un formulaire Genre
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
Question:
Est-ce qu'on peut ensuite utiliser ce recordset comme recordsource d'un
formulaire
Genre
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de news:
%23B2f5tQBFHA.1408@TK2MSFTNGP10.phx.gbl...
Salut
OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET
car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci.
@ +
b(°!°)rbbu
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: Os$hFwFBFHA.1388@TK2MSFTNGP09.phx.gbl...
bonjour
tu as + simple
dim n as integer
n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de
news:O1ZAowEBFHA.3664@TK2MSFTNGP14.phx.gbl...
Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16
et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
B
Merci bien monsieur CFI, Je devrai pouvoir m'en sortir ... @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news:
.../.... de toutes façons, pour avoir une bonne valeur de RecordCount , il faut faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:%
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
Merci bien monsieur CFI,
Je devrai pouvoir m'en sortir ...
@ +
b(°!°)rbbu
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eV4qUmRBFHA.2316@TK2MSFTNGP15.phx.gbl...
.../....
de toutes façons, pour avoir une bonne valeur de RecordCount , il faut
faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast
RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de
news:%23B2f5tQBFHA.1408@TK2MSFTNGP10.phx.gbl...
Salut
OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET
car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci.
@ +
b(°!°)rbbu
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: Os$hFwFBFHA.1388@TK2MSFTNGP09.phx.gbl...
bonjour
tu as + simple
dim n as integer
n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1=
'Tennis'")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"B@rbbu" <FOdadpub@SPAMtiscali.fr> a écrit dans le message de
news:O1ZAowEBFHA.3664@TK2MSFTNGP14.phx.gbl...
Bonjour Mesdames, Messieurs,
Pouvez-vous me dire ce qui cloche dans ce code :
' *********************************************
Dim RstSport As Recordset
Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1"
MonTX = MonTX & " FROM MaTable1"
MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))"
MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS",
vbInformation, "Valeur du jeu :"
End If
' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de
16
et
ça me renvoie 1259 qui est le Nb total toutes années ! ! !
Merci.
@ +
b(°!°)rbbu
Merci bien monsieur CFI, Je devrai pouvoir m'en sortir ... @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news:
.../.... de toutes façons, pour avoir une bonne valeur de RecordCount , il faut faire un aller/retour
If Not RstSport.EOF Then
RstSport.movelast RstSport.movefirst
MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:%
Salut OK mais c'est pas le count qui m'intereresse vraiment, c'est le RECORDSET car j'aurais à en extraire un enregistrement (si je m'en sort !) ...
Merci. @ + b(°!°)rbbu
"Pierre CFI [mvp]" a écrit dans le message de news: Os$
bonjour tu as + simple dim n as integer n= dcount("*","table1","Year([Date1])=Year(Date()) AND Type1= 'Tennis'")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "" a écrit dans le message de news:
Bonjour Mesdames, Messieurs, Pouvez-vous me dire ce qui cloche dans ce code :
' ********************************************* Dim RstSport As Recordset Dim MonTX As String
MonTX = "SELECT MaTable1.CODET1, MaTable1.Date1, MaTable1.Type1" MonTX = MonTX & " FROM MaTable1" MonTX = MonTX & " WHERE ((Year([MaTable1.Date1])=Year(Date()))" MonTX = MonTX & " AND ((MaTable1.Type1)= 'Tennis'))"
Set RstSport = CurrentDb().OpenRecordset(MonTX)
If Not RstSport.EOF Then MsgBox "il y a " & RstSport.RecordCount & " fiches TENNIS", vbInformation, "Valeur du jeu :" End If ' *********************************************
Normalement le nombre de fiche tennis pour l'année 2005 doit etre de 16 et ça me renvoie 1259 qui est le Nb total toutes années ! ! ! Merci. @ + b(°!°)rbbu
