Discussion :

[Kalvin_20]

Bonjour à tous comme j ai pas eu de reponse j'ai crée une nouvelle discution

j'ai une feuille de recherche (environ 40requete pour satisfaire toutes recherches).Je veux visualiser le resultat dans un tableau

Code :

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

1
2
3
4
5
Dim strSQL As String
   Set db = CurrentDb()
   strSQL = "SELECT Tableau.Date, Tableau.Semaine, Tableau.Equipe, Tableau.Machine, Tableau.[Nom Pièce], Tableau.Îlot, Tableau.[Pièces Bonnes], Tableau.Réappairage, Tableau.[Coût Réappairage], Tableau.[% Rebut], Tableau.[Coût rebut], Tableau.[% Pièces bonnes / qté produite], Tableau.[% Rebuts / qté produite] INTO NewTable FROM Tableau WHERE Tableau.semaine Like '" & semaine_rechercheavance.Value & "'"
   db.Execute (strSQL)
   DoCmd.OpenTable "NewTable", acViewNormal, acReadOnly

ce bout de code me permet d'executer ma requete

PROBLEME : apres la premiere recherche le tableau "NewTable" s'enregistre automatiquement dans ma base de données et du coup j'arrive plus à faire la meme recherche 2fois (j'espere que je suis assez clair)car ça me renvoie une erreur comme quoi NewTable existe deja.

J ai pensé à deux solutions , soit de crée un tableau pour chaque requete de recherche et du coup j aurais dans mon code qu'à ouvrir le tableau qui correspond à ma recherche.

Soit à supprimer le tableau apres que l'utilisateur quitte la page recherche

Mais je n'ai aucune idée du code qui me permetrai de realiser l'une des deux solutions

Dans l attente de vos reponses mes salutations les plus distinguées

Merci

[Jean-Philippe André]

issu d'autres threads :

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
Function DoesTableExist(ByVal NomTable As String) As Boolean
    Dim str As String
    On Error GoTo NoTable
    str = CurrentDb.TableDefs(NomTable).Name
    DoesTableExist = True
    Exit Function
NoTable:
    Select Case err.Number
        Case 3265
            DoesTableExist = False
    End Select
End Function
 
'dans ton code actuel
Dim strSQL As String
   Set db = CurrentDb()
   strSQL = "SELECT Tableau.Date, Tableau.Semaine, Tableau.Equipe, Tableau.Machine, Tableau.[Nom Pièce], Tableau.Îlot, Tableau.[Pièces Bonnes], Tableau.Réappairage, Tableau.[Coût Réappairage], Tableau.[% Rebut], Tableau.[Coût rebut], Tableau.[% Pièces bonnes / qté produite], Tableau.[% Rebuts / qté produite] INTO NewTable FROM Tableau WHERE Tableau.semaine Like '" & semaine_rechercheavance.Value & "'"
If DoesTableExist("NewTable") Then
 Db.Execute "DROP TABLE NewTable"
End if
   db.Execute (strSQL)
   DoCmd.OpenTable "NewTable", acViewNormal, acReadOnly

[Kalvin_20]

merci de votre aide ça serai sympa si vous me commenter cotre code et me l'expliquer svp sa m apprendra beaucoup de chose

[Jean-Philippe André]

cette fonction reçoit en paramètre nom d'une table, et retourne un booléen à Vrai si celle-ci existe, un booléen à Faux sinon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function DoesTableExist(ByVal NomTable As String) As Boolean
    Dim str As String
    On Error GoTo NoTable
    str = CurrentDb.TableDefs(NomTable).Name
    DoesTableExist = True
    Exit Function
NoTable:
    Select Case err.Number
        Case 3265
            DoesTableExist = False
    End Select
End Function

Pour tester l'existence de la table XXX on lancera donc le code suivant :

Code :

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

1
2
3
4
5
If DoesTableExist("XXX") Then
msgbox "ca existe"
Else
msgbox "ca n'existe pas"
End If

L'idée est donc de tester si NewTable existe, la détruire avant de la remplacer par la nouvelle requete.

[Kalvin_20]

Merci beaucoup c'est exactement ce que je cherchais Merci