les Controles ActiveX et les tables

**YvesP** · 29/08/2006, 09h50

Bonjour,

Je souhaiterais savoir comment avecter le contenu d'un control activeX au chan d'une table. posé comme ca la question semble simpliste, mais le CtrlActiveX LanDesk Date Control ne comporte pas de source de controle dans ces proprietés.
Exemple,
Un formulaire F_Date1 comporte deux CtrlActiveX LanDesk Date Control
Le premier Crt_DateDeb et un second Crt_DateFin
Les données de ces 2 controle doivent etre stokés respectivement dans une table T_Date dans les chans DateDeb et dateFin.

Ma question est simple pour un programmeur confirmé mais voila un certain temps que je me casse la tete sans trouver la solution.

Merci de vos reponces

Cordialement

Yves

**argyronet** · 29/08/2006, 11h37

Bonjour,

Un peu plus de clareté serait opportune pour la réponse...

Bonjour,

Je souhaiterais savoir comment avecter le contenu d'un control activeX au chan d'une table. posé comme ca la question semble simpliste, mais le CtrlActiveX LanDesk Date Control ne comporte pas de source de controle dans ces proprietés.
Exemple,
Un formulaire F_Date1 comporte deux CtrlActiveX LanDesk Date Control
Le premier Crt_DateDeb et un second Crt_DateFin
Les données de ces 2 controle doivent etre stokés respectivement dans une table T_Date dans les chans DateDeb et dateFin.
Yves

Qui doit faire quoi et quoi est dans où ?

Argy

**YvesP** · 29/08/2006, 12h19

Qui doit faire quoi et quoi est dans où ?

Désolé, je recommence (Plus clairement...

J'ai crée une Table T_Date contenant
un Champ nommé DateDeb et un autre DateFin

J'ai également crée un Formulaire F_SaisieDate. Ce formulaire sert à renseigner la table T_Date

Ce formulaire contiens 2 contrôles ActiveX LanDesk Date Contrôle (pour faciliter la saisie des dates)

Oui mais voila, ces contrôle ne comportent pas de champ Source de contrôle dans leurs propriétés d'ou ma question :
Comment affecter la date sélectionnée par ces contrôles aux champs de ma table ?

En espérant avoir été plus claire...

Merci de vos réponses.

Cordialement

Yves

**argyronet** · 29/08/2006, 12h37

C'est bien ce qui me semblait...
Bon, ces contrôle, je ne les connais pas.
Mais ils doivent avoir une propriété Value et des événements du style Change ou Click, non ???
De là, tu peux affecter une variable à la valeur interceptée au champ source de ton choix...
Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim dtmDebut As Date
dtmDebut = CtlDateDebut.Value
Me!ChampDateDebut=dtmDebut

Argy

**YvesP** · 29/08/2006, 13h42

Merci pour cette reponce...

Voyons si j'ai bien tout compris

Dim dtmDebut As Date 'Je declare la variable dtmDebut comme variable Date
dtmDebut = CtlDateDebut.Value ' Je donne comme valeur à la variable dtmDebut la valeur de mon controle CtlDateDebut
Me!ChampDateDebut=dtmDebut 'Je donne au champs ChampDateDebut du formulaire formulaire en cours la valeur contenue dans la variable dtmDateDebut

Mais si j'ai bien tout compris, je n'ai toujours pas tansféré la valeur de la variable dtmDateDebut au champ de ma table

Et la ligne
Table!T_Date!DateDebut=dtmDebut
ne fonctionne pas????

Oui je sais ... Mais il faut bien commencer un jour... Non ?

Merci encore

Yves

**argyronet** · 29/08/2006, 14h00

Euh, oui...
Mais lorsque j'écris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me!ChampDateDebut=dtmDebut

Cela implique que le formulaire a sa source fondée sur la table en question...
De ce fait les contrôles txtDateDebut et txtDateFin sont eux aussi attachés et en l'occurence aux champs de la table.
Le formulaire possède une Source et chaque contrôle insérés dans ce dernier possède un RecordSource (Source contrôle).
Cette syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table!T_Date!DateDebut=dtmDebut

est fausse, ce qui justifie qu'elle ne fonctionne pas.
De plus il te faudrait une condition WHERE car sinon, pour quel enregistrement va t-il stocker les dates avec ta méthode ???

**YvesP** · 29/08/2006, 16h29

Desolé, Je reviens à la charge... Mais cela ne marche pas.....

Quand tu dis "Le formulaire possède une Source et chaque contrôle insérés dans ce dernier possède un RecordSource (Source contrôle)." j'entend bien mais la non justement ces controle ne posaide pas de Sources controle et mon probleme est bien là.....

Merci

Yves

**argyronet** · 29/08/2006, 17h06

Oui, j'ai bien compris...
Donc dans ton formulaire, il doit y avoir deux Textboxes dont le RecordSource est respectivement DateDebut et DateFin.

Lorsque tu cliques sur une date dans l'un des contrôles, la variable est initialisée et le champ doit recevoir la valeur de celle-ci.
De ce fait, la valeur du champ correspondant dans la table l'est également.

Argy

**YvesP** · 29/08/2006, 18h38

Ben OK

Mais (car il y a un mais...) et c'est la que je ne comprenais pas ta demonstration...

Le controle ActiveX a deja un champ de siasie donc si je rajoute une TxtBox pour chacune des dates je vais avoir deux fois la même date une fois sur mon control ActiveX et une autre fois dans ma TxtBox.

D'autre part, le code que tu m'a donné je le metais sur un evenement de mon controle ActiveX.

Je vais encore esayer, mais....

Merci encore pour le temps passé...

Cordialement

Yves

**argyronet** · 29/08/2006, 19h21

Tu peux cacher les champs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Visible=Non

Et puis tu peux te passer de variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me!txtDateDebut=CtlActivX0.Value

Argy

**YvesP** · 30/08/2006, 11h16

Re bonjour,

C'est encore moi...

J'ai bien fais ce que tu me propose, mais cela ne marche pas
Mesage
CtlActiveX4.value <Le parametre entré n'et pas vallide pour cette proprieté>

J'ai d'abord pensé qu'il s'agissait d'un probleme de format "Date" mais car la valeur retournée par CtlActiveX4 est normalement un format Date abrégé.

Mais rien a faire.....

Pourtant cela semble simple mais mes compétences sont limitées.....

Cordialement

Yves

**argyronet** · 30/08/2006, 12h39

Où l'as-tu choppé ce contrôle ?
Quelles sont ses propriétés ?
Il a l'air bien bizarre ton truc, pas de propriété Value ????

Pourquoi ne prend-tu pas plus simplement le Contrôle Calendrier Microsoft qui lui possède un ControlSource ?

Argy

**YvesP** · 30/08/2006, 14h05

Où l'as-tu choppé ce contrôle ?

Je l'ai trouvé dans la liste de choix des contoles ActivesX de Access 2000 (9.0.3821 SR-1)
Je n'ais rien installé de plus il est donc livré avec le Pack Office 2000 que mon entreprise deploie sur tout nos postes bureautique...

Quelles sont ses propriétés ?

J'ai joint deans un message precedent uns copie d'écran de la fenetre proprieté de ce controle Mais je peux de donner plus de precisions si tu en as besoin.

Il a l'air bien bizarre ton truc, pas de propriété Value ????

Si tu es perplexe imagine comment je peux être perdu avec mon manque de connaissance...

mis je finirais par y arriver, c'est un point d'honneur.....

Pourquoi ne prend-tu pas plus simplement le Contrôle Calendrier Microsoft qui lui possède un ControlSource ?

Je l'ais fait, et cela marche très bien....

Mais je ne suis pas très satisfait du rendu... De plus, je travail sur une application qui possède énormément de champs date et ce contrôle prend beaucoup de place dans la mise en page de mes formulaires...
Je suis donc contraint pour chaque contrôle de le rendre visible sur la réception du focus et disparaître sur la perte du focus en positionnant tous ces contrôles a la même position dans mes formulaires.....

Si j'arrive à bien programmer l'utilisation cet ActiveX tous ces problèmes seront réglés....

Aller, j'y retourne... Courage...

Merci encore

Cordialement

Yves

**argyronet** · 30/08/2006, 15h19

J'ai une palanquée de contrôles et j'ai jamais vu ce machin là...

Bon, du peu que je vois sur la copie d'écran, la propriété Value n'existe pas. En revanche c'est la propriété Date qui semble s'y substituer ce qui donne alors un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CtlActiveX_OnUpdate()
    Me!DateDebut = CtlActiveX.Date
End Sub

Je ne suis pas sûr de la syntaxe de l'événement OnUpdate (J'ai traduit)...

Argy

**YvesP** · 30/08/2006, 15h38

Sans contexte, tu est super...

Cela marche enfin...

Il est évident que je t'en dois une belle...

pour l'apero c'est quand tu veux...

Nouvelle expression VBA "Que argyronet soit loué..... "

Un grand merci

Cordialement

Yves

**argyronet** · 30/08/2006, 16h58

Pas de quoi...
C'est moi qui suis heureux d'avoir pu t'aider.

Argy

les Controles ActiveX et les tables

Access

Discussions similaires

Partager

Partager