[Resolvido]Mensagem de Erro 3211

Ola Pessoal!
Alguém sabe porque está gerando a mensagem abaixo ao tentar excluir uma tabela criada via CREATE TABLE?

"O mecanismo de banco de dados não pôde bloquear a tabela porque ela já está sendo usada por outra pessoa ou processo. (Erro 3211)"

Eu vi vários Post sobre o assunto já testei de todas as formas, mas esse msg ñ sai.


Abaixo estou colocando os códigos para criar tabela e dos eventos em um form


Cria a tabela desta forma:

Código:

   StrTabela = StrEntradaPlan
   strPlan = Replace(StrTabela, " ", "")

   ' Cria Tabela conforme planejador
   CurrentDb.Execute "CREATE TABLE [" & strPlan & "]" _
   & "(Ordem TEXT, Item TEXT, Qtde INTEGER, Tipo TEXT, Linha TEXT, [Tipo Reporte] TEXT, Alocada TEXT, Cliente TEXT, [Grupo     Cliente] TEXT, [Pedido Cliente] TEXT, Sequência TEXT, Narrativa TEXT, Inicio TEXT, Termino TEXT, Dep TEXT, Plan TEXT, Entrega TEXT, Abrir YESNO);"

   'Cria propriedades "Abrir" da tabela
   Set db = CurrentDb
   Set tdf = db.TableDefs(strPlan)
   Set fld = tdf.Fields("Abrir")
   Set prp = fld.CreateProperty("DisplayControl", dbInteger, acCheckBox)
   fld.Properties.Append prp


Eventos do form (Declaração):

Código:

Option Compare Database
Option Explicit
Dim BConfirmacaoAnali As Byte

Eventos do form (Form_Load):

Código:

   Me.Caption = strPlan
   Me.RecordSource = "SELECT * FROM " & strPlan & ";"

Eventos do form (Unload):

Código:

   BConfirmacaoAnali = MsgBox(Prompt:="Se você clicar em SIM, estará finalizando a Análise Semana " & StrEntradaSemana & " e será gerado o arquivo .XML.", Buttons:=vbYesNo + vbInformation, Title:="Finalizar Analise Semana " & StrEntradaSemana & "?")
   If BConfirmacaoAnali = 7 Then
      DoCmd.CancelEvent
   End If
   CurrentDb.Execute "INSERT INTO HistoricoGeradorOrdem ( Ordem, Item, Qtde, Tipo, Linha, [Tipo Reporte], Alocada, Cliente, [Grupo  Cliente], [Pedido Cliente], Sequência, Narrativa, Inicio, Termino, Dep, Plan, Entrega, Abrir ) SELECT [" & strPlan & "].[Ordem], [" & strPlan & "].[Item], [" & strPlan & "].[Qtde], [" & strPlan & "].[Tipo], [" & strPlan & "].[Linha], [" & strPlan & "].[Tipo Reporte], [" & strPlan & "].[Alocada], [" & strPlan & "].[Cliente], [" & strPlan & "].[Grupo Cliente], [" & strPlan & "].[Pedido Cliente], [" & strPlan & "].[Sequência], [" & strPlan & "].[Narrativa], [" & strPlan & "].[Inicio], [" & strPlan & "].[Termino], [" & strPlan & "].[Dep], [" & strPlan & "].[Plan], [" & strPlan & "].[Entrega], [" & strPlan & "].[Abrir] FROM [" & strPlan & "]"
   ExportaParaXls

Eventos do form (Close):

Código:

   Me.RecordSource = ""
   Me.Caption = ""

Existem outros eventos, mas esses é q estão relacionados com o erro!

Desde já agradeço a ajuda!

Aonde você passa o valor para a variável strPlan na função Load do seu form?

strPlan é uma variável publica de outro modulo recebida por um inputbox!

Então Avelino, no código q coloquei acima, coloco no evento close do form os cod abaixo:

Código:

   Me.RecordSource = ""
   Me.Caption = ""

e mesmo assim ñ deu!

O estranho q o Drop é o ultimo comando a ser executado! mesmo colocando logo pós desconectar do recordset o erro permanece!

Código:

   Me.RecordSource = ""
   Me.Caption = ""
   CurrentDb.Execute "Drop Table " & strPlan & ";"

Ola Avelino!

Sim limpei todas as variáveis e nada! Continua o erro! Já revi tudo e quanto mais procuro na internet mais pessoas com o mesmo problema eu acho, os que tiveram solução são os que estavam utilizando o arquivo em rede com problemas de compartilhamento, restrição de segurança, mais no meu caso está no C: da máquina, pois ainda estou desenvolvendo!

Código:

   db.Close
   Set db = Nothing
   Set tdf = Nothing
   Set fld = Nothing
   Set prp = Nothing

Avelino, pensando no que vc disse sobre limpar as variáveis comecei a ler o meu código linha por linha e focando em fechar aberturas e esvaziar variáveis, nisso encontrei o problema!

Acontece que eu me conecto a um outro BD com o comando

Código:

Set dbs = OpenDatabase("c:\caio\NECESSIDADE ITENS.accdb")

e apos me conectar fazer os eventos que precisava fazer no BD conectado eu apelas o fechava com

Código:

dbs.Close

mas eu não estava esvaziando a variável dbs! então coloquei o comando

Código:

Set dbs = Nothing

logo acima do comando Close e "Vu alá"!

Fica a dica pra quem passar pelo mesmo problema!

Muito Obrigado