Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access probleme sur end de function

probleme sur end de function

5 réponses
Avatar
dom
bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites choses
avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne peux
pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Gafish
Bonjour,

Il faudrait voir la fonction complète pour t'aider plus efficacement.
Après ton msgbox tu n'as aucune ligne de code ? Tu n'as pas une boucle sans
fin ? Tu libères bien toutes tes variables ?

Arnaud

"dom" a écrit dans le message news:

bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites
choses

avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne peux
pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique




Avatar
Raymond [mvp]
Bonjour.

il y aura sûrement un télépathe qui va comprendre.
peux-tu afficher la fin de ta fonction à partir du msgbox ( il marche lui au
moins ?) ?

--
@+
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


"dom" a écrit dans le message de
news:
bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites
choses

avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne peux
pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique




Avatar
dom
qu'appeles tu liberer toutes les variables ?
non pas de boucle sans fin
je te copie la fonction complete et te remercie d'avance pr ton aide

Function Proc__creationfiles()
On Error GoTo Proc__creationfiles1_Err

DoCmd.SetWarnings False
DoCmd.Echo False, "Processing"
' Update date New2
DoCmd.OpenQuery "8_update_date", acViewNormal, acEdit
' Update flag new2 1
DoCmd.OpenQuery "8b_update_flag1", acViewNormal, acEdit
' update flag new2 2
DoCmd.OpenQuery "8b_update_flag2", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9_updategroup", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9b_updategroup", acViewNormal, acEdit
' Add histo2
DoCmd.OpenQuery "9Z_add_histo2", acViewNormal, acEdit

' Directory of outpout
Dim ft, fs, f, control, target
Set ft = CreateObject("Scripting.FileSystemObject")
Set f = ft.GetFile(Application.CurrentDb.Name)
Set fs = CreateObject("Scripting.FileSystemObject")
control = UCase(f.ParentFolder) & "CONTROL"
target = UCase(f.ParentFolder) & "TARGET"

If fs.FolderExists(control) = True Then fs.DeleteFolder (control) Else
control = UCase(f.ParentFolder) & "CONTROL"


If fs.FolderExists(target) = True Then fs.DeleteFolder (target) Else
control = UCase(f.ParentFolder) & "CONTROL"


fs.createfolder (control)
fs.createfolder (target)


' export files
DoCmd.OutputTo acQuery, "FR_CONTROL", "MicrosoftExcelBiff8(*.xls)", control
& "FR_CONTROL.xls", False, "", 0
DoCmd.OutputTo acQuery, "FR_TARGET", "MicrosoftExcelBiff8(*.xls)", target &
"FR_TARGET.xls", False, "", 0

Proc__creationfiles1_Exit:
MsgBox "The files have been created successfully", 0, "Info"

Exit Function

Proc__creationfiles1_Err:
MsgBox "Error during creation of files", 0, "Info"
Resume Proc__creationfiles1_Exit

End Function


"Gafish" wrote in message
news:
Bonjour,

Il faudrait voir la fonction complète pour t'aider plus efficacement.
Après ton msgbox tu n'as aucune ligne de code ? Tu n'as pas une boucle
sans

fin ? Tu libères bien toutes tes variables ?

Arnaud

"dom" a écrit dans le message news:

bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites
choses

avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne
peux


pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique








Avatar
Raymond [mvp]
il faudrait remettre en place les instructions et les objets:
il manque :
DoCmd.Echo True
DoCmd.SetWarnings True
set ft = nothing
set fs = nothing

ne pas nomme une variable control qui est un mot réservé.

pourquoi 2 objets ("Scripting.FileSystemObject")

Resume Proc__creationfiles1_Exit ne ramène pas au bon endroit, pas le bon
message.

ça devrait changer un peu, je crois.
--
@+
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


"dom" a écrit dans le message de
news:%23q%
qu'appeles tu liberer toutes les variables ?
non pas de boucle sans fin
je te copie la fonction complete et te remercie d'avance pr ton aide

Function Proc__creationfiles()
On Error GoTo Proc__creationfiles1_Err

DoCmd.SetWarnings False
DoCmd.Echo False, "Processing"
' Update date New2
DoCmd.OpenQuery "8_update_date", acViewNormal, acEdit
' Update flag new2 1
DoCmd.OpenQuery "8b_update_flag1", acViewNormal, acEdit
' update flag new2 2
DoCmd.OpenQuery "8b_update_flag2", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9_updategroup", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9b_updategroup", acViewNormal, acEdit
' Add histo2
DoCmd.OpenQuery "9Z_add_histo2", acViewNormal, acEdit

' Directory of outpout
Dim ft, fs, f, control, target
Set ft = CreateObject("Scripting.FileSystemObject")
Set f = ft.GetFile(Application.CurrentDb.Name)
Set fs = CreateObject("Scripting.FileSystemObject")
control = UCase(f.ParentFolder) & "CONTROL"
target = UCase(f.ParentFolder) & "TARGET"

