Le portail francophone de la géomatique

Merci beaucoup pour votre aide.

Je vous tiens au courant dès que j'ai réussi à appliquer vos conseils.

Re,

Content que cela marche mais ça n'est pas élégant.

Si vous aimez la programmation et que vous vous initiez à VBA ACCESS je vous conseil fortement de migrer vers une solution Langage de prog + Interface Objet Moteur BD ACCESS (Jet). Car vous attendrez vite les limitations en matière d'Interface Utilisateur.

Concernant votre pb:

La solution élégante serait de lier le Sous-formulaire projet au formulaire appelant, en effet pas besoin de mettre à jour l'ID_Contact. Qui s'il porte bien son nom est une clef primaire (et n'a pas vocation à être visible de l'utilisateur).

Il existe plusieur solution VBA pour régler ce type de pb.
Définir le sous formulaire "projet" comme consommateur de données d'une source de donnée ( Propertie DataSource )
Et si mes souvenir sont bons il faut regarder du coté des propriétés LinkMasterFields et LinkChildFields du formulaire, soit , ChampsPere et ChampsFils.
Mieux:

Etudier le modèle Objet MS ACCESS ( F1 + Index ) +

Database
QueryDef
Recordset

Utiliser les formulaires comme interface d'affichage et alimenter leur contenu à l'aide d'un objet recordset que vous contrôlerez par le code.

A+

Christophe

Bonjour,

DCount je connais pas, mais il existe une façon simple d'obtenir ce que vous souhaitez.

Il faut créer les requêtes dont vous avez besoin dans Access, l'interface graphique vous évitera de manipuler le SQL (qui est en plus n'est pas standard pour Access).

Vous utilisez ensuite ces requetes dans votre code.

Je vous donne un exemple en Access97 (si vous êtes sur 2000 ou sup il peut y avoir quelques différences).

Admlettons que vous ayez créer une requête nommée "RQ_Toto"
Vous allez utiliser un objet base de donnée (Bd) au quel vous affectez la base ouverte en cours
ensuite parmis les requete de la base vous prenez celles qui vous interresse ("RQ_Toto"), vous l'ouvrez (ce qui vous donne un objet recordset: rst) vous parcourez ensuite ce recordset pour pouvoir utiliser les valeur contenues dans les champs de la requête sous jacente.

Private Sub Commande0_Click()
Dim rq As QueryDef
Dim rst As Recordset
Dim bd As Database

Set bd = CurrentDb()

Set rq = bd.QueryDefs("RQ_Toto")

Set rst = rq.OpenRecordset


If Not (rst.EOF And rst.BOF) Then

rst.MoveFirst
    Do While Not rst.EOF
    
    mavaleur = rst("NomduChamp")
    
    rst.MoveNext
    Loop
Else

'il n'y a pas d'enregistrement dans la requete
End If

End Sub

A+

Christophe

Merci à vous,

@Christophe: J'obtiens une "erreur n°13: incompatibilité de type" sur la ligne

Set rst = rq.OpenRecordset

Peut-être est-ce dû à ma version (Access 2002) ? J'ai cherché plein de trucs sans succès ....

@bioteau: Le champs "Statut_Contact" est lié par son ID à la table "List_StCtct" afin d'obtenir une liste déroulante de saisie dans le formulaire. Donc le critère est bien une valeur numérique "1" au lieu de "particulier".

Mais cela ne change rien, j'obtiens toujours "0"... J'ai testé plein de syntaxe, mais sans succès.


Enfin, ce n'est pas bien grave. Je vous remercie (je ne me repencherai sur la question que Lundi. Bon week-end à tous.

Emilien.


Juste une dernière question: Je crois qu'il n'est pas conseillé de placer le .mdb sur un serveur pour une utilisation depuis différents postes (même sans utilisation simultanée). Qu'en pensez-vous ?

Dernière modification par Emil' (Fri 21 September 2007 10:39)

Bonjour,

Ben peut-être, mais je dois avoir quelques centaines de function VB qui ont cette syntaxe et pas de pb.

Et la methode openrecordset est bien une méthode de l'objet QueryDef et elle renvoie un objet recordset (en DAO 3.6).

A+

Christophe

Il y a une erreur, c'est l'objet database qui appelle la requête ... :

Set Rs = db.openRecordset(Rq,dbOpenDynaset)
dbOpenDynaset permet d'ouvrir en lecture/ecriture
dbOpenSnapshot permet d'ouvrir en lecture seule
etc.

deplus, il se peut suivant les versions que vous deviez déclarer l'objet en « forçant » la classe DAO ( à référencer dans le projet -Outils/Références- rajouter si ce n'est pas fait Microsoft DAO 3.6 Object Library) :
dim db as DAO.Database
dim Rs as DAO.Recordset
etc.

bon courage

Olivier Barasz
Service S.I.G.
DSITC
Conseil Général du Gers
81, Route de Pessan - BP 569 - 32022 Auch Cedex
Tel : 05 62 67 44 64 - Fax : 05 62 67 44 66
Courriel : sig32@texte-a-enlever.cg32.fr

Bonjour,

Concernant  le code que j'ai proposé.

C'est vrai. Mais pour le reste je maintient.

J'omets volontairement la section valeurs

Verifiez sous debug la nature de l'objet rq et de l'objet rst.

Concernant la fonction Dcount :
En fait avec le code dont j'ai l'habitude il suffit d'ajouter une variable Count& de type entier long et de l'incrémentée dans la boucle de lecture du recordset pour avoir le nombre d'enregistrement. D'où ma méconnaissance de la fonction.

DCount(expression, domaine[, critère])

Critère

Donc dans votre cas

Val1 = DCount("[Statut_contact]", "Contacts", "[Statut_contact] = " & Ltrim$(str$(mavariable)))

LTrim$() (supprime les espaces de gauche d'une chaîne de caractères) :Car la fonction Str$(mavariable) renvoi une chaîne où un caractère est systèmatiquement réservé à gauche:
espace pour mavariable positif
"-" si mavariable est négative

ou si vous utilisez une valeur fixe

Val1 = DCount("[Statut_contact]", "Contacts", "[Statut_contact] = 1")

A+

Christophe

Dernière modification par DIANA2D.dev (Fri 28 September 2007 16:00)