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 Formulaire existant

Formulaire existant

7 réponses
Avatar
doudou
Bonjour

J'aimerais avoir le code pour tester si un formulaire existe dans la base de données

if formulaire_existe(form1) the

Merci d'avanc
Signaler un problème avec ce contenu

7 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
function formExist(NomForm As Stream) as Boolean
Dim f As Document, MaBd As Database
Set MaBd = CurrentDb
On Error Resume Next
Set f = MaBd.Containers("forms").Documents(NomForm)
If Err = 0 Then
formExist =True
Else
formExist = False
End If
Err.Clear
Set f = Nothing
End function
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"doudou" a écrit dans le message de news:
Bonjour,

J'aimerais avoir le code pour tester si un formulaire existe dans la base de données ?

if formulaire_existe(form1) then

Merci d'avance



Avatar
Eric
Bonjour Pierre

"Pierre CFI [mvp]" écrivait :


function formExist(NomForm As Stream) as Boolean


NomForm As Stream ??? je connaissais pas ca !

Eric

Avatar
Pierre CFI [mvp]
oui, si je mets string ma femme me traite d'obsédé :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Eric" a écrit dans le message de news:
Bonjour Pierre

"Pierre CFI [mvp]" écrivait :


function formExist(NomForm As Stream) as Boolean


NomForm As Stream ??? je connaissais pas ca !

Eric




Avatar
Jessy Sempere [MVP]
Ben oui moi aussi après je me fais disputer...
Du coup maintenant, j'utilise :

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

;-)))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:

oui, si je mets string ma femme me traite d'obsédé :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr


Avatar
Eric
Bonjour Jessy

"Jessy Sempere [MVP]" écrivait:

Ben oui moi aussi après je me fais disputer...
Du coup maintenant, j'utilise :

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long )

C'est bien là, une activité de tout repos, me parait-il


;-)
Eric

Avatar
doudou
Merci à tous pour vos renseignemen

et sinon

function longueu

if longueur < 25 the
longueur = longueur *
els
msgbox "Rocco
end i

end function
Avatar
Jean-Claude
Moi mon problème est un peu différent. Si j'en mets un je ne peux plus le
retirer.
"Pierre CFI [mvp]" a écrit dans le message de
news:
oui, si je mets string ma femme me traite d'obsédé :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Eric" a écrit dans le message de
news:

Bonjour Pierre

"Pierre CFI [mvp]" écrivait :


function formExist(NomForm As Stream) as Boolean


NomForm As Stream ??? je connaissais pas ca !

Eric