Discussion :

[mpascolo]

Bonjour a tous,

Je développe actuellement un petit logiciel pour un service sur Access.

J'ai un tout petit souci à l'ouverture de mon appli. En effet, je fais une petite verification sur la plus grosse table à l'ouverture de mon 1er formulaire (FrmMenuPrincipal)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim rst As Recordset
Dim db As Database
Dim sql As String
Dim i, n As Integer
 
sql = "SELECT * FROM DOCUMENT"
 
Set db = CurrentDb
 
Set rst = db.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
 
While Not rst.EOF 
 
n = rst.Fields(0)
 
i = DCount("*", "MONTANTBUDGET", "MONTANTBUDGET.NumDocument = " & n)
 
If i = 0 Then
    db.Execute "DELETE * FROM DOCUMENT WHERE DOCUMENT.NumDocument = " & n & ";"
End If
 
rst.MoveNext
Wend

Rien de difficile. Cependant, cela prend de + en + de temps (logique ... 6 à 7 secondes pour le moment). Je souhaiterais effectuer cette tâche en arriere plan pour que l'utilisateur puisse continuer à utiliser l'application en même temps et ne soit pas bloqué ...

Est ce possible ? Est ce que qq'un aurait une solution ?

Merci d'avance et a bientot ..

[Moha25fr]

Et si tu remplace ton traitement par une simple requête??

Code :

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

docmd.runsql "DELETE DISTINCTROW DOCUMENT.* FROM DOCUMENT LEFT JOIN MONTANTBUDGET ON DOCUMENT.NumDocument  = MONTANTBUDGET.NumDocument WHERE (((MONTANTBUDGET.NumDocument ) Is Null));"

A+

[mpascolo]

Que fais exactement ta requête ?

Code :

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

docmd.runsql "DELETE DISTINCTROW DOCUMENT.* FROM DOCUMENT LEFT JOIN MONTANTBUDGET ON DOCUMENT.NumDocument  = MONTANTBUDGET.NumDocument WHERE (((MONTANTBUDGET.NumDocument ) Is Null));"

Je souhaite effacer tous les documents qui n'ont aucune ligne de MontantBudget ...

De +, cela génère un message type "vous allez supprimer 1 enregistrement ... bla bla" qui est un peu embêtant pour les utilisateurs ... Est il possible d'eviter l'affichage de ce message ?

[Sethouille]

Oui tu peux l'enlever ce msg ... mais faudrait que je retrouve comment

[mpascolo]

Non pour ça, j'ai trouvé ...

Code :

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

DoCmd.Setwarnings false

Merci quand même ...
Et pour la requête ? Je l'ai testé et elle a l'air de fonctionner mais j'aimerais quand même etre certain qu'elle fasse ce que je souhaite et qu'elle n"efface pas des données importantes ...

[Sethouille]

Sinon pourquoi tu delete pas directement de ton recordset avec le rs.delete ?
La il te demandera pas de confirmation pour effacer.
Par contre je sais pas si ça va aussi prendre du temps

[mpascolo]

mon Recordset ne contient pas la bonne requête ...

[Sethouille]

Bah crée en un autre qui contient la bonne requete

[Moha25fr]

salut je reviens à ton code
En lisant ton code tu veux supprimer les documents qui n'ont pas de budgets
c'est pourquoi je te propose cette requête simple

Code :

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

1
2
3
4
5
6
7
 
DoCmd.SetWarnings False  'Pour désactiver le message d'avertissement d'access
 
 
Docmd..runsql "DELETE DISTINCTROW DOCUMENT.* FROM DOCUMENT LEFT JOIN MONTANTBUDGET ON DOCUMENT.NumDocument  = MONTANTBUDGET.NumDocument "
 
DoCmd.SetWarnings True ''Pour activer le message d'avertissement d'access

Bon courage

[mpascolo]

Merci, c'est vraiment ce que je souhaitais. Je gagne enormement de temps avec vos requêtes.

Encore qques mois de données dans ma base et je passais 1 minutes à attendre à chaque fois que j'ouvrais le menu principal ... LOL

POURQUOI CHERCHER SIMPLE QUAND ON PEUT FAIRE COMPLIQUE !!!

Merci à vous et a bientot. ..