CADASTRO LIMITADO

USUARIO.EXCLUIDOS 26/07/2005 12:26:48
#96040

Prezados,

Quando começo a cadastrar clientes no meu banco de dados, tudo vai normal até o quarto cadastro, após isso aparece a mensagem de erro: RUN TIME ERROR 3003 COULDÂÂÂ'T START TRANSACTION; TO MAY TRANSACTION ALREADY NESTED e a linha TBCADASTRO.UPDATE fica em amarelo. A função click do botão salvar é o seguinte:

If ALTERAR.Caption = "Salvar" Then
MERCADORIA.Text = UCase(MERCADORIA.Text)
UNIDADE.Text = UCase(UNIDADE.Text)
AFolha.BeginTrans
tbcadastro.AddNew
If Len(DATA.Text) <> 0 Then tbcadastro!DATA = (DATA.Text)
If Len(CODIGO.Text) <> 0 Then tbcadastro!CODIGO = (CODIGO.Text)
If Len(MERCADORIA.Text) <> 0 Then tbcadastro!MERCADORIA = (MERCADORIA.Text)
If Len(UNIDADE.Text) <> 0 Then tbcadastro!UNIDADE = (UNIDADE.Text)
If Len(UNITARIO.Text) <> 0 Then tbcadastro!UNITARIO = (UNITARIO.Text)
tbcadastro.Update
AFolha.CommitTrans
Banco_Txt
ALTERAR.Caption = "Alterar"
Set tbcadastro = tbcadastro.OpenRecordset()
Exit Sub
Else
If ALTERAR.Caption = "Alterar" Then
MERCADORIA.Text = UCase(MERCADORIA.Text)
UNIDADE.Text = UCase(UNIDADE.Text)
AFolha.BeginTrans
tbcadastro.Edit
If Len(DATA.Text) <> 0 Then tbcadastro!DATA = (DATA.Text)
If Len(CODIGO.Text) <> 0 Then tbcadastro!CODIGO = (CODIGO.Text)
If Len(MERCADORIA.Text) <> 0 Then tbcadastro!MERCADORIA = (MERCADORIA.Text)
If Len(UNIDADE.Text) <> 0 Then tbcadastro!UNIDADE = (UNIDADE.Text)
If Len(UNITARIO.Text) <> 0 Then tbcadastro!UNITARIO = (UNITARIO.Text)
tbcadastro.Update

AFolha.CommitTrans

End If
End If

Pq isso acontece?
Grato