!!!!help!!!! vb access 2000

lezardjet Messages postés 77 Date d'inscription mercredi 17 décembre 2003 Statut Membre Dernière intervention 9 mai 2006 - 25 juin 2004 à 10:02
lezardjet Messages postés 77 Date d'inscription mercredi 17 décembre 2003 Statut Membre Dernière intervention 9 mai 2006 - 25 juin 2004 à 10:36
VBes, VBeuses

Voila mon probléme :

quand je lance mon appli, mon programme bloque sur :

"erreur d'execution '3211'

Le moteur de la base de données n'a pas pu verrouiller la table 'temp_suivis_tests'car elle est déja utilisée par une autre personne ou un autre processus"

Pourtant je ferme bien cette espéce de table!
avez vous une idée

Je vous laisse mon code au cas ou il bloke sur
sql2 = "DROP TABLE temp_suivis_tests"
db1.Execute sql2

code

Private Sub Commande10_Click()
'-----------------------afficher tout les enregistrement--------------------------------------------------

'declara
Dim sql As String
Dim sql1, sql2 As String
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim cmp, last, I, J, timer As Integer
Dim db1 As DAO.Database

Set db1 = CurrentDb
DoCmd.Close , ""
DoCmd.Close acForm, "temps_tests"
DoCmd.Close acForm, "sous_form_temps_tests"

db1.Close
Set db1 = CurrentDb

'

DoCmd.Close acTable, "temp_suivis_tests"

'efface la table temp

sql2 = "DROP TABLE  temp_suivis_tests"
db1.Execute sql2

'recopi table suivis dan le temp
'sql = "CREATE TABLE temp_suivis_tests"
'db1.Execute sql
sql1 = "SELECT suivis_tests.* INTO temp_suivis_tests FROM suivis_tests"
db1.Execute sql1

DoCmd.OpenForm "Temps_tests", acNormal, "", "", , acNormal

db1.Close

 

End Sub

2 réponses

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
25 juin 2004 à 10:19
5 messages pour le meme probléme y'en a con pas trop de respect qu'en même !!!

It@li@
0
lezardjet Messages postés 77 Date d'inscription mercredi 17 décembre 2003 Statut Membre Dernière intervention 9 mai 2006
25 juin 2004 à 10:36
probleme de mozzilla
escusez moua...
sa arrive koi...
0
Rejoignez-nous