MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Código para ultrapassar Err 3340 em instrução UPDATE Empty 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 19/12/2019, 22:14

    Top  Very Happy

    Obrigado pela partilha!

    Abraço

      Data/hora atual: 22/11/2024, 09:36