sous access 97
j'ai un code qui fonctionne (grace 3stone) dans un base où il est seul !!
c'est pas un truc compliqué !!
si il est dans une autre base, il ne veut pas cree des requetes, et bogue !!
je l'efface, je le renome, le deplace de module, compacte la base, la
repare, redemarre le micro
il n'y es plus
je le lance........et il bogue encore !!!
il est où ???
..es ce que vous avez une piste sur ce type ............PB !!
@+
Rémi Dumery
Courriel: dumgest@fr.fm
MSMessenger: dumgest@hotmail.com
Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
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
dumgest
bon, si je met tous dans une nouvelle base c'est un module qui bloque l'autre
cette fonction d'un module ne fonctionne plus :
Function TabMarge() On Error GoTo TabMarge_Err Dim bds As Database, req As QueryDef Dim txt, dum As String
Set bds = CurrentDb dum = ""
DoCmd.SetWarnings False
'cree TabMarge txt = "SELECT DISTINCTROW ITKE.[N°assolement], ITKE.TYPE, Sum([DOSE]*[prix]*[Surf]/[SURFACE]) AS Donnee INTO TabMarge FROM ITKE INNER JOIN Assolement ON ITKE.[N°assolement] = Assolement.[N°assolement]GROUP BY ITKE.[N°assolement], ITKE.TYPE HAVING (((ITKE.TYPE) Is Not Null)) WITH OWNERACCESS OPTION;" DoCmd.RunSQL txt
' TabM supprimé, si elle existe For Each req In bds.QueryDefs If req.Name = "TabM" Then bds.QueryDefs.Delete req.Name End If Next req
'TabM dum = "CouTotal" txt = "TRANSFORM Sum(TabMargeS.[" + dum + "]) AS xx SELECT TabMargeS.[N°assolement], '" + " " + dum + "' AS Type FROM TabMargeS GROUP BY TabMargeS.[N°assolement], '" + " " + dum + "' PIVOT 'Donnee';" Set req = bds.CreateQueryDef("TabM", txt)
bds.QueryDefs.Refresh
'TabMargeAjout txt = "INSERT INTO TabMarge ( [N°assolement], TYPE, Donnee ) SELECT TabM.[N°assolement], TabM.Type, TabM.Donnee FROM TabM;" DoCmd.RunSQL txt
DoCmd.SetWarnings True
DoCmd.OpenQuery "TabMargeA", acNormal, acEdit
Set bds = Nothing
TabMarge_Exit: Exit Function
TabMarge_Err: MsgBox Error$ Resume TabMarge_Exit
End Function
quand cette fonction est dans un autre module...........
Function Dumsauve() On Error GoTo Dumsauve_Err
Beep
Dim espDefault As Workspace, bds As Database Dim txt, dum As String
dum = "c:dumargest" & Format(Now, "mmyy") & "data.mdb"
If Dir([dum]) <> "" Then Kill [dum]
Set espDefault = DBEngine.Workspaces(0) Set bds = espDefault.CreateDatabase([dum], dbLangGeneral, dbVersion11)
DoCmd.SetWarnings False
txt = "SELECT Adress.* INTO Adress IN '" + dum + "' FROM Adress;" DoCmd.RunSQL txt
txt = "SELECT meteo.* INTO meteo IN '" + dum + "'FROM meteo;" DoCmd.RunSQL txt
DoCmd.SetWarnings True
bds.Close
Beep
Dumsauve_Exit: Exit Function
Dumsauve_Err: MsgBox Error$ Resume Dumsauve_Exit
End Function
pourquoi ??
@+
Rémi Dumery
S@lut
bon, si je met tous dans une nouvelle base
c'est un module qui bloque l'autre
cette fonction d'un module ne fonctionne plus :
Function TabMarge()
On Error GoTo TabMarge_Err
Dim bds As Database, req As QueryDef
Dim txt, dum As String
Set bds = CurrentDb
dum = ""
DoCmd.SetWarnings False
'cree TabMarge
txt = "SELECT DISTINCTROW ITKE.[N°assolement], ITKE.TYPE,
Sum([DOSE]*[prix]*[Surf]/[SURFACE]) AS Donnee INTO TabMarge FROM ITKE INNER
JOIN Assolement ON ITKE.[N°assolement] = Assolement.[N°assolement]GROUP BY
ITKE.[N°assolement], ITKE.TYPE HAVING (((ITKE.TYPE) Is Not Null)) WITH
OWNERACCESS OPTION;"
DoCmd.RunSQL txt
' TabM supprimé, si elle existe
For Each req In bds.QueryDefs
If req.Name = "TabM" Then
bds.QueryDefs.Delete req.Name
End If
Next req
'TabM
dum = "CouTotal"
txt = "TRANSFORM Sum(TabMargeS.[" + dum + "]) AS xx SELECT
TabMargeS.[N°assolement], '" + " " + dum + "' AS Type FROM TabMargeS GROUP
BY TabMargeS.[N°assolement], '" + " " + dum + "' PIVOT 'Donnee';"
Set req = bds.CreateQueryDef("TabM", txt)
bds.QueryDefs.Refresh
'TabMargeAjout
txt = "INSERT INTO TabMarge ( [N°assolement], TYPE, Donnee ) SELECT
TabM.[N°assolement], TabM.Type, TabM.Donnee FROM TabM;"
DoCmd.RunSQL txt
DoCmd.SetWarnings True
DoCmd.OpenQuery "TabMargeA", acNormal, acEdit
Set bds = Nothing
TabMarge_Exit:
Exit Function
TabMarge_Err:
MsgBox Error$
Resume TabMarge_Exit
End Function
quand cette fonction est dans un autre module...........
Function Dumsauve()
On Error GoTo Dumsauve_Err
Beep
Dim espDefault As Workspace, bds As Database
Dim txt, dum As String
dum = "c:dumargest" & Format(Now, "mmyy") & "data.mdb"
If Dir([dum]) <> "" Then Kill [dum]
Set espDefault = DBEngine.Workspaces(0)
Set bds = espDefault.CreateDatabase([dum], dbLangGeneral, dbVersion11)
DoCmd.SetWarnings False
txt = "SELECT Adress.* INTO Adress IN '" + dum + "' FROM Adress;"
DoCmd.RunSQL txt
txt = "SELECT meteo.* INTO meteo IN '" + dum + "'FROM meteo;"
DoCmd.RunSQL txt
bon, si je met tous dans une nouvelle base c'est un module qui bloque l'autre
cette fonction d'un module ne fonctionne plus :
Function TabMarge() On Error GoTo TabMarge_Err Dim bds As Database, req As QueryDef Dim txt, dum As String
Set bds = CurrentDb dum = ""
DoCmd.SetWarnings False
'cree TabMarge txt = "SELECT DISTINCTROW ITKE.[N°assolement], ITKE.TYPE, Sum([DOSE]*[prix]*[Surf]/[SURFACE]) AS Donnee INTO TabMarge FROM ITKE INNER JOIN Assolement ON ITKE.[N°assolement] = Assolement.[N°assolement]GROUP BY ITKE.[N°assolement], ITKE.TYPE HAVING (((ITKE.TYPE) Is Not Null)) WITH OWNERACCESS OPTION;" DoCmd.RunSQL txt
' TabM supprimé, si elle existe For Each req In bds.QueryDefs If req.Name = "TabM" Then bds.QueryDefs.Delete req.Name End If Next req
'TabM dum = "CouTotal" txt = "TRANSFORM Sum(TabMargeS.[" + dum + "]) AS xx SELECT TabMargeS.[N°assolement], '" + " " + dum + "' AS Type FROM TabMargeS GROUP BY TabMargeS.[N°assolement], '" + " " + dum + "' PIVOT 'Donnee';" Set req = bds.CreateQueryDef("TabM", txt)
bds.QueryDefs.Refresh
'TabMargeAjout txt = "INSERT INTO TabMarge ( [N°assolement], TYPE, Donnee ) SELECT TabM.[N°assolement], TabM.Type, TabM.Donnee FROM TabM;" DoCmd.RunSQL txt
DoCmd.SetWarnings True
DoCmd.OpenQuery "TabMargeA", acNormal, acEdit
Set bds = Nothing
TabMarge_Exit: Exit Function
TabMarge_Err: MsgBox Error$ Resume TabMarge_Exit
End Function
quand cette fonction est dans un autre module...........
Function Dumsauve() On Error GoTo Dumsauve_Err
Beep
Dim espDefault As Workspace, bds As Database Dim txt, dum As String
dum = "c:dumargest" & Format(Now, "mmyy") & "data.mdb"
If Dir([dum]) <> "" Then Kill [dum]
Set espDefault = DBEngine.Workspaces(0) Set bds = espDefault.CreateDatabase([dum], dbLangGeneral, dbVersion11)
DoCmd.SetWarnings False
txt = "SELECT Adress.* INTO Adress IN '" + dum + "' FROM Adress;" DoCmd.RunSQL txt
txt = "SELECT meteo.* INTO meteo IN '" + dum + "'FROM meteo;" DoCmd.RunSQL txt
DoCmd.SetWarnings True
bds.Close
Beep
Dumsauve_Exit: Exit Function
Dumsauve_Err: MsgBox Error$ Resume Dumsauve_Exit
End Function
pourquoi ??
@+
Rémi Dumery
3stone
Salut,
"dumgest" | bon, si je met tous dans une nouvelle base | c'est un module qui bloque l'autre
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction ??
"dumgest"
| bon, si je met tous dans une nouvelle base
| c'est un module qui bloque l'autre
"3stone"
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction
??
non, mais j'ai une table et une fonction qui ont le même nom : TabMarge
c'est pas bien !!
@+
Rémi Dumery
Courriel: dumgest@fr.fm
MSMessenger: dumgest@hotmail.com
Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/
Modèles physiologiques http://www.cropvision.com
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
%23L7D3AWOGHA.2888@tk2msftngp13.phx.gbl...
Salut,
"dumgest"
| bon, si je met tous dans une nouvelle base
| c'est un module qui bloque l'autre
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction
??
si un même nom est une table et une fonction, ça bloque la fonction, elle ne veut plus reconnaitre des objets !!! mais pour debloquer tous cela, la seul methode est de tous importer dans une nouvelle base ?
autre question, on ne peut importer une barre d'outils personalisé dans une base vers une autre..ou vis versa ???
@+
Rémi Dumery
Courriel: MSMessenger: Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/ Modèles physiologiques http://www.cropvision.com "dumgest" a écrit dans le message de news: 43fffe8e$0$19685$
--
"dumgest" | bon, si je met tous dans une nouvelle base | c'est un module qui bloque l'autre
"3stone"
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction ??
non, mais j'ai une table et une fonction qui ont le même nom : TabMarge c'est pas bien !!
@+
Rémi Dumery
Courriel: MSMessenger: Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/ Modèles physiologiques http://www.cropvision.com "3stone" a écrit dans le message de news: %
Salut,
"dumgest" | bon, si je met tous dans une nouvelle base | c'est un module qui bloque l'autre
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction ??
si un même nom est une table et une fonction, ça bloque la fonction, elle ne
veut plus reconnaitre des objets !!!
mais pour debloquer tous cela, la seul methode est de tous importer dans une
nouvelle base ?
autre question, on ne peut importer une barre d'outils personalisé dans une
base vers une autre..ou vis versa ???
@+
Rémi Dumery
Courriel: dumgest@fr.fm
MSMessenger: dumgest@hotmail.com
Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/
Modèles physiologiques http://www.cropvision.com
"dumgest" <dumgest@45.cernet.fr> a écrit dans le message de news:
43fffe8e$0$19685$8fcfb975@news.wanadoo.fr...
--
S@lut
"dumgest"
| bon, si je met tous dans une nouvelle base
| c'est un module qui bloque l'autre
"3stone"
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une
fonction ??
non, mais j'ai une table et une fonction qui ont le même nom : TabMarge
c'est pas bien !!
@+
Rémi Dumery
Courriel: dumgest@fr.fm
MSMessenger: dumgest@hotmail.com
Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/
Modèles physiologiques http://www.cropvision.com
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
%23L7D3AWOGHA.2888@tk2msftngp13.phx.gbl...
Salut,
"dumgest"
| bon, si je met tous dans une nouvelle base
| c'est un module qui bloque l'autre
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une
fonction ??
si un même nom est une table et une fonction, ça bloque la fonction, elle ne veut plus reconnaitre des objets !!! mais pour debloquer tous cela, la seul methode est de tous importer dans une nouvelle base ?
autre question, on ne peut importer une barre d'outils personalisé dans une base vers une autre..ou vis versa ???
@+
Rémi Dumery
Courriel: MSMessenger: Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/ Modèles physiologiques http://www.cropvision.com "dumgest" a écrit dans le message de news: 43fffe8e$0$19685$
--
"dumgest" | bon, si je met tous dans une nouvelle base | c'est un module qui bloque l'autre
"3stone"
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction ??
non, mais j'ai une table et une fonction qui ont le même nom : TabMarge c'est pas bien !!
@+
Rémi Dumery
Courriel: MSMessenger: Site Web: http://www.dumgest.fr.fm
DuMarGest : " le suivi de cultures faciles !! " sur www.Dumgest.fr.fm
Agri-Outils : http://www.ereline.fr/ccja/ Modèles physiologiques http://www.cropvision.com "3stone" a écrit dans le message de news: %
Salut,
"dumgest" | bon, si je met tous dans une nouvelle base | c'est un module qui bloque l'autre
Tu n'aurais pas *bêtement* donné le même nom au module qu'à une fonction ??
"dumgest" | si un même nom est une table et une fonction, ça bloque la fonction, elle ne | veut plus reconnaitre des objets !!! | mais pour debloquer tous cela, la seul methode est de tous importer dans une | nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux() - Une table on la préfixe par T_ ou tbl : tblClients - Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode (ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles... Observer les conventions permets au "autres" de lire plus facilement le code.
=> primordial si tu veux être aidé => a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans une | base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer... clique sur le bouton "Options >>"
"dumgest"
| si un même nom est une table et une fonction, ça bloque la fonction, elle ne
| veut plus reconnaitre des objets !!!
| mais pour debloquer tous cela, la seul methode est de tous importer dans une
| nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux()
- Une table on la préfixe par T_ ou tbl : tblClients
- Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm
Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode
(ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles...
Observer les conventions permets au "autres" de lire plus facilement le code.
=> primordial si tu veux être aidé
=> a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans une
| base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer...
clique sur le bouton "Options >>"
"dumgest" | si un même nom est une table et une fonction, ça bloque la fonction, elle ne | veut plus reconnaitre des objets !!! | mais pour debloquer tous cela, la seul methode est de tous importer dans une | nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux() - Une table on la préfixe par T_ ou tbl : tblClients - Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode (ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles... Observer les conventions permets au "autres" de lire plus facilement le code.
=> primordial si tu veux être aidé => a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans une | base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer... clique sur le bouton "Options >>"
je suis démasqué.....je suis un autodidacte et je tâtonne avec les modules, mais je progresse et réussi à faire ce que je veux mais je manque de méthode, c'est clair....mais je vais faire des efforts, grand maître !!!!
en faite, au début je copiai du code en comprennent pas la moitié de celui-ci, mais maintenant je maîtrise et je change le nom des variables, etc.........mais sans méthodes, et aie aie, ...je me trouve piégé et attraper par le grand maître 3stone...
pauvre misérable petit scarabée ;-)) qui à passer deux jours à faire tourner ce code correctement dans une base, sans comprendre pourquoi il ne tournais pas dans une autre !!! c'est comme ça que l'on apprend, ........a avoir de la méthode !!
merçi de tous ces bons conseils
@+
Rémi Dumery
"3stone" a écrit dans le message de news:
re,
"dumgest" | si un même nom est une table et une fonction, ça bloque la fonction, elle ne | veut plus reconnaitre des objets !!! | mais pour debloquer tous cela, la seul methode est de tous importer dans une | nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux() - Une table on la préfixe par T_ ou tbl : tblClients - Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode (ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles... Observer les conventions permets au "autres" de lire plus facilement le code.
=> primordial si tu veux être aidé => a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans une | base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer... clique sur le bouton "Options >>"
je suis démasqué.....je suis un autodidacte et je tâtonne avec les modules,
mais je progresse et réussi à faire ce que je veux
mais je manque de méthode, c'est clair....mais je vais faire des efforts,
grand maître !!!!
en faite, au début je copiai du code en comprennent pas la moitié de
celui-ci, mais maintenant je maîtrise et je change le nom des variables,
etc.........mais sans méthodes, et aie aie, ...je me trouve piégé et
attraper par le grand maître 3stone...
pauvre misérable petit scarabée ;-)) qui à passer deux jours à faire
tourner ce code correctement dans une base, sans comprendre pourquoi il ne
tournais pas dans une autre !!! c'est comme ça que l'on apprend, ........a
avoir de la méthode !!
merçi de tous ces bons conseils
@+
Rémi Dumery
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
u0zBvnlOGHA.1192@TK2MSFTNGP11.phx.gbl...
re,
"dumgest"
| si un même nom est une table et une fonction, ça bloque la fonction,
elle ne
| veut plus reconnaitre des objets !!!
| mais pour debloquer tous cela, la seul methode est de tous importer dans
une
| nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux()
- Une table on la préfixe par T_ ou tbl : tblClients
- Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm
Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode
(ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles...
Observer les conventions permets au "autres" de lire plus facilement le
code.
=> primordial si tu veux être aidé
=> a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans
une
| base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer...
clique sur le bouton "Options >>"
je suis démasqué.....je suis un autodidacte et je tâtonne avec les modules, mais je progresse et réussi à faire ce que je veux mais je manque de méthode, c'est clair....mais je vais faire des efforts, grand maître !!!!
en faite, au début je copiai du code en comprennent pas la moitié de celui-ci, mais maintenant je maîtrise et je change le nom des variables, etc.........mais sans méthodes, et aie aie, ...je me trouve piégé et attraper par le grand maître 3stone...
pauvre misérable petit scarabée ;-)) qui à passer deux jours à faire tourner ce code correctement dans une base, sans comprendre pourquoi il ne tournais pas dans une autre !!! c'est comme ça que l'on apprend, ........a avoir de la méthode !!
merçi de tous ces bons conseils
@+
Rémi Dumery
"3stone" a écrit dans le message de news:
re,
"dumgest" | si un même nom est une table et une fonction, ça bloque la fonction, elle ne | veut plus reconnaitre des objets !!! | mais pour debloquer tous cela, la seul methode est de tous importer dans une | nouvelle base ?
Il faut éviter tout ce qui peut induire Access (et toi-même) en erreur...
- Une fonction on la préfixe par f ou fn : fnCalculTaux() - Une table on la préfixe par T_ ou tbl : tblClients - Les formulaires par f ou frm : frmCommandes
Va voir http://www.mvps.org/access/general/gen0012.htm Il n'y a rien d'obligatoire! Ce qui compte est d'avoir "sa" méthode (ou plutôt "de la méthode) pour éviter ce genre de problèmes inutiles... Observer les conventions permets au "autres" de lire plus facilement le code.
=> primordial si tu veux être aidé => a la longue, cela t'aidera de la même façon pour te relire !
| autre question, on ne peut importer une barre d'outils personalisé dans une | base vers une autre..ou vis versa ???
Bien sûr : menu Fichier, Données externes, Importer... clique sur le bouton "Options >>"
