OVH Cloud OVH Cloud

Ai s

25 réponses
Avatar
lecrol
Bonjour,

J'ai une variable "rep" commune à 2 formulaires.
Je l'ai définie dans un module:
--------
Public Sub Modul_rep( )
Public rep As Integer
End sub
---------------
Déjà, est-ce correct ? Je n'en suis pas sûr.

Mais je ne sais pas comment "lancer" ce module depuis l'un ou l'autre de mes
formulaires, par exemple dans mon code VBA d'évènement "sur activation"
Merci de vos lumières
Roland

10 réponses

1 2 3
Avatar
Michel__D
Bonjour,

lecrol a écrit :
Génial. Tu es vraiment sympa Mais je n'ai pas ton adresse e-mail et
"cjoint.com" me la demande. Moi, c'est
Roland



Pas besoin de mon adresse mail puisque tu vas permettre à tous le
monde d'accéder à un fichier (ta base Access zippé), donc lorsque tu
es sur le site de cjoint.com, tu fais joindre un fichier (ta base)
puis tu clique sur le bouton "Créer le lien Cjoint" et tu fournis
le lien qui a été généré.
Avatar
lecrol
http://cjoint.com/?dgtYPovyQC

voilà le lien. Sur le menu tu prends "consultation stocks" Tu modifies un
champ "Description par exemple", et à la femeture du menu général tu devrais
avoir la date de dernière modif qui s'affiche ... si ça marche bien !!
Merci d'av.
Roland
Avatar
Michel__D
lecrol a écrit :
http://cjoint.com/?dgtYPovyQC

voilà le lien. Sur le menu tu prends "consultation stocks" Tu modifies un
champ "Description par exemple", et à la femeture du menu général tu devrais
avoir la date de dernière modif qui s'affiche ... si ça marche bien !!
Merci d'av.
Roland



Heu, c'est pas ton adresse mail, mais ta base (zippée de préférence) qu'il faut fournir.
Avatar
lecrol
http://cjoint.com/?dgtYPovyQC

Quand je joins mon fichier mdb et que j'ajoute aussi mon adresse e-mail,
voilà le lien que j'obtiens. C'est pas bon ?


"Michel__D" wrote:

lecrol a écrit :
> http://cjoint.com/?dgtYPovyQC
>
> voilà le lien. Sur le menu tu prends "consultation stocks" Tu modifies un
> champ "Description par exemple", et à la femeture du menu général tu devrais
> avoir la date de dernière modif qui s'affiche ... si ça marche bien !!
> Merci d'av.
> Roland

Heu, c'est pas ton adresse mail, mais ta base (zippée de préférence) qu'il faut fournir.



Avatar
lecrol
http://cjoint.com/?dguUaRCt5Q
J'ai eu aussi celui-là !

"Michel__D" wrote:

lecrol a écrit :
> http://cjoint.com/?dgtYPovyQC
>
> voilà le lien. Sur le menu tu prends "consultation stocks" Tu modifies un
> champ "Description par exemple", et à la femeture du menu général tu devrais
> avoir la date de dernière modif qui s'affiche ... si ça marche bien !!
> Merci d'av.
> Roland

Heu, c'est pas ton adresse mail, mais ta base (zippée de préférence) qu'il faut fournir.



Avatar
Michel__D
lecrol a écrit :
http://cjoint.com/?dgtYPovyQC

Quand je joins mon fichier mdb et que j'ajoute aussi mon adresse e-mail,
voilà le lien que j'obtiens. C'est pas bon ?



Ne joins QUE ton fichier mdb.

PS:C'est simple pour savoir si c'est bon, essaye de récupérer ton
fichier via le lien généré.
Avatar
lecrol
http://cjoint.com/?dguUaRCt5Q
ça y est ! Voila le lien que j'obtiens J'avais oublié de zipper ma base
Merci, Michel
Roland
Avatar
lecrol
http://cjoint.com/?dhhRePckl0
comme tu le vois, je suis vraiment "bleu" avec ce cjoint Cette fois, après
vérif du lien, je crois qu'il est bon Pardonne moi mes aller-retours

Merci
Roland
Avatar
Eric
Bonjour,

Ca ne va toujours pas. Il n' y a que ton adresse mail.
Il faut que tu cliques sur le bouton Choisir le fichier puis tu
sélectionnes ta bd zippée, celui-ci s'affiche à côté du bouton, et enfin
tu cliques sur le bouton Créer le lien que tu recopies ici sur le NG.
PS : ce n'est pas nécessaire de mettre ton mail

lecrol a écrit :
http://cjoint.com/?dguUaRCt5Q
ça y est ! Voila le lien que j'obtiens J'avais oublié de zipper ma base
Merci, Michel
Roland





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Gilbert
Bonjour,

J'ai regardé ta base. Si j'ai bien compris,tu veux afficher sur ton menu
principal la date de dernière modif de ta base.
Dans ce cas tu ajoutes à ton formulaire stock la procédure suivante :

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then 'teste si les données ont été modifiées
DoCmd.RunSQL "UPDATE Datmaj SET Datmaj.derdate = Date()" 'met à jour
la date dans la table
End If
End Sub

et tu peux enlever toutes les lignes
Datedermaj = Date
Valeur_rep 1
dans les toutes Sub xxxxxxx_AfterUpdate

--
Cordialement,

Gilbert


"lecrol" a écrit dans le message de
news:
http://cjoint.com/?dhhRePckl0
comme tu le vois, je suis vraiment "bleu" avec ce cjoint Cette fois, après
vérif du lien, je crois qu'il est bon Pardonne moi mes aller-retours

Merci
Roland




1 2 3