Discussion :

[syldudu]

Bonjour,

Voila mon problème :
Je possède deux tables:
*date:
date (date)
correspondance (numérique)

Ex: date Correspondance
01/07/06 1
02/07/06 2
03/07/06 3
....

*Train
N° Train (numérique)
RG (mémo)
Liaison (Texte)

Ex:
N° 10
RG 01001110000
Liaison Nantes


Le RG est une suite de valeur 0 ou 1 qui se traduit par 0 le train ne roule pas et 1 il roule.

La correspondance de la table date renvoie au numéro du RG.
Ex:
02/07/06 (correspondance 2)
RG :1 (2ème chiffre dans la chaine).

Je souhaite à partir d'un formulaire saisir ma date(zone de texte), mon train (zone de texte) et voir apparaitre un msg d'erreur s'il ne roule pas (msgbox) et s'il roule voir les liaison dans une listbox.

Comment faire les liens entre les deux tables etant donné qu'il n'y a pas de clé primaire?
Comment trouvé la valeur RG selon la date? (fonction len?)

Merci de votre aide.

Si je n'ai pas été clair n'hésité pas à demander.

[random]

tu pourrais tester ceci

Code :

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

1
2
3
4
5
6
 
 
SELECT [*dates].date, [*dates].correspondance, 
(SELECT Mid([RG],[*dates].correspondance,1)='1'  AS moncar
FROM [*train]) AS [je roule]
FROM [*dates];

[syldudu]

dans quoi dois-je rentrer cela? dans ma listBox?

[syldudu]

peut-on m'aider svp?

[timoth]

Non, ceci est une requete en SQL.
Si tu veux la visualiser dans ACCESS, créé une nouvelle requete, mets toi en affichage SQL (Affichage/SQL) et copie la requete dans la fenetre.
Si tu veux l'executer automatiquement dans VB, tu devras la mettre dans une commande Docmd.RunSQL

Si passer par une commande SQL t'effraie, tu peux utiliser la commande DLookup qui est assez simple (F1 pour plus d'explication). La fonction Mid(String,Début, Longueur) va te permettre de sélectionner la valeur que tu veux dans ton RG.

Bon courage!

[syldudu]

voici le msg d'erreur qu'il m'affiche suit à ma requête: "cette requête peut retourner au plsu un enregistrement"

et voila mon code

SELECT [Date].[Date], [Date].[Correspondance], (SELECT Mid([RG], [Date].Correspondance,1) ='1' AS Essai FROM [Train]) AS Essai2
FROM [Date];

quelqu'un à une idée de quoi sa vient?

[syldudu]

Personne n'a d'idées........

[soltani1]

Bonjour,

Essaie:

Code :

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

1
2
3
SELECT train.[N° Train], train.Liaison
FROM train, [date]
WHERE ((Mid([train].[RG],[date].[correspondance],1))=1);

A+

[syldudu]

oui c'est presque ça. Ici ça me donne toutes les dates ou il circule.

J'aimerai choisir la date et le train puis qu'il m'affiche la destination si il roule et si ce n'est pas le cas : "ne roule pas"

[syldudu]

Bonjour soltani1 et tous le monde, pourrais-tu (vous) m'aidé sur ma dernière demande? svp

[soltani1]

A mon Avis la dernière requête te donne les trains qui roulent, ajoute les deux conditions sur le numéro de train et la date :

Code :

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

1
2
3
4
SELECT train.[N° Train], train.Liaison
FROM train, [date]
WHERE train.[N° Train]= zone de texte and [date].date = zone de texte
and Mid([train].[RG],[date].[correspondance],1)=1

Cette requête te renvoie un enregistrement si le train roule
Quand tu utilise le recordset
Tu fais
rs.movefirst
if rs.eof()
'Ne roule pas'
else
'tu affiche la liaison'
endif

Tu test si c'est la fin de fichier aucun enregistrement n'est envoyé donc le train ne roule pas.

A+

[syldudu]

merci soltani1 la requête fonctionne.

Je vais essayer maintenant d'afficher les résultats dans une listBox.