Bonjour,
Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit :
Set Dbs = CurrentDb
NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount
If NbLignesRetard = 0 Then
MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly +
vbInformation, "Traitement des retards"
Set Dbs = Nothing
' Me.cmdVisuRetards.Enabled = False
End
Else
.........
Existe t'il une commande plus simple du type If IsEmpty(Matable) Then
D'avance merci.
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
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
defluc
Set Table = Dbs.OpenRecordset("Airbus en retard") If Table.BOF = True And Table.EOF = True Then _ MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + _ vbInformation, "Traitement des retards"
Eric RENAUD a écrit:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où. Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
Set Table = Dbs.OpenRecordset("Airbus en retard")
If Table.BOF = True And Table.EOF = True Then _
MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + _
vbInformation, "Traitement des retards"
Eric RENAUD a écrit:
Bonjour,
Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit :
Set Dbs = CurrentDb
NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount
If NbLignesRetard = 0 Then
MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly +
vbInformation, "Traitement des retards"
Set Dbs = Nothing
' Me.cmdVisuRetards.Enabled = False
End
Else
.........
Existe t'il une commande plus simple du type If IsEmpty(Matable) Then
D'avance merci.
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
Set Table = Dbs.OpenRecordset("Airbus en retard") If Table.BOF = True And Table.EOF = True Then _ MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + _ vbInformation, "Traitement des retards"
Eric RENAUD a écrit:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où. Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
Raymond [mvp]
Bonjour.
tu peux toujours utiliser dcount: If DCount("*", "Airbus en retard") = 0 Then MsgBox "Il n'y a pas de retards à traiter.", ....................... end if
qui sera la plus courte en écriture. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" a écrit dans le message de news:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
Bonjour.
tu peux toujours utiliser dcount:
If DCount("*", "Airbus en retard") = 0 Then
MsgBox "Il n'y a pas de retards à traiter.",
.......................
end if
qui sera la plus courte en écriture.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" <erenaud@normandnet.fr> a écrit dans le message de
news:eTYGqSjGEHA.3940@tk2msftngp13.phx.gbl...
Bonjour,
Je dois vérifier si une table est vide afin d'afficher un message au cas
où.
Je n'ai triuvé que le code qui suit :
Set Dbs = CurrentDb
NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount
If NbLignesRetard = 0 Then
MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly +
vbInformation, "Traitement des retards"
Set Dbs = Nothing
' Me.cmdVisuRetards.Enabled = False
End
Else
.........
Existe t'il une commande plus simple du type If IsEmpty(Matable) Then
D'avance merci.
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
tu peux toujours utiliser dcount: If DCount("*", "Airbus en retard") = 0 Then MsgBox "Il n'y a pas de retards à traiter.", ....................... end if
qui sera la plus courte en écriture. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" a écrit dans le message de news:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
J-Pierre
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access pour gérer ses vols d'Airbus......
J-Pierre
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.
tu peux toujours utiliser dcount: If DCount("*", "Airbus en retard") = 0 Then MsgBox "Il n'y a pas de retards à traiter.", ....................... end if
qui sera la plus courte en écriture. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" a écrit dans le message de news:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access pour gérer ses vols d'Airbus......
J-Pierre
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de news:uQHHn4jGEHA.1180@TK2MSFTNGP09.phx.gbl...
Bonjour.
tu peux toujours utiliser dcount:
If DCount("*", "Airbus en retard") = 0 Then
MsgBox "Il n'y a pas de retards à traiter.",
.......................
end if
qui sera la plus courte en écriture.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" <erenaud@normandnet.fr> a écrit dans le message de
news:eTYGqSjGEHA.3940@tk2msftngp13.phx.gbl...
Bonjour,
Je dois vérifier si une table est vide afin d'afficher un message au cas
où.
Je n'ai triuvé que le code qui suit :
Set Dbs = CurrentDb
NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount
If NbLignesRetard = 0 Then
MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly +
vbInformation, "Traitement des retards"
Set Dbs = Nothing
' Me.cmdVisuRetards.Enabled = False
End
Else
.........
Existe t'il une commande plus simple du type If IsEmpty(Matable) Then
D'avance merci.
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access pour gérer ses vols d'Airbus......
J-Pierre
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.
tu peux toujours utiliser dcount: If DCount("*", "Airbus en retard") = 0 Then MsgBox "Il n'y a pas de retards à traiter.", ....................... end if
qui sera la plus courte en écriture. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eric RENAUD" a écrit dans le message de news:
Bonjour, Je dois vérifier si une table est vide afin d'afficher un message au cas où.
Je n'ai triuvé que le code qui suit : Set Dbs = CurrentDb NbLignesRetard = Dbs.OpenRecordset("Airbus en retard").RecordCount If NbLignesRetard = 0 Then MsgBox "Il n'y a pas de retards à traiter.", vbOKOnly + vbInformation, "Traitement des retards" Set Dbs = Nothing ' Me.cmdVisuRetards.Enabled = False End Else ......... Existe t'il une commande plus simple du type If IsEmpty(Matable) Then D'avance merci. ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
Raymond [mvp]
Bonjour J-Pierre.
et un client de perdu pour air-france ! ! !
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de news:
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access pour gérer ses vols d'Airbus......
J-Pierre
Bonjour J-Pierre.
et un client de perdu pour air-france ! ! !
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" <pas.de.pub.jpberchtold@hotmail.com> a écrit dans le message de
news:OFf81HqGEHA.3012@TK2MSFTNGP12.phx.gbl...
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access
pour gérer ses vols d'Airbus......
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de news:
C'est dingue, ça, je n'aurais jamais cru qu'Air France utilisait Access pour gérer ses vols d'Airbus......
J-Pierre
Anor
Salut Raymond,
Raymond [mvp] wrote: | Bonjour. | | tu peux toujours utiliser dcount: | If DCount("*", "Airbus en retard") = 0 Then | MsgBox "Il n'y a pas de retards à traiter.", | ....................... | end if | | qui sera la plus courte en écriture. |
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Salut Raymond,
Raymond [mvp] wrote:
| Bonjour.
|
| tu peux toujours utiliser dcount:
| If DCount("*", "Airbus en retard") = 0 Then
| MsgBox "Il n'y a pas de retards à traiter.",
| .......................
| end if
|
| qui sera la plus courte en écriture.
|
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils
comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre
pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Raymond [mvp] wrote: | Bonjour. | | tu peux toujours utiliser dcount: | If DCount("*", "Airbus en retard") = 0 Then | MsgBox "Il n'y a pas de retards à traiter.", | ....................... | end if | | qui sera la plus courte en écriture. |
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Raymond [mvp]
Bonjour Arnaud.
Access n'est pas prêt de changer et heureusement que tu veilles au grain. Mais access a changé depuis 2000 et les [ ] ne sont pas obligatoires pour les fonctions de domaine lorsqu'il y a des guillemets. DCount("*", "copie de table1", "corr_nom like '*contacter*'") fonctionne très bien sans les crochets. mais tu as raison, les crochets font plus sérieux.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:%23$oVR$
Salut Raymond,
Raymond [mvp] wrote: | Bonjour. | | tu peux toujours utiliser dcount: | If DCount("*", "Airbus en retard") = 0 Then | MsgBox "Il n'y a pas de retards à traiter.", | ....................... | end if | | qui sera la plus courte en écriture. |
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))
Bonjour Arnaud.
Access n'est pas prêt de changer et heureusement que tu veilles au grain.
Mais access a changé depuis 2000 et les [ ] ne sont pas obligatoires pour
les fonctions de domaine lorsqu'il y a des guillemets.
DCount("*", "copie de table1", "corr_nom like '*contacter*'")
fonctionne très bien sans les crochets.
mais tu as raison, les crochets font plus sérieux.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:%23$oVR$zGEHA.2392@tk2msftngp13.phx.gbl...
Salut Raymond,
Raymond [mvp] wrote:
| Bonjour.
|
| tu peux toujours utiliser dcount:
| If DCount("*", "Airbus en retard") = 0 Then
| MsgBox "Il n'y a pas de retards à traiter.",
| .......................
| end if
|
| qui sera la plus courte en écriture.
|
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils
comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre
pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))
Access n'est pas prêt de changer et heureusement que tu veilles au grain. Mais access a changé depuis 2000 et les [ ] ne sont pas obligatoires pour les fonctions de domaine lorsqu'il y a des guillemets. DCount("*", "copie de table1", "corr_nom like '*contacter*'") fonctionne très bien sans les crochets. mais tu as raison, les crochets font plus sérieux.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:%23$oVR$
Salut Raymond,
Raymond [mvp] wrote: | Bonjour. | | tu peux toujours utiliser dcount: | If DCount("*", "Airbus en retard") = 0 Then | MsgBox "Il n'y a pas de retards à traiter.", | ....................... | end if | | qui sera la plus courte en écriture. |
on ne met plus de crochets pour délimiter les noms d'objets lorsqu'ils comprennent des espaces avec Access 2003 ?
If DCount("*", "[Airbus en retard]") = 0 Then
A moins que j'aie loupé la sortie de Access2003 3ème trimestre pour faire patienter avant la sortie de AccessExclusifMars2004 -;))))