J'ai créé une importation d'une feuille Xls avec un click sur un bouton,
cela fonctionne très bien, maintenant je voudrais lorsque je n'ai aucune
donnée à importer, qu'un message personnalisé imforme l'utilisateur que la
feuile XLS est vide. Je dois faire une condition mais je ne sais pas comment
l'écrire par rapport à la feuille Xls.
voici mon code, j'ai le problème entre IF ..... >0 then
--------------------------------------------------------------------
' Vérification si adhérent à Importater sur feuille XLS
If ......................> 0 Then
' importation nouveaux adhérents
DoCmd.TransferSpreadsheet acImport, , "TABLE", "FICHIER_XLS", True
Else
'ouvrir formulaire d'erreur personnalisé
DoCmd.OpenForm "frm_erreur_Xls"
End If
--------------------------------------------------------------------
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
Raymond [mvp]
Bonjour.
faire un dcount de ta table pour vérifier la présence d'un enregistrement: Vérification si adhérent à Importater sur feuille XLS If DCount("*", "TABLE") > 0 Then ' importation nouveaux adhérents
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Phil" a écrit dans le message de news:
Bonjour à tous
J'ai créé une importation d'une feuille Xls avec un click sur un bouton, cela fonctionne très bien, maintenant je voudrais lorsque je n'ai aucune donnée à importer, qu'un message personnalisé imforme l'utilisateur que la feuile XLS est vide. Je dois faire une condition mais je ne sais pas comment l'écrire par rapport à la feuille Xls.
voici mon code, j'ai le problème entre IF ..... >0 then -------------------------------------------------------------------- ' Vérification si adhérent à Importater sur feuille XLS If ......................> 0 Then ' importation nouveaux adhérents DoCmd.TransferSpreadsheet acImport, , "TABLE", "FICHIER_XLS", True Else 'ouvrir formulaire d'erreur personnalisé DoCmd.OpenForm "frm_erreur_Xls" End If --------------------------------------------------------------------
Merci d'avance à tous pour l'aide à venir
Phil
Bonjour.
faire un dcount de ta table pour vérifier la présence d'un enregistrement:
Vérification si adhérent à Importater sur feuille XLS
If DCount("*", "TABLE") > 0 Then
' importation nouveaux adhérents
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Phil" <Phil@discussions.microsoft.com> a écrit dans le message de news:
E1395350-5843-43B7-BE26-25A8F60554AD@microsoft.com...
Bonjour à tous
J'ai créé une importation d'une feuille Xls avec un click sur un bouton,
cela fonctionne très bien, maintenant je voudrais lorsque je n'ai aucune
donnée à importer, qu'un message personnalisé imforme l'utilisateur que la
feuile XLS est vide. Je dois faire une condition mais je ne sais pas
comment
l'écrire par rapport à la feuille Xls.
voici mon code, j'ai le problème entre IF ..... >0 then
--------------------------------------------------------------------
' Vérification si adhérent à Importater sur feuille XLS
If ......................> 0 Then
' importation nouveaux adhérents
DoCmd.TransferSpreadsheet acImport, , "TABLE", "FICHIER_XLS", True
Else
'ouvrir formulaire d'erreur personnalisé
DoCmd.OpenForm "frm_erreur_Xls"
End If
--------------------------------------------------------------------
faire un dcount de ta table pour vérifier la présence d'un enregistrement: Vérification si adhérent à Importater sur feuille XLS If DCount("*", "TABLE") > 0 Then ' importation nouveaux adhérents
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Phil" a écrit dans le message de news:
Bonjour à tous
J'ai créé une importation d'une feuille Xls avec un click sur un bouton, cela fonctionne très bien, maintenant je voudrais lorsque je n'ai aucune donnée à importer, qu'un message personnalisé imforme l'utilisateur que la feuile XLS est vide. Je dois faire une condition mais je ne sais pas comment l'écrire par rapport à la feuille Xls.
voici mon code, j'ai le problème entre IF ..... >0 then -------------------------------------------------------------------- ' Vérification si adhérent à Importater sur feuille XLS If ......................> 0 Then ' importation nouveaux adhérents DoCmd.TransferSpreadsheet acImport, , "TABLE", "FICHIER_XLS", True Else 'ouvrir formulaire d'erreur personnalisé DoCmd.OpenForm "frm_erreur_Xls" End If --------------------------------------------------------------------