Postada em 10/02/2011 16:51 hs
Abaixo segue meu codigo, estou levando o erro 3265 "Item not foun in this collection" qdo vai adicionar os dados na tabela access que estou criando! Logo no primeiro campo já da o erro....
Sub abreConexaoAccess(Path As String, Tabela As String)
Dim base As Database
Dim Tabela1 As Recordset
Dim atualiza As Integer
Set base = DBEngine.Workspaces(0).OpenDatabase(Path)
Set Tabela1 = base.OpenRecordset(Tabela, dbOpenTable)
Select Case Tabela
Case "ITENSLOTE"
Do While Not RsEmComum.EOF
Tabela1.AddNew
Tabela1![IL_ILSUBDIVISAO] = IIf(RsEmComum!IL_ILSUBDIVISAO.Value = "", "NULL", RsEmComum!IL_ILSUBDIVISAO.Value)
Tabela1![IL_CONUMERO] = IIf(RsEmComum!IL_CONUMERO.Value = "", "NULL", RsEmComum!IL_CONUMERO.Value)
Tabela1![IL_ILESCRITORIO] = IIf(RsEmComum!IL_ILESCRITORIO.Value = "", "NULL", RsEmComum!IL_ILESCRITORIO.Value)
Tabela1![IM_MACODIGO] = IIf(RsEmComum!IM_MACODIGO.Value = "", "NULL", RsEmComum!IM_MACODIGO.Value)
Tabela1![MA_MADESCRICAO] = IIf(RsEmComum!MA_MADESCRICAO.Value = "", "NULL", RsEmComum!MA_MADESCRICAO.Value)
Tabela1![IM_IMQTDEINS] = IIf(RsEmComum!IM_IMQTDEINS.Value = "", "NULL", RsEmComum!IM_IMQTDEINS.Value)
Tabela1![IM_IMCLASSIFICACAOINS] = IIf(RsEmComum!IM_IMCLASSIFICACAOINS.Value = "", "NULL", RsEmComum!IM_IMCLASSIFICACAOINS.Value)
Tabela1![IM_IMQTDERET] = IIf(RsEmComum!IM_IMQTDERET.Value = "", "NULL", RsEmComum!IM_IMQTDERET.Value)
Tabela1![IM_IMCLASSIFICACAORET] = IIf(RsEmComum!IM_IMCLASSIFICACAORET.Value = "", "NULL", RsEmComum!IM_IMCLASSIFICACAORET.Value)
Tabela1![IL_CSCLASSESERVICO] = IIf(RsEmComum!IL_CSCLASSESERVICO.Value = "", "NULL", RsEmComum!IL_CSCLASSESERVICO.Value)
Tabela1.Update
RsEmComum.MoveNext
Loop
End Select
End Sub
|
