NO CURRENT RECORD

USUARIO.EXCLUIDOS 21/11/2006 14:33:34
#185575

'CRIA UMA MATRIZ COM A DIMENSAO CERTA DA QTDE DE CAMPOS
ReDim TableFields(rsBomN.Fields.Count - 1) As String
'EM CADA CAMPO DA MATRIZ GRAVA O NOME DE CADA COLUNA DA TABELA
For IndFields = 0 To (rsBomN.Fields.Count - 1)
TableFields(IndFields) = rsBomN.Fields(IndFields).Name
Next
QtyFields = rsBomN.Fields.Count - 1
Limit = QtyFields




While QtyFields <= Limit
If QtyFields = 0 Then
With rsBomC
.AddNew
.Fields(TableFields(QtyFields)) = rsBomN.Fields(TableFields(QtyFields))
.Update
End With
Else
With rsBomC
.Edit
.Fields(TableFields(QtyFields)) = rsBomN.Fields(TableFields(QtyFields))
.Update
End With
End If
QtyFields = QtyFields + 1
Wend


da um erro de no current record quando eu faco o .Edit