MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 19/11/2019, 16:47

    Uso a tempo a função abaixo, e de maneira geral parou de funcionar me retornando o erro (3340) consulta corrompida

    mas.... não tem nada corrompido


    Dim X As Double
    Dim Y As Double
    X = Me.codigo
    Y = Me.CBO_COD_CARREG

    CurrentDb.Execute "UPDATE tbl_sis_expedicao_data_lista SET COD_VEICULO=" & X & " WHERE COD_CAR_LISTA=" & Y & ""


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 19/11/2019, 17:01

    Boa noite Nois

    Isso aconteceu motivado da atualização do Office.

    Veja o link abaixo

    https://www.maximoaccess.com/t36920-error-3340-consulta-corrompida-atualizacao-do-windows


    .................................................................................
    *** Só sei que nada sei ***
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 19/11/2019, 17:26

    Shocked complicou demais....

    tem alguma sugestão para substituir o dito cujo


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 19/11/2019, 17:58

    É Nois

    Complicou mesmo. Esperemos auxílio dos Gr. Mestres.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  obedebatista em 19/11/2019, 20:29

    Eu também estou com o mesmo problema, usava esta função:

    CurrentDb.Execute "UPDATE Producao SET DtPgto2= #" & Format(DataPGTO, "mm-dd-yyyy") & "# WHERE NumOS=" & Me.NumOF & ";" 'ESTE FUNCIONA

    e até semana passada funcionava perfeitamente, mas agora parou de funcionar e dá o erro 3340 consulta corrompida.

    Alguma ideia de como solucionar?
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 19/11/2019, 20:45

    paleativamente vou criar varias consultas baseado na tabela.... resolve por hora (conforme dica no topico do Assis)

    de: CurrentDb.Execute "UPDATE tbl_sis_expedicao_data_lista SET COD_VEICULO=" & X & " WHERE COD_CAR_LISTA=" & Y & ""

    para: CurrentDb.Execute "UPDATE cns_tbl_sis_expedicao_data_lista SET COD_VEICULO=" & X & " WHERE COD_CAR_LISTA=" & Y & ""



    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 13/03/2014

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Antonildo em 21/11/2019, 02:07

    oi
    tenta assim

    CurrentDb.Execute ("UPDATE Producao SET DtPgto2= Format(DataPGTO, "mm-dd-yyyy") WHERE NumOS=" & Me.NumOF & ";")
    CurrentDb.Execute ("UPDATE tbl_sis_expedicao_data_lista SET COD_VEICULO= X WHERE COD_CAR_LISTA=" & Y & "")
    avatar
    obedebatista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 28/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  obedebatista em 21/11/2019, 19:52

    Boa noite

    Fiz como o amigo Nois sugeriu através da consulta e deu certo

    Antes: CurrentDb.Execute "UPDATE ProducaoSub SET DtPgto= #" & Format(DataPGTO, "mm-dd-yyyy") & "# WHERE IdOS=" & Me.NumOF & ";"

    Depois: CurrentDb.Execute "UPDATE CsProducaoSub SET DtPgto= #" & Format(DataPGTO, "mm-dd-yyyy") & "# WHERE IdOS=" & Me.NumOF & ";"
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  brunoluizmaia em 26/11/2019, 08:55

    Boas,

    Eu fiz a rotina abaixo para superar o erro e não ter que criar consultas.



    On Error GoTo ErrorHandler
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String

    sql = "Select * FROM DB_Sub_orcamento WHERE id=" & Me.txt_id_sub & ""

    Set db = CurrentDb
    Set rs = db.OpenRecordset(sql)

    With rs

       If Not .BOF And Not .EOF Then
           .MoveLast
           .MoveFirst
           
           If .Updatable Then
           
               .Delete
           End If
           
       End If
               
    End With

    [Sub_orcamento].Form.Requery

    ExitSub:
       Set db = Nothing
       Set rs = Nothing
       Exit Sub
       
    ErrorHandler:
       Resume ExitSub
       
    'CurrentDb.Execute "DELETE * FROM DB_Sub_orcamento WHERE id=" & Me.txt_id_sub & "" - parou de funcionar após atualizacao
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 26/11/2019, 10:41

    no caso do Update como fica, tentei de algumas formas e não funfou


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  brunoluizmaia em 26/11/2019, 10:49

    Segue o caso do Update.

    creditos: by Robert Austin - Access All in One

    On Error GoTo ErrorHandler

    'This sub-produre will add 'z' to the first name of
    'the record that corresponds to TeacherID 5

    Dim sql As String
    Dim rs As DAO.Recordset

    sql = "SELECT * FROM tblTeachers WHERE TeacherID=5"
    'We are using a select statement that will return only
    'one record (TeacherID 5)

    Set rs = CurrentDb.OpenRecordset(sql)
    'Open RecordSet

    With rs

    If Not .BOF And Not .EOF Then
    'Ensure that the recordset contains records
    'If no records the code inside the if...end if
    'statement won't run

    .MoveLast
    .MoveFirst
    'Not necessary but good practice

    If .Updatable Then
    'It is possible that the record you want to update
    'is locked by another user. If we don't check before
    'updating, we will generate an error

    .Edit
    'Must start an update with the edit statement

    ![FirstName] = "z" & ![FirstName]
    'Another way of accessing the fields would be to use
    '.fields("FirstName") = z" & .fields("FirstName")

    .Update
    'And finally we will need to confirm the update

    End If
    End If

    .Close
    'Make sure you close the recordset...
    End With

    ExitSub:
    Set rs = Nothing
    '...and set it to nothing
    Exit Sub
    ErrorHandler:
    Resume ExitSub

    End Sub
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 27/11/2019, 13:06

    deu não


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  brunoluizmaia em 28/11/2019, 07:25

    Esse é o que tenho funcionando em meu banco

    dim db as DAO.Database
    dim rs1 as DAO.recordset
    dim sql1 as string

    sql1 = "Select * from SUATABELA WHERE NomeCampoTabela=" & me. Camposeuformulario & "" - (Se texto colocar aspas simples)

    set db = currentDb
    Set rs1 = db.OpenRecordset(sql1)

    With rs1
    If Not .BOF And Not .EOF Then
    .MoveLast
    .MoveFirst

    If .Updatable Then
    .Edit
    ![CampoDaTabela] = Me!CampoDoFormulario
    .Update
    End If
    End If
    .Close
    End With

    Set rs1 = Nothing
    Set db = Nothing

    tente assim!! Aqui está funcionando.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Alexandre Neves em 29/11/2019, 18:33



    .................................................................................
    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 29/11/2019, 18:44

    Boa noite Alexandre

    Então como fica por exemplo a linha abaixo ?

    DoCmd.RunSQL "UPDATE Clientes Set [Clientes].[Nome] = '" & Me.NovaLinha & "' WHERE [Clientes].[Nome] = '" & Me.Tipo & "'"


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Alexandre Neves em 29/11/2019, 19:06

    Boa noite, Assis
    Call UPDATE("Clientes","[Clientes].[Nome] = '" & Me.NovaLinha & "' WHERE [Clientes].[Nome] = '" & Me.Tipo & "'")


    .................................................................................
    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 29/11/2019, 19:26

    Obrigado Alexandre


    .................................................................................
    *** Só sei que nada sei ***
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  =>Nois em 2/12/2019, 12:07

    obrigado!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 5/12/2019, 09:12

    Alexandre Neves

    Pode dar-me uma ajuda nestas 2 com datas  ?

    Não estou a conseguir fazer funcionar

    Obrigado

    CurrentDb.Execute "UPDATE MovimentosAutomaticos SET Pago = false WHERE (dataP >=#" & Format(Me.dtInicio, "mm/dd/yyyy") & "# And datam <= #" & Format(Me.dtfim, "mm/dd/yyyy") & "#)"

    CurrentDb.Execute "UPDATE MovimentosAutomaticos SET DataP = ""  Null  "" WHERE (datap >=#" & Format(Me.dtInicio, "mm/dd/yyyy") & "# And datam <= #" & Format(Me.dtfim, "mm/dd/yyyy") & "#)"



    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Alexandre Neves em 5/12/2019, 19:55

    Boa noite, Assis
    Deverá ser
    Call UPDATE("MovimentosAutomaticos ","Pago = false WHERE (dataP >=#" & Format(Me.dtInicio, "mm/dd/yyyy") & "# And datam <= #" & Format(Me.dtfim, "mm/dd/yyyy") & "#)")

    Call UPDATE("MovimentosAutomaticos ","DataP =Null WHERE (datap >=#" & Format(Me.dtInicio, "mm/dd/yyyy") & "# And datam <= #" & Format(Me.dtfim, "mm/dd/yyyy") & "#)")


    .................................................................................
    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 6/12/2019, 06:50

    Bom dia Alexandre

    Dá o seguinte erro:

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Erro13

    E depois de fazer Debug


    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Erro211


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Alexandre Neves em 6/12/2019, 19:18

    Boa noite, Assis
    isso acontece porque ultrapassaste a instrução de eliminação, após a criação da consulta

    Coloca na linha anterior ao erro
    CurrentDb.Execute "DROP TABLE qdf" & strNomeTab
    depois de executar, elimina esta instrução


    .................................................................................
    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida Empty Re: [Resolvido]CurrentDb.Execute "UPDATE" erro 3340 consulta corrompida

    Mensagem  Assis em 6/12/2019, 21:03

    Obrigado Alexandre

    Bom fim de semana.

    PS- Esta atualização KB 4484119 só deu pau, e vai continuar a dar até resolver todos os casos mesmo em outras BDs.


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 3/12/2020, 16:23