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

    [Resolvido]Excluir registro do formulário

    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Excluir registro do formulário Empty [Resolvido]Excluir registro do formulário

    Mensagem  BellaDePauli 10/9/2015, 21:07

    Boa tarde pessoal,

    Sei que parece simples, vasculhei um pouco o fórum mas não consegui....

    Tenho um formulário simples, onde eu preciso clicar em cima de uma linha, e clico no botão de excluir e me retorna erro de "erro 3464 - Tipo de dados incompatível na expressão de critério." Crying or Very sad

    Código:

    If MsgBox("Confirma a exclusão do registro atual ?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub


    Dim DB As DAO.database
    Set DB = CurrentDb()
    DB.Execute "DELETE * FROM tblCodigos WHERE cdg = " & form_fundo.Form!cdg

    Set DB = Nothing
    MsgBox "Registro excluído com sucesso!"

    Se eu uso DoCmd.RunCommand acCmdDeleteRecord no lugar do código acima, da o erro "2046 - O comando ou a ação não está disponível no momento".... Crying or Very sad

    Código:

    If MsgBox("Confirma a exclusão do registro atual ?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
    DoCmd.SetWarnings False
    DoCmd.SelectObject acTable, "tblCodigos", True
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.ShowAllRecords
    Me!form_fundo.Form!cdg.SetFocus


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]Excluir registro do formulário Empty Re: [Resolvido]Excluir registro do formulário

    Mensagem  LiveBrain 12/9/2015, 05:21

    na instrução DELETE do SQL, não precisa usar o *



    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Excluir registro do formulário Empty Re: [Resolvido]Excluir registro do formulário

    Mensagem  BellaDePauli 14/9/2015, 14:09

    Bom dia LiveBrain, obrigada pela atenção.

    Mesmo sem o * retorna o erro de que "Tipo de dados incompatível na expressão de critério - 3464".

    Alguma idéia? Question Shocked


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker
    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Excluir registro do formulário Empty Re: [Resolvido]Excluir registro do formulário

    Mensagem  BellaDePauli 14/9/2015, 15:31

    Resolvi da seguinte forma...

    CurrentDb.Execute "DELETE * FROM tblCodigos WHERE cdg='" & form_fundo.Form!cdg& "'"


    Cool Cool


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker

    Conteúdo patrocinado


    [Resolvido]Excluir registro do formulário Empty Re: [Resolvido]Excluir registro do formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:27