MaximoAccess

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

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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: Qua 20 Set 2017, 20:58