lezardjet
Messages postés77Date d'inscriptionmercredi 17 décembre 2003StatutMembreDernière intervention 9 mai 2006
-
25 juin 2004 à 10:02
lezardjet
Messages postés77Date d'inscriptionmercredi 17 décembre 2003StatutMembreDerniè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