Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access variable pour un report

variable pour un report

3 réponses
Avatar
fth
Bonjour,
afin de ne pas devoir refaire tout mes formulaire en cas de modif, j'ai créé
une table "MyCompany" dans laquelle j'ai toutes mes infos société.

je cherche donc à inclure ces infos dans me formulaires (sans y parvenir
...)
j'utilise ce code:

Private Sub Report_Open(Cancel As Integer)
Dim name1
Dim name2
Dim adresse1
Dim adresse2
Dim zcode
Dim CITY
Dim country
Dim VAT
Dim rc
Dim footerlabel As String



name1 = Nz(DLookup("name1", "matlocbe"))
name2 = Nz(DLookup("name2", "matlocbe"))
adresse1 = Nz(DLookup("adresse1", "matlocbe"))
adresse2 = Nz(DLookup("adresse2", "matlocbe"))

FooterLabel = name1 & adresse1

End Sub

j'ai toujours une erreur me signalant que je ne peux pas attribuer de valeur
au champs footerlabel figurant dans mon reportet qui doit servir à afficher
mes infos.

ou me goure-je?

d'avance merci

Frédéric
Signaler un problème avec ce contenu

3 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
Raymond [mvp]
Bonjour.

vu comme ça, ça doit marcher.
place un arrêt sur chaque ligne pour vérifier si tu récupères bien les
bonnes valeurs.
il serait préférable d'indiquer tes fonctions comme ceci:
Dim name1 As String
Dim name2 As String
Dim adresse1 As String
Dim adresse2 As String
Dim FooterLabel As String
name1 = Nz(DLookup("name1", "matlocbe"),"")
name2 = Nz(DLookup("name2", "matlocbe"),"")
adresse1 = Nz(DLookup("adresse1", "matlocbe"),"")
adresse2 = Nz(DLookup("adresse2", "matlocbe"),"")

FooterLabel = name1 & name2

--
@+
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


"fth" a écrit dans le message de news:

Bonjour,
afin de ne pas devoir refaire tout mes formulaire en cas de modif, j'ai
créé une table "MyCompany" dans laquelle j'ai toutes mes infos société.

je cherche donc à inclure ces infos dans me formulaires (sans y parvenir
...)
j'utilise ce code:

Private Sub Report_Open(Cancel As Integer)
Dim name1
Dim name2
Dim adresse1
Dim adresse2
Dim zcode
Dim CITY
Dim country
Dim VAT
Dim rc
Dim footerlabel As String



name1 = Nz(DLookup("name1", "matlocbe"))
name2 = Nz(DLookup("name2", "matlocbe"))
adresse1 = Nz(DLookup("adresse1", "matlocbe"))
adresse2 = Nz(DLookup("adresse2", "matlocbe"))

FooterLabel = name1 & adresse1

End Sub

j'ai toujours une erreur me signalant que je ne peux pas attribuer de
valeur au champs footerlabel figurant dans mon reportet qui doit servir à
afficher mes infos.

ou me goure-je?

d'avance merci

Frédéric





Avatar
fth
Bonjour Raymond,

comique, j'ai une page blanche!
bon, pour redemarrer après les vacances, une page blanche, c'est bien...mais
pour mon rapport glup!
merci pour ton info

précision:
footerlabel est le nom de mon text box sur mon rapport
faut pas un me.footerlabel ou qq chose du genre?

autre petite question: metre un point d'arret? qu'est-ce?
et surtout : comment?

merci et bonen Aprem

Frederic


"Raymond [mvp]" wrote in message
news:
Bonjour.

vu comme ça, ça doit marcher.
place un arrêt sur chaque ligne pour vérifier si tu récupères bien les
bonnes valeurs.
il serait préférable d'indiquer tes fonctions comme ceci:
Dim name1 As String
Dim name2 As String
Dim adresse1 As String
Dim adresse2 As String
Dim FooterLabel As String
name1 = Nz(DLookup("name1", "matlocbe"),"")
name2 = Nz(DLookup("name2", "matlocbe"),"")
adresse1 = Nz(DLookup("adresse1", "matlocbe"),"")
adresse2 = Nz(DLookup("adresse2", "matlocbe"),"")

