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


3 participantes

    [Resolvido]Botão de excluir com condição

    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]Botão de excluir com condição Empty Botão de excluir com condição

    Mensagem  BellaDePauli 19/3/2012, 11:41

    Bom Dia Pessoal, tudo bom?

    Sei que é uma dúvida simples, mas não consigo entender o porque do código de DELETE não funciona... Shocked

    O meu problema é na opção 1, quando eu tenho que digitar uma data para excluir o registro. Alguém pode me ajudar?

    Segue o código:

    Dim db As Database, x As String
    On Error GoTo errado:
    If MsgBox("Deseja excluir dados da base de dados", 36, "Atenção") = vbYes Then
    x = InputBox("Digite o tipo de exclusão :" & Chr(13) & Chr(13) & "1 - Para determinado periodo" & Chr(13) & Chr(13) & "2 - Para todo Banco de Dados", "Atenção")
    If x = 1 Then
    VTeste = InputBox("Entre com o periodo a ser excluido (ex.12FE)", "Atenção")
    DoCmd.SetWarnings False
    If Len(VTeste) <> 0 Then
    DoCmd.RunSQL "Delete FROM tbBJ09 WHERE Periodo = " & VTeste" DoCmd.SetWarnings True
    Refresh_form
    MsgBox "Excluido com sucesso", vbInformation, "Atenção"
    End If
    ElseIf x = 2 Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from tbBJ09"
    DoCmd.SetWarnings True
    Refresh_form
    MsgBox "Todos os dados foram excluidos com sucesso", vbInformation, "Atenção"
    Else
    MsgBox "Tipo de opção incorreta", vbInformation, "Atenção"
    End If
    End If
    Exit Sub
    errado:
    End Sub


    .................................................................................
    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  Alexandre Neves 19/3/2012, 12:43

    Boa tarde, Bella

    Será DoCmd.RunSQL "Delete FROM tbBJ09 WHERE Periodo =#" & VTeste & "#;"

    reveja a posição de DoCmd.SetWarnings True
    Deverá colocar fora do IF de forma a, se não entrar no IF, retomar os alertas
    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]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  BellaDePauli 19/3/2012, 14:22

    Oi Alexandre, tentei da forma que você sugeriu, mas também não funcionou!?

    Alguma outra sugestão? Sad


    .................................................................................
    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]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  BellaDePauli 19/3/2012, 14:36

    Oi Alexandre e pessoal do fórum consegui a solução da seguinte forma:

    DoCmd.RunSQL "Delete FROM tbBJ09 WHERE Periodo = '" + VTeste + "'"

    Não entendi ao certo porque de tantas formas para pegar o dado da variável, acho que tem haver com a versão do Access...

    O importante é que funcionou! cheers


    .................................................................................
    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  JPaulo 19/3/2012, 15:02

    Ola Cibele;

    Para que entenda, o problema não estava nesse sinal de +, ele faz mais ou menos a mesma coisa que o &

    O problema estava nas aspas simples, porque esse campo é texto e o Grande Alexandre pensou ser data #...#

    Se você quiser testar assim, verá que funfa tambem;

    Periodo = '" & VTeste & "'"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão de excluir com condição Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão de excluir com condição Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão de excluir com condição Folder_announce_new Instruções SQL como utilizar...
    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]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  BellaDePauli 19/3/2012, 15:32

    Oi JPaulo, mto obrigada pela explicação, fiz o teste e realmente funcionou! É bom entender para não errar mais!

    Mto Obrigada! Very Happy


    .................................................................................
    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]Botão de excluir com condição Empty Re: [Resolvido]Botão de excluir com condição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 06:00