If fs.FolderExists(control) = True Then fs.DeleteFolder (control) Else
control = UCase(f.ParentFolder) & "CONTROL"


If fs.FolderExists(target) = True Then fs.DeleteFolder (target) Else
control = UCase(f.ParentFolder) & "CONTROL"


fs.createfolder (control)
fs.createfolder (target)


' export files
DoCmd.OutputTo acQuery, "FR_CONTROL", "MicrosoftExcelBiff8(*.xls)",
control

& "FR_CONTROL.xls", False, "", 0
DoCmd.OutputTo acQuery, "FR_TARGET", "MicrosoftExcelBiff8(*.xls)", target
&

"FR_TARGET.xls", False, "", 0

Proc__creationfiles1_Exit:
MsgBox "The files have been created successfully", 0, "Info"

Exit Function

Proc__creationfiles1_Err:
MsgBox "Error during creation of files", 0, "Info"
Resume Proc__creationfiles1_Exit

End Function


"Gafish" wrote in message
news:
Bonjour,

Il faudrait voir la fonction complète pour t'aider plus efficacement.
Après ton msgbox tu n'as aucune ligne de code ? Tu n'as pas une boucle
sans

fin ? Tu libères bien toutes tes variables ?

Arnaud

"dom" a écrit dans le message news:

bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites
choses

avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne
peux


pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique












Avatar
dom
merci beacoup
ca marche mieux en effet

"Raymond [mvp]" wrote in message
news:
il faudrait remettre en place les instructions et les objets:
il manque :
DoCmd.Echo True
DoCmd.SetWarnings True
set ft = nothing
set fs = nothing

ne pas nomme une variable control qui est un mot réservé.

pourquoi 2 objets ("Scripting.FileSystemObject")

Resume Proc__creationfiles1_Exit ne ramène pas au bon endroit, pas le bon
message.

ça devrait changer un peu, je crois.
--
@+
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


"dom" a écrit dans le message de
news:%23q%
qu'appeles tu liberer toutes les variables ?
non pas de boucle sans fin
je te copie la fonction complete et te remercie d'avance pr ton aide

Function Proc__creationfiles()
On Error GoTo Proc__creationfiles1_Err

DoCmd.SetWarnings False
DoCmd.Echo False, "Processing"
' Update date New2
DoCmd.OpenQuery "8_update_date", acViewNormal, acEdit
' Update flag new2 1
DoCmd.OpenQuery "8b_update_flag1", acViewNormal, acEdit
' update flag new2 2
DoCmd.OpenQuery "8b_update_flag2", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9_updategroup", acViewNormal, acEdit
' creation control and target group
DoCmd.OpenQuery "9b_updategroup", acViewNormal, acEdit
' Add histo2
DoCmd.OpenQuery "9Z_add_histo2", acViewNormal, acEdit

' Directory of outpout
Dim ft, fs, f, control, target
Set ft = CreateObject("Scripting.FileSystemObject")
Set f = ft.GetFile(Application.CurrentDb.Name)
Set fs = CreateObject("Scripting.FileSystemObject")
control = UCase(f.ParentFolder) & "CONTROL"
target = UCase(f.ParentFolder) & "TARGET"

If fs.FolderExists(control) = True Then fs.DeleteFolder (control) Else
control = UCase(f.ParentFolder) & "CONTROL"


If fs.FolderExists(target) = True Then fs.DeleteFolder (target) Else
control = UCase(f.ParentFolder) & "CONTROL"


fs.createfolder (control)
fs.createfolder (target)


' export files
DoCmd.OutputTo acQuery, "FR_CONTROL", "MicrosoftExcelBiff8(*.xls)",
control

& "FR_CONTROL.xls", False, "", 0
DoCmd.OutputTo acQuery, "FR_TARGET", "MicrosoftExcelBiff8(*.xls)",
target


&
"FR_TARGET.xls", False, "", 0

Proc__creationfiles1_Exit:
MsgBox "The files have been created successfully", 0, "Info"

Exit Function

Proc__creationfiles1_Err:
MsgBox "Error during creation of files", 0, "Info"
Resume Proc__creationfiles1_Exit

End Function


"Gafish" wrote in message
news:
Bonjour,

Il faudrait voir la fonction complète pour t'aider plus efficacement.
Après ton msgbox tu n'as aucune ligne de code ? Tu n'as pas une boucle
sans

fin ? Tu libères bien toutes tes variables ?

Arnaud

"dom" a écrit dans le message news:

bonjour,

j'ai construit un module qui execute qq requetes et d'autres petites
choses

avec en sortie 1 msgbox
le probleme est le suivant :
Le module s execute normalement mais a la fin de l'instruction je ne
peux


pas recuperer la main et access se "fige" apres le msgbox...

Quelqu'un a une idee de ce qui peut clocher ?

Merci d'avance

Dominique