FooterLabel = name1 & name2

--
@+
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


"fth" a écrit dans le message de news:

Bonjour,
afin de ne pas devoir refaire tout mes formulaire en cas de modif, j'ai
créé une table "MyCompany" dans laquelle j'ai toutes mes infos société.

je cherche donc à inclure ces infos dans me formulaires (sans y parvenir
...)
j'utilise ce code:

Private Sub Report_Open(Cancel As Integer)
Dim name1
Dim name2
Dim adresse1
Dim adresse2
Dim zcode
Dim CITY
Dim country
Dim VAT
Dim rc
Dim footerlabel As String



name1 = Nz(DLookup("name1", "matlocbe"))
name2 = Nz(DLookup("name2", "matlocbe"))
adresse1 = Nz(DLookup("adresse1", "matlocbe"))
adresse2 = Nz(DLookup("adresse2", "matlocbe"))

FooterLabel = name1 & adresse1

End Sub

j'ai toujours une erreur me signalant que je ne peux pas attribuer de
valeur au champs footerlabel figurant dans mon reportet qui doit servir à
afficher mes infos.

ou me goure-je?

d'avance merci

Frédéric









Avatar
Raymond [mvp]
Bonsoir;

footerlabel étant une variable, il ne faut pas mettre le Me.

pour faire un point d'arrêt tu passes en vb editor et tu cliques sur la
ligne grisée placée à gauche. un point marron va s'afficher qui indique que
le déroulement va s'arrêter sur cette ligne et tu peux ainsi connaître les
valeurs de toutes les données en passant le curseur dessus. en exécution, tu
fais F5 pour passer à la ligne suivante avace arrêt au prochain point. pour
supprimer tous les points, menu debogage et effacer tous les points d'arrêt.
--
@+
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


"fth" a écrit dans le message de news:

Bonjour Raymond,

comique, j'ai une page blanche!
bon, pour redemarrer après les vacances, une page blanche, c'est
bien...mais pour mon rapport glup!
merci pour ton info

précision:
footerlabel est le nom de mon text box sur mon rapport
faut pas un me.footerlabel ou qq chose du genre?

autre petite question: metre un point d'arret? qu'est-ce?
et surtout : comment?

merci et bonen Aprem

Frederic


"Raymond [mvp]" wrote in message
news:
Bonjour.

vu comme ça, ça doit marcher.
place un arrêt sur chaque ligne pour vérifier si tu récupères bien les
bonnes valeurs.
il serait préférable d'indiquer tes fonctions comme ceci:
Dim name1 As String
Dim name2 As String
Dim adresse1 As String
Dim adresse2 As String
Dim FooterLabel As String
name1 = Nz(DLookup("name1", "matlocbe"),"")
name2 = Nz(DLookup("name2", "matlocbe"),"")
adresse1 = Nz(DLookup("adresse1", "matlocbe"),"")
adresse2 = Nz(DLookup("adresse2", "matlocbe"),"")

FooterLabel = name1 & name2

--
@+
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


"fth" a écrit dans le message de news:

Bonjour,
afin de ne pas devoir refaire tout mes formulaire en cas de modif, j'ai
créé une table "MyCompany" dans laquelle j'ai toutes mes infos société.

je cherche donc à inclure ces infos dans me formulaires (sans y parvenir
...)
j'utilise ce code:

Private Sub Report_Open(Cancel As Integer)
Dim name1
Dim name2
Dim adresse1
Dim adresse2
Dim zcode
Dim CITY
Dim country
Dim VAT
Dim rc
Dim footerlabel As String



name1 = Nz(DLookup("name1", "matlocbe"))
name2 = Nz(DLookup("name2", "matlocbe"))
adresse1 = Nz(DLookup("adresse1", "matlocbe"))
adresse2 = Nz(DLookup("adresse2", "matlocbe"))

FooterLabel = name1 & adresse1

End Sub

j'ai toujours une erreur me signalant que je ne peux pas attribuer de
valeur au champs footerlabel figurant dans mon reportet qui doit servir
à afficher mes infos.

ou me goure-je?

d'avance merci

Frédéric