Código para ultrapassar Err 3340 em instrução UPDATE

**Alexandre Neves** 29/11/2019, 21:30

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº1

Código para ultrapassar Err 3340 em instrução UPDATE

Mensagem Alexandre Neves 29/11/2019, 21:30

Utilizem este procedimento

Código:: Sub UPDATE(strNomeTab As String, strInstrucaoSET As String, Optional MostraQtAlterados As Boolean = False) '--------------------------------------------------------------' ' código criado por Alexandre Neves, do Fórum MaximoAccess ' ' utilize o código livremente mas mantenha os créditos ' '--------------------------------------------------------------' 'Exemplo com opção de mostrar quantidade de registos afectados 'Call UPDATE("Tabela","Campo=X",True) em vez de UPDATE Tabela SET Campo=X 'Exemplo com opção de mostrar quantidade de registos afectados 'Call UPDATE("Tabela","Campo=X") em vez de UPDATE Tabela SET Campo=X Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("qdf" & strNomeTab, "SELECT * FROM " & strNomeTab) If MostraQtAlterados Then With CurrentDb .Execute "UPDATE qdf" & strNomeTab & " SET " & strInstrucaoSET MsgBox .RecordsAffected End With Else CurrentDb.Execute "UPDATE qdf" & strNomeTab & " SET " & strInstrucaoSET End If CurrentDb.Execute "DROP TABLE qdf" & strNomeTab End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo