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
Raymond [mvp]
Bonjour.
Le problème est sur la table motscles, comment est-elle structurée ? un mot clé par enregistrement ou tous les mots clés dans un seul champ mémo ou texte ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" a écrit dans le message de news:c3cb01c489c4$2c11b5d0$ Bonjour,
Je fais une requête sur 3 tables liées entre elles : select livre,auteur,motscle from Tlivres,Tauteur,Tmotscles where...
Ce resultat me servira pour un export du résultat dans un fichier texte.
Je pense qu'il faut faire cela en Access basic mais je n'y arrive pas
Pouvez vous m'aider ? Merci d'avance
Bonjour.
Le problème est sur la table motscles, comment est-elle structurée ?
un mot clé par enregistrement ou tous les mots clés dans un seul champ mémo
ou texte ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c3cb01c489c4$2c11b5d0$a601280a@phx.gbl...
Bonjour,
Je fais une requête sur 3 tables liées entre elles :
select livre,auteur,motscle from Tlivres,Tauteur,Tmotscles
where...
Le problème est sur la table motscles, comment est-elle structurée ? un mot clé par enregistrement ou tous les mots clés dans un seul champ mémo ou texte ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" a écrit dans le message de news:c3cb01c489c4$2c11b5d0$ Bonjour,
Je fais une requête sur 3 tables liées entre elles : select livre,auteur,motscle from Tlivres,Tauteur,Tmotscles where...
Ce resultat me servira pour un export du résultat dans un fichier texte.
Je pense qu'il faut faire cela en Access basic mais je n'y arrive pas
Pouvez vous m'aider ? Merci d'avance
En fait un livre a de 1 à n motscles la table motscles est structuré avec un champ id (id_motscles) et un champ libellé (libel_motscles) --> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour un livre. ex:
La table auteurs est identique à motscles dans sa structure
-----Message d'origine----- Bonjour.
Le problème est sur la table motscles, comment est-elle structurée ?
un mot clé par enregistrement ou tous les mots clés dans un seul champ mémo
ou texte ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" a écrit dans le message de
news:c3cb01c489c4$2c11b5d0$ Bonjour,
Je fais une requête sur 3 tables liées entre elles : select livre,auteur,motscle from Tlivres,Tauteur,Tmotscles where...
Ce resultat me servira pour un export du résultat dans un fichier texte.
Je pense qu'il faut faire cela en Access basic mais je n'y arrive pas
Pouvez vous m'aider ? Merci d'avance
.
En fait un livre a de 1 à n motscles
la table motscles est structuré avec un champ id
(id_motscles) et un champ libellé (libel_motscles)
--> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour
un livre. ex:
La table auteurs est identique à motscles dans sa structure
-----Message d'origine-----
Bonjour.
Le problème est sur la table motscles, comment est-elle
structurée ?
un mot clé par enregistrement ou tous les mots clés dans
un seul champ mémo
ou texte ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" <anonymous@discussions.microsoft.com> a écrit
dans le message de
En fait un livre a de 1 à n motscles la table motscles est structuré avec un champ id (id_motscles) et un champ libellé (libel_motscles) --> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour un livre. ex:
La table auteurs est identique à motscles dans sa structure
-----Message d'origine----- Bonjour.
Le problème est sur la table motscles, comment est-elle structurée ?
un mot clé par enregistrement ou tous les mots clés dans un seul champ mémo
ou texte ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Davelop" a écrit dans le message de
news:c3cb01c489c4$2c11b5d0$ Bonjour,
Je fais une requête sur 3 tables liées entre elles : select livre,auteur,motscle from Tlivres,Tauteur,Tmotscles where...
Ce resultat me servira pour un export du résultat dans un fichier texte.
Je pense qu'il faut faire cela en Access basic mais je n'y arrive pas
Pouvez vous m'aider ? Merci d'avance
.
Raymond [mvp]
Ok. pour éviter de tout recopier pour te faire un exemple vba, passe moi tes tables avec quelques enregistrements seulement dans un fichier zip en enlevant le xyz. de mon adresse.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:c20c01c489ce$ecaa5270$ En fait un livre a de 1 à n motscles la table motscles est structuré avec un champ id (id_motscles) et un champ libellé (libel_motscles) --> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour un livre. ex:
La table auteurs est identique à motscles dans sa structure
Ok.
pour éviter de tout recopier pour te faire un exemple vba, passe moi tes
tables avec quelques enregistrements seulement dans un fichier zip en
enlevant le xyz. de mon adresse.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:c20c01c489ce$ecaa5270$a401280a@phx.gbl...
En fait un livre a de 1 à n motscles
la table motscles est structuré avec un champ id
(id_motscles) et un champ libellé (libel_motscles)
--> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour
un livre. ex:
Ok. pour éviter de tout recopier pour te faire un exemple vba, passe moi tes tables avec quelques enregistrements seulement dans un fichier zip en enlevant le xyz. de mon adresse.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:c20c01c489ce$ecaa5270$ En fait un livre a de 1 à n motscles la table motscles est structuré avec un champ id (id_motscles) et un champ libellé (libel_motscles) --> donc 1 mot clé par ennregistrement dans cette table
Une table intermédiaire donne les différents motscles pour un livre. ex:
La table auteurs est identique à motscles dans sa structure
Raymond [mvp]
message par mail:
ci-joint une base 2000 avec un formulaire formulaire1 et une table Doc_export qui sera la table à exporter. lancer le formulaire et cliquer sur le bouton. regarder la table. code du formulaire: Private Sub Commande0_Click() On Error Resume Next Dim Anc_livre As String Dim Anc_Auteur As String Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Rs1 As DAO.Recordset Anc_livre = "" Anc_Auteur = "" DoCmd.RunSQL "delete * from Doc_Export" Dim StrSql As String StrSql = "SELECT doc_livres.titre_livre, doc_auteurs.nom_auteur, doc_motscles.nom_motscles " & _ "FROM doc_motscles " & _ "INNER JOIN (doc_auteurs " & _ "INNER JOIN ((doc_livres " & _ "INNER JOIN doc_livres_auteurs " & _ "ON doc_livres.num_livre=doc_livres_auteurs.num_livre) " & _ "INNER JOIN doc_livres_motscles " & _ "ON doc_livres.num_livre=doc_livres_motscles.num_livre) " & _ "ON doc_auteurs.num_auteur=doc_livres_auteurs.num_auteur) " & _ "ON doc_motscles.num_motscles=doc_livres_motscles.num_motscles " & _ "ORDER BY doc_livres.titre_livre, doc_auteurs.nom_auteur, doc_motscles.nom_motscles;" Set Db = CurrentDb Set Rs = Db.OpenRecordset(StrSql) If Rs.BOF Then GoTo Exit_Sub End If Set Rs1 = Db.OpenRecordset("Doc_Export") Do Until Rs.EOF If Rs!titre_livre <> Anc_livre Or Rs!nom_auteur <> Anc_Auteur Then If Not IsNull(Rs1!titre_livre) Then Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2) Rs1.Update End If Rs1.AddNew Rs1!titre_livre = Rs!titre_livre Rs1!nom_auteur = Rs!nom_auteur Anc_livre = Rs!titre_livre Anc_Auteur = Rs!nom_auteur End If Rs1!nom_motscles = Rs1!nom_motscles & "/" & Rs!nom_motscles Rs.MoveNext Loop If Not IsNull(Rs1!titre_livre) Then Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2) Rs1.Update End If Exit_Sub: On Error Resume Next Rs.Close Rs1.Close Set Db = Nothing Set Rs = Nothing Set Rs1 = Nothing End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message de news:
Ok. pour éviter de tout recopier pour te faire un exemple vba, passe moi tes tables avec quelques enregistrements seulement dans un fichier zip en enlevant le xyz. de mon adresse.
message par mail:
ci-joint une base 2000 avec un formulaire formulaire1 et une table
Doc_export qui sera la table à exporter.
lancer le formulaire et cliquer sur le bouton.
regarder la table.
code du formulaire:
Private Sub Commande0_Click()
On Error Resume Next
Dim Anc_livre As String
Dim Anc_Auteur As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Rs1 As DAO.Recordset
Anc_livre = ""
Anc_Auteur = ""
DoCmd.RunSQL "delete * from Doc_Export"
Dim StrSql As String
StrSql = "SELECT doc_livres.titre_livre, doc_auteurs.nom_auteur,
doc_motscles.nom_motscles " & _
"FROM doc_motscles " & _
"INNER JOIN (doc_auteurs " & _
"INNER JOIN ((doc_livres " & _
"INNER JOIN doc_livres_auteurs " & _
"ON doc_livres.num_livre=doc_livres_auteurs.num_livre) " & _
"INNER JOIN doc_livres_motscles " & _
"ON doc_livres.num_livre=doc_livres_motscles.num_livre) " & _
"ON doc_auteurs.num_auteur=doc_livres_auteurs.num_auteur) " & _
"ON doc_motscles.num_motscles=doc_livres_motscles.num_motscles " & _
"ORDER BY doc_livres.titre_livre, doc_auteurs.nom_auteur,
doc_motscles.nom_motscles;"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(StrSql)
If Rs.BOF Then
GoTo Exit_Sub
End If
Set Rs1 = Db.OpenRecordset("Doc_Export")
Do Until Rs.EOF
If Rs!titre_livre <> Anc_livre Or Rs!nom_auteur <> Anc_Auteur Then
If Not IsNull(Rs1!titre_livre) Then
Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2)
Rs1.Update
End If
Rs1.AddNew
Rs1!titre_livre = Rs!titre_livre
Rs1!nom_auteur = Rs!nom_auteur
Anc_livre = Rs!titre_livre
Anc_Auteur = Rs!nom_auteur
End If
Rs1!nom_motscles = Rs1!nom_motscles & "/" & Rs!nom_motscles
Rs.MoveNext
Loop
If Not IsNull(Rs1!titre_livre) Then
Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2)
Rs1.Update
End If
Exit_Sub:
On Error Resume Next
Rs.Close
Rs1.Close
Set Db = Nothing
Set Rs = Nothing
Set Rs1 = Nothing
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:eXQ4kGdiEHA.1764@TK2MSFTNGP10.phx.gbl...
Ok.
pour éviter de tout recopier pour te faire un exemple vba, passe moi tes
tables avec quelques enregistrements seulement dans un fichier zip en
enlevant le xyz. de mon adresse.
ci-joint une base 2000 avec un formulaire formulaire1 et une table Doc_export qui sera la table à exporter. lancer le formulaire et cliquer sur le bouton. regarder la table. code du formulaire: Private Sub Commande0_Click() On Error Resume Next Dim Anc_livre As String Dim Anc_Auteur As String Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Rs1 As DAO.Recordset Anc_livre = "" Anc_Auteur = "" DoCmd.RunSQL "delete * from Doc_Export" Dim StrSql As String StrSql = "SELECT doc_livres.titre_livre, doc_auteurs.nom_auteur, doc_motscles.nom_motscles " & _ "FROM doc_motscles " & _ "INNER JOIN (doc_auteurs " & _ "INNER JOIN ((doc_livres " & _ "INNER JOIN doc_livres_auteurs " & _ "ON doc_livres.num_livre=doc_livres_auteurs.num_livre) " & _ "INNER JOIN doc_livres_motscles " & _ "ON doc_livres.num_livre=doc_livres_motscles.num_livre) " & _ "ON doc_auteurs.num_auteur=doc_livres_auteurs.num_auteur) " & _ "ON doc_motscles.num_motscles=doc_livres_motscles.num_motscles " & _ "ORDER BY doc_livres.titre_livre, doc_auteurs.nom_auteur, doc_motscles.nom_motscles;" Set Db = CurrentDb Set Rs = Db.OpenRecordset(StrSql) If Rs.BOF Then GoTo Exit_Sub End If Set Rs1 = Db.OpenRecordset("Doc_Export") Do Until Rs.EOF If Rs!titre_livre <> Anc_livre Or Rs!nom_auteur <> Anc_Auteur Then If Not IsNull(Rs1!titre_livre) Then Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2) Rs1.Update End If Rs1.AddNew Rs1!titre_livre = Rs!titre_livre Rs1!nom_auteur = Rs!nom_auteur Anc_livre = Rs!titre_livre Anc_Auteur = Rs!nom_auteur End If Rs1!nom_motscles = Rs1!nom_motscles & "/" & Rs!nom_motscles Rs.MoveNext Loop If Not IsNull(Rs1!titre_livre) Then Rs1!nom_motscles = Mid(Rs1!nom_motscles, 2) Rs1.Update End If Exit_Sub: On Error Resume Next Rs.Close Rs1.Close Set Db = Nothing Set Rs = Nothing Set Rs1 = Nothing End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message de news:
Ok. pour éviter de tout recopier pour te faire un exemple vba, passe moi tes tables avec quelques enregistrements seulement dans un fichier zip en enlevant le xyz. de mon adresse.
