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]Ajuda com Codigo

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Codigo Empty Ajuda com Codigo

    Mensagem  Agravina 14/4/2012, 19:52

    Pessoal neste código abaixo ,preciso fazer o seguinte 1° impedir que o usuário salve dados sem preencher determinados campos até ai tudo bem,mas no mesmo botão tem um código para gerar parcelas, o que preciso é interromper o código caso algum quando não tenha sido preenchido

    Private Sub btnGerar_Click()

    If IsNull(Me.TxtDescricao) Then
    Cancel = True
    Me.TxtDescricao.SetFocus
    MsgBox "Preencha o Campo Descricação"
    ElseIf IsNull(Me.txtData) Then
    Cancel = True
    Me.txtData.SetFocus
    MsgBox "Preencha o campo Data"
    ElseIf IsNull(Me.txtvalor) Then
    Cancel = True
    Me.txtvalor.SetFocus
    MsgBox "Preencha o campo Valor"
    End If
    DoCmd.CancelEvent
    Aqui deveria interromper para o usuário preencher o campo

    If MsgBox("Deseja gerar as Parcelas?", vbYesNo, "Gerar Parcelas") = vbYes Then
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim StrValorstatus As Double
    Dim strValorData As Double
    Dim Parc As String
    StrValorParc = Me.txtValor_Total
    For I = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
    StrParc = I & "/" & Me.txtParc
    Strstatus = Me.Status
    CurrentDb.Execute "INSERT INTO tbldespesas(Descrição,vencimento,txtValor,parcela,status)" _
    & " Values(""" & Me.TxtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """,""" & StrParc & """,""" & Strstatus & """);"
    Next I

    MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"
    End If
    DoCmd.GoToRecord , , acNewRec
    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com Codigo Empty Re: [Resolvido]Ajuda com Codigo

    Mensagem  criquio 15/4/2012, 20:49

    Quem sabe assim:

    ...
    DoCmd.CancelEvent
    Exit Sub
    ...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Codigo Empty Re: [Resolvido]Ajuda com Codigo

    Mensagem  Agravina 16/4/2012, 12:44

    Amigo Criquio Funcionou desta forma
    Docmd.cancelEvent
    Exit Sub
    End If
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com Codigo Empty Re: [Resolvido]Ajuda com Codigo

    Mensagem  criquio 16/4/2012, 15:28

    Grato pelo retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Ajuda com Codigo Empty Re: [Resolvido]Ajuda com Codigo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/11/2024, 02:21