bonsoir,
ai 2 petites questions à soumettre
1)ce code est censé supprimer la table , ses données et ses métadonnées
table 2 est le nom de la table
strSQL = "drop table" & table2
ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
sans indiquer d'erreur
2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
faut rajouter une référence? merci de m'éclairer
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
Pascal
re, je prècise table2 est le nom de la tble récupéré dans une combo
"Pascal" a écrit dans le message de news:
bonsoir, ai 2 petites questions à soumettre 1)ce code est censé supprimer la table , ses données et ses métadonnées table 2 est le nom de la table strSQL = "drop table" & table2 ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit sans indiquer d'erreur
2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
faut rajouter une référence? merci de m'éclairer
Pascal
re,
je prècise table2 est le nom de la tble récupéré dans une combo
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
egNt9CxNFHA.2704@TK2MSFTNGP15.phx.gbl...
bonsoir,
ai 2 petites questions à soumettre
1)ce code est censé supprimer la table , ses données et ses métadonnées
table 2 est le nom de la table
strSQL = "drop table" & table2
ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
sans indiquer d'erreur
2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
re, je prècise table2 est le nom de la tble récupéré dans une combo
"Pascal" a écrit dans le message de news:
bonsoir, ai 2 petites questions à soumettre 1)ce code est censé supprimer la table , ses données et ses métadonnées table 2 est le nom de la table strSQL = "drop table" & table2 ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit sans indiquer d'erreur
2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
faut rajouter une référence? merci de m'éclairer
Pascal
3stone
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit | sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows | faut rajouter une référence? merci de m'éclairer
"Pascal"
| ai 2 petites questions à soumettre
| 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table
| strSQL = "drop table" & table2
| ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
| faut rajouter une référence? merci de m'éclairer
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit | sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows | faut rajouter une référence? merci de m'éclairer
bonjour 3 stone, merci pour la réponse, vais essayer le DROP pour question2: je veux sauver un tableau EXCELL pour l'instant j'ai ceci wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" & NbrCorrespondance & "Sortis") wbk.Close xlApp.Quit j'aurais preféré laissé le choix du nom de sauvegarde
merci
Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
| faut rajouter une référence? merci de m'éclairer
bonjour 3 stone,
merci pour la réponse, vais essayer le DROP
pour question2:
je veux sauver un tableau EXCELL
pour l'instant j'ai ceci
wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" &
NbrCorrespondance & "Sortis")
wbk.Close
xlApp.Quit
j'aurais preféré laissé le choix du nom de sauvegarde
merci
Pascal
"3stone" <spam@spam> a écrit dans le message de news:
eQ02OpxNFHA.688@TK2MSFTNGP10.phx.gbl...
Salut,
"Pascal"
| ai 2 petites questions à soumettre
| 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table
| strSQL = "drop table" & table2
| ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
bonjour 3 stone, merci pour la réponse, vais essayer le DROP pour question2: je veux sauver un tableau EXCELL pour l'instant j'ai ceci wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" & NbrCorrespondance & "Sortis") wbk.Close xlApp.Quit j'aurais preféré laissé le choix du nom de sauvegarde
merci
Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
| faut rajouter une référence? merci de m'éclairer
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name & ";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
| faut rajouter une référence? merci de m'éclairer
re 3Stone,
ai essayé Drop marche pas chez moi
voici ce que je fait: (en raccourci)
dim Table2 as string
Dim tbl As DAO.TableDef
cboChoixTable2.RowSourceType = "Liste valeurs"
For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "Msys" Then
cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name &
";"
End If
cboChoixTable2.Value = tbl.Name
Next tbl
set tbl = Nothing
'
Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then
strSQL = "drop table " & Table2
CurrentDb.Execute strSQL
End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO
(sortie sub (pour le test))
le problème est bien sur l'instruction strSQL ????
comprend pas et toi?
Pascal
"3stone" <spam@spam> a écrit dans le message de news:
eQ02OpxNFHA.688@TK2MSFTNGP10.phx.gbl...
Salut,
"Pascal"
| ai 2 petites questions à soumettre
| 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table
| strSQL = "drop table" & table2
| ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name & ";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de windows
| faut rajouter une référence? merci de m'éclairer
L'instruction Drop Table NomDeLaTable marche très bien. Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu conventionnel pour un nom de table ? Si c'est le cas, modifies le SQL de la manière suivante : strSQL = "drop table [" & Table2 & "];"
A+ Eric
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name & ";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
L'instruction Drop Table NomDeLaTable marche très bien.
Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu
conventionnel pour un nom de table ?
Si c'est le cas, modifies le SQL de la manière suivante :
strSQL = "drop table [" & Table2 & "];"
A+
Eric
re 3Stone,
ai essayé Drop marche pas chez moi
voici ce que je fait: (en raccourci)
dim Table2 as string
Dim tbl As DAO.TableDef
cboChoixTable2.RowSourceType = "Liste valeurs"
For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "Msys" Then
cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name &
";"
End If
cboChoixTable2.Value = tbl.Name
Next tbl
set tbl = Nothing
'
Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then
strSQL = "drop table " & Table2
CurrentDb.Execute strSQL
End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO
(sortie sub (pour le test))
le problème est bien sur l'instruction strSQL ????
comprend pas et toi?
Pascal
"3stone" <spam@spam> a écrit dans le message de news:
eQ02OpxNFHA.688@TK2MSFTNGP10.phx.gbl...
Salut,
"Pascal"
| ai 2 petites questions à soumettre
| 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table
| strSQL = "drop table" & table2
| ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
L'instruction Drop Table NomDeLaTable marche très bien. Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu conventionnel pour un nom de table ? Si c'est le cas, modifies le SQL de la manière suivante : strSQL = "drop table [" & Table2 & "];"
A+ Eric
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name & ";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées | table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
Eh bien t'es encore là toi? je t'avais dit : je vais prendre un abonnement , lol merci pour ton aide j'ai modifié l'instruction SQL et cela fonctionne très bien A+ Pascal
"Eric" a écrit dans le message de news:
Bonjour Pascal,
L'instruction Drop Table NomDeLaTable marche très bien. Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu conventionnel pour un nom de table ? Si c'est le cas, modifies le SQL de la manière suivante : strSQL = "drop table [" & Table2 & "];"
A+ Eric
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name &
";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
Eh bien t'es encore là toi?
je t'avais dit : je vais prendre un abonnement , lol
merci pour ton aide
j'ai modifié l'instruction SQL et cela fonctionne très bien
A+
Pascal
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
eHVUi51NFHA.2604@TK2MSFTNGP10.phx.gbl...
Bonjour Pascal,
L'instruction Drop Table NomDeLaTable marche très bien.
Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu
conventionnel pour un nom de table ?
Si c'est le cas, modifies le SQL de la manière suivante :
strSQL = "drop table [" & Table2 & "];"
A+
Eric
re 3Stone,
ai essayé Drop marche pas chez moi
voici ce que je fait: (en raccourci)
dim Table2 as string
Dim tbl As DAO.TableDef
cboChoixTable2.RowSourceType = "Liste valeurs"
For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "Msys" Then
cboChoixTable2.RowSource = cboChoixTable2.RowSource &
tbl.Name &
";"
End If
cboChoixTable2.Value = tbl.Name
Next tbl
set tbl = Nothing
'
Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then
strSQL = "drop table " & Table2
CurrentDb.Execute strSQL
End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO
(sortie sub (pour le test))
le problème est bien sur l'instruction strSQL ????
comprend pas et toi?
Pascal
"3stone" <spam@spam> a écrit dans le message de news:
eQ02OpxNFHA.688@TK2MSFTNGP10.phx.gbl...
Salut,
"Pascal"
| ai 2 petites questions à soumettre
| 1)ce code est censé supprimer la table , ses données et ses
métadonnées
| table 2 est le nom de la table
| strSQL = "drop table" & table2
| ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
Eh bien t'es encore là toi? je t'avais dit : je vais prendre un abonnement , lol merci pour ton aide j'ai modifié l'instruction SQL et cela fonctionne très bien A+ Pascal
"Eric" a écrit dans le message de news:
Bonjour Pascal,
L'instruction Drop Table NomDeLaTable marche très bien. Le nom de ta table ne contiendrait-il pas un espace ou un caractère peu conventionnel pour un nom de table ? Si c'est le cas, modifies le SQL de la manière suivante : strSQL = "drop table [" & Table2 & "];"
A+ Eric
re 3Stone, ai essayé Drop marche pas chez moi voici ce que je fait: (en raccourci) dim Table2 as string Dim tbl As DAO.TableDef cboChoixTable2.RowSourceType = "Liste valeurs" For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "Msys" Then cboChoixTable2.RowSource = cboChoixTable2.RowSource & tbl.Name &
";" End If cboChoixTable2.Value = tbl.Name Next tbl set tbl = Nothing ' Table2 = cboChoixTable2.Value
If Me.CocherDeleterTable.Value = True Then strSQL = "drop table " & Table2 CurrentDb.Execute strSQL End If
ben voilà cela coince au niveau du DROP si je place avant ON ERROR GOTO (sortie sub (pour le test)) le problème est bien sur l'instruction strSQL ???? comprend pas et toi? Pascal
"3stone" a écrit dans le message de news:
Salut,
"Pascal" | ai 2 petites questions à soumettre | 1)ce code est censé supprimer la table , ses données et ses métadonnées
| table 2 est le nom de la table | strSQL = "drop table" & table2 | ben chez moi il delete rien du tout, le prog sort de la sub à cet
endroit
| sans indiquer d'erreur
strSQL = "Drop Table " & table2
CurrentDb.Execute strSQL
| 2) j'aimerai pouvoir utiliser la boîte de dialogue SAUVER SOUS... de
windows
| faut rajouter une référence? merci de m'éclairer
Bien sûr que si et dans mon cas certainement, avec toutes les questions que je poste ici! t'as pas pris cette remarque mal au moins? je voulais dire par là que chaque fois que moi je poste une question, c'est pratiquement toi qui y répond
A+ Pascal
"Eric" a écrit dans le message de news:
Eh bien t'es encore là toi?
;-) Je passe de temps en temps, faut pas ?
A+ Eric
Bien sûr que si et dans mon cas certainement, avec toutes les questions que
je poste ici!
t'as pas pris cette remarque mal au moins?
je voulais dire par là que chaque fois que moi je poste une question, c'est
pratiquement toi qui y répond
A+
Pascal
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
ei4FXA7NFHA.1732@TK2MSFTNGP14.phx.gbl...
Bien sûr que si et dans mon cas certainement, avec toutes les questions que je poste ici! t'as pas pris cette remarque mal au moins? je voulais dire par là que chaque fois que moi je poste une question, c'est pratiquement toi qui y répond
