J'ai d=E9velopp=E9 une application Access 97, en d=E9finnissant=20
pour chaque formulaire une image de fond attach=E9e sur un=20
r=E9pertoire C:\MonRep\MonImage.jpg
Existe t'il une routine, ou un moyen automatique pour=20
modifier la propri=E9t=E9 image de chacun de mes formulaires=20
pour d=E9finir un nouveau r=E9pertoire (par exemple :=20
P:\MonREp\MonIMage.jpg) ou dois je me taper la modif=20
manuellement en ouvrant chaque formulaire ?
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
3stone
Salut,
"el-joker" a écrit J'ai développé une application Access 97, en définnissant pour chaque formulaire une image de fond attachée sur un répertoire C:MonRepMonImage.jpg
Existe t'il une routine, ou un moyen automatique pour modifier la propriété image de chacun de mes formulaires pour définir un nouveau répertoire (par exemple : P:MonREpMonIMage.jpg) ou dois je me taper la modif manuellement en ouvrant chaque formulaire ?
Une petite fonction que tu colle dans un nouveau module "mod_ChangePicture"
Pour l'exécuter, tu l'appelle dans le fenêtre exécution imédiate ( ctrl g )
ChangePicture("C:CheminCompletMonImage.bmp")
'//--- début ----
Function ChangePicture(strPathPicture) '// Permet de modifier l'image de fond de tous les formulaires '// en donnant comme paramètre le chemin complet de '// l'image avec son extention. '// ex: ChangePicture("C:DossierMonImage.bmp") '// 3stone
Dim nb As Integer Dim nf As String Dim db As DAO.Database Set db = CurrentDb()
If Dir(strPathPicture) <> "" Then For nb = 0 To db.Containers("Forms").Documents.Count - 1 nf = db.Containers("Forms").Documents(nb).Name DoCmd.OpenForm nf, acDesign, , , , acHidden Forms(nf).Picture = strPathPicture DoCmd.Close acForm, nf, acSaveYes Next Else MsgBox "Chemin image non valide..." End If
Set db = Nothing
End Function
'// --- fin ---
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
"el-joker" <el-joker@caramail.com> a écrit
J'ai développé une application Access 97, en définnissant
pour chaque formulaire une image de fond attachée sur un
répertoire C:MonRepMonImage.jpg
Existe t'il une routine, ou un moyen automatique pour
modifier la propriété image de chacun de mes formulaires
pour définir un nouveau répertoire (par exemple :
P:MonREpMonIMage.jpg) ou dois je me taper la modif
manuellement en ouvrant chaque formulaire ?
Une petite fonction que tu colle dans un nouveau module "mod_ChangePicture"
Pour l'exécuter, tu l'appelle dans le fenêtre exécution imédiate ( ctrl g )
ChangePicture("C:CheminCompletMonImage.bmp")
'//--- début ----
Function ChangePicture(strPathPicture)
'// Permet de modifier l'image de fond de tous les formulaires
'// en donnant comme paramètre le chemin complet de
'// l'image avec son extention.
'// ex: ChangePicture("C:DossierMonImage.bmp")
'// 3stone
Dim nb As Integer
Dim nf As String
Dim db As DAO.Database
Set db = CurrentDb()
If Dir(strPathPicture) <> "" Then
For nb = 0 To db.Containers("Forms").Documents.Count - 1
nf = db.Containers("Forms").Documents(nb).Name
DoCmd.OpenForm nf, acDesign, , , , acHidden
Forms(nf).Picture = strPathPicture
DoCmd.Close acForm, nf, acSaveYes
Next
Else
MsgBox "Chemin image non valide..."
End If
Set db = Nothing
End Function
'// --- fin ---
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
"el-joker" a écrit J'ai développé une application Access 97, en définnissant pour chaque formulaire une image de fond attachée sur un répertoire C:MonRepMonImage.jpg
Existe t'il une routine, ou un moyen automatique pour modifier la propriété image de chacun de mes formulaires pour définir un nouveau répertoire (par exemple : P:MonREpMonIMage.jpg) ou dois je me taper la modif manuellement en ouvrant chaque formulaire ?
Une petite fonction que tu colle dans un nouveau module "mod_ChangePicture"
Pour l'exécuter, tu l'appelle dans le fenêtre exécution imédiate ( ctrl g )
ChangePicture("C:CheminCompletMonImage.bmp")
'//--- début ----
Function ChangePicture(strPathPicture) '// Permet de modifier l'image de fond de tous les formulaires '// en donnant comme paramètre le chemin complet de '// l'image avec son extention. '// ex: ChangePicture("C:DossierMonImage.bmp") '// 3stone
Dim nb As Integer Dim nf As String Dim db As DAO.Database Set db = CurrentDb()
If Dir(strPathPicture) <> "" Then For nb = 0 To db.Containers("Forms").Documents.Count - 1 nf = db.Containers("Forms").Documents(nb).Name DoCmd.OpenForm nf, acDesign, , , , acHidden Forms(nf).Picture = strPathPicture DoCmd.Close acForm, nf, acSaveYes Next Else MsgBox "Chemin image non valide..." End If
Set db = Nothing
End Function
'// --- fin ---
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
