MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código If não funciona

    Compartilhe

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Código If não funciona

    Mensagem  Henry Airlie em Qui 04 Set 2014, 19:18

    Estou aqui mais uma vez pedindo ajuda

    O comando de INSERT INTO só esta funcionando quando clico pela segunda vez no botão salvar, ou seja quando é alteração. Quando é um novo cadastro nada acontece o código que estou usando segue abaixo.
    Alguém pode corrigir?
    Grato



    Private Sub btSalvar_Click()
    On Error GoTo Err_btSalvar_Click
    If DCount("Res_Cód", "CadReserva", "Res_Cód=" & Me!Res_Cód) = 0 Then
    MsgBox "Reserva cadastrada no sistema", vbInformation, "Hotel Fazenda Point da Pesca"

    Else

    MsgBox "Alterado com sucesso", vbInformation, "Hotel Fazenda Point da Pesca"
    End If

    If MsgBox("   Deseja que acione o Alarme quando vencer à reserva ?   ", vbYesNo, "Confirmação") = vbYes Then
    DoCmd.RunSQL "INSERT INTO tblSample (Who,AppointmentDate,AppointmentTime) SELECT Res_CodApto,Res_Dta_Saida,Res_Hr_Saída FROM CadReserva WHERE CadReserva.Res_Cód=" & Me.Res_Cód
    End If

       DoCmd.RunCommand acCmdSaveRecord
       DoCmd.OpenForm "frmCalendar"
    Exit_btgravar_Click:
       Exit Sub
       
    Err_btSalvar_Click:
       MsgBox Err.Description
    End Sub

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Código If não funciona

    Mensagem  Henry Airlie em Qui 04 Set 2014, 19:31

    Olá amigos
    Já consegui resolver
    Obrigado

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Código If não funciona

    Mensagem  Alexandre Neves em Qui 04 Set 2014, 19:52

    Boa tarde,
    Marque Resolvido


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

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Código If não funciona

    Mensagem  Henry Airlie em Qui 04 Set 2014, 19:59

    Olá
    Não sabia como colocar, mas já descobri.
    desculpa.
    Obrigado

      Data/hora atual: Sab 03 Dez 2016, 02:23