Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Code EstVide ou EstNulll?

Code EstVide ou EstNulll?

4 réponses
Avatar
Telesphore
Dans le code suivant, j'aimerais faciliter le travail des secrétaires en
leur évitant d'entrer le texte "Aucune" dans les enregistrement.

Ainsi avec quelle expression doit-on remplacer
If Me.txtImageName= "Aucune"
par EstVide ou EstNul?

Merci

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.txtImageName = "Aucune" Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Pierre CFI [mvp]
bonjour, bonjour
évites de mettre On error resume next si tu ne sais pas gérer les erreurs, car là en cas d'erreur çà marche pas , mais tu crois que
çà marche
mets çà
If Me.txtImageName = "" or IsNull(Me.txtImageName) Then

--
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
"Telesphore" a écrit dans le message de news:uHg$
Dans le code suivant, j'aimerais faciliter le travail des secrétaires en
leur évitant d'entrer le texte "Aucune" dans les enregistrement.

Ainsi avec quelle expression doit-on remplacer
If Me.txtImageName= "Aucune"
par EstVide ou EstNul?

Merci

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.txtImageName = "Aucune" Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub




Avatar
Telesphore
Merci, Pierre

Voici mon nouveau code:

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
'On Error Resume Next
'If Me.txtImageName = "Aucune" Then
If IsNull(Me.txtImageName) Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub

Mais je reçois le message d'erreur suivant:

Erreur d'exécution '2220' :

Microsoft Office Access ne peut ouvrir le fichier

'C:BDPhotosToussaintPaul.jpg'



"Pierre CFI [mvp]" a écrit dans le ...

évites de mettre On error resume next si tu ne sais pas gérer les erreurs,
car là en cas d'erreur çà marche pas , mais tu crois que
çà marche
mets çà
If Me.txtImageName = "" or IsNull(Me.txtImageName) Then

"Telesphore" a écrit
...

Dans le code suivant, j'aimerais faciliter le travail des secrétaires en
leur évitant d'entrer le texte "Aucune" dans les enregistrement.

Ainsi avec quelle expression doit-on remplacer
If Me.txtImageName= "Aucune"
par EstVide ou EstNul?

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.txtImageName = "Aucune" Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub






Avatar
Telesphore
Voici le code qui focntionne bien maintenant.

Grand merci.

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.txtImageName) Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub
Avatar
Pierre CFI [mvp]
.../...
tu vois, si tu avais laissé le On error resume next, tu n'aurais jamais vu qu'il y avait une erreur :o)

--
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
"Telesphore" a écrit dans le message de news:
Voici le code qui focntionne bien maintenant.

Grand merci.

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.txtImageName) Then
Me.ImageFrame.Picture = ""
Me.ImageFrame.Visible = False
Else
Me.ImageFrame.Picture = Me.txtImageName
Me.ImageFrame.Visible = True
End If
End Sub