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


4 participantes

    [Resolvido]Botão salvar verificando se subformulário foi preenchido

    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Sex Ago 05, 2022 12:02 pm

    Bom dia pessoal!

    Tenho um formulário com dados do pedido e um subformulário com dados do itens do pedido. Criei um botão salvar e preciso que ele verifique antes de salvar se houve registros cadastrados no subformulário. Com o código abaixo eu consegui que ele verificasse, mas ele não prossegue com o códido depois de verificar. Poderiam me dizer o que há de errado com meu código?


    Private Sub btn_Salvar_Click()

    Me.cmb_StatusVenda = "ATIVA"


    DoCmd.GoToControl ("frm_Item_Venda1")
    DoCmd.GoToRecord , , acFirst

    If IsNull(Forms!frm_Cadastro_Venda.frm_Item_Venda1!Quant_Item) = True Or (Forms!frm_Cadastro_Venda.frm_Item_Venda1!Quant_Item = "") Then
      MsgBox "Este campo está em branco!", vbCritical, "ATENÇÃO"
      Exit Sub


    _____Ele vem até aqui e depois volta para (DoCmd.GoToControl ("frm_Item_Venda1")
    DoCmd.GoToRecord , , acFirst))



    Else
       
    Dim X As Integer
    If Me.Dirty Then
    X = MsgBox("Deseja salvar as alterações ?", vbYesNo)
    If X = vbNo Then
    End If
    End If
    End If
    End Sub


    Desde já agradeço a ajuda!


    Última edição por lumoquenco em Qui Ago 11, 2022 11:28 am, editado 1 vez(es)
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Sidney Sex Ago 05, 2022 1:43 pm

    bom dia! lumoquenco.

    Se não estou errado, se ele entrar no primeiro IF, é por causa do " Exit Sub", função com que faz ele sair e encerrar o If.

    att, Sidney


    .................................................................................
    Att;

    Sidney Silva
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Sex Ago 05, 2022 2:13 pm

    Sim Sidney, ele entra no 1º If e quando sai ele volta para o

    DoCmd.GoToControl ("frm_Item_Venda1")
    DoCmd.GoToRecord , , acFirst
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Sex Ago 05, 2022 4:59 pm

    Na verdade, fiz alguns testes e ele só não entra na rotina:

    Dim X As Integer
    If Me.Dirty Then
    X = MsgBox("Deseja salvar as alterações ?", vbYesNo)
    If X = vbNo Then
    End If
    End If

    Já tirei o "Exit Sub" e não funcionou.

    Coloquei Me.btn_Salvar.SetFocus em baixo desta rotina e o cursor chega aí.
    Antonildo
    Antonildo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 13/03/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Antonildo Sex Ago 05, 2022 6:12 pm

    Boa noite!!
    tenho essa função veja se serve para lhe ajudar

    Public Function VerificarCamposVazios()

    '#Código de Eduardo Machado (Good Guy) - 2015
    On Error Resume Next
    Dim strMsg As String
    Dim intRetVal As Integer
    Dim ctl As control
    Dim sCampoX As Variant


    strMsg = "Verificar dados?"
    intRetVal = MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão de Relatório")
    Select Case intRetVal
    Case Is = vbYes

    Const conVinculado = -1 'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

    For Each ctl In Me.Controls
    If ctl.Tag = conVinculado Then
    Select Case ctl.ControlType
    Case acTextBox, acComboBox
    If ctl.Value = "" Or ctl.Value = Null Then

    sCampoX = ctl.Name

    MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos" 'Ou, com vbCritical
    End If
    End Select
    End If
    Next ctl
    Case Is = vbNo
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "OK", vbExclamation, "Fim da Verificação"
    End Select

    End Function
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Seg Ago 08, 2022 9:52 am

    Bom dia Antonildo!

    Este código checa o subformulário?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 10:53 am

    Olá Lucimara,

    Por gentileza, envie uma copia do seu bd, somente objetos (formulários, tabelas, modulos e etc.) envolvidos no problema, para análise e solução.
    Nem sempre o uso de subformulários é a melhor opção.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Seg Ago 08, 2022 2:25 pm

    Olá Alexandre!

    Segue a cópia!

    Se puder dar uma olhada no botão desfazer também, ele não está excluindo o ítem vendasubformulário!

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 2:28 pm

    Olá,

    Não veio o anexo.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Seg Ago 08, 2022 2:42 pm

    Veja se foi agora!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 2:45 pm



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Seg Ago 08, 2022 2:56 pm

    veja se foi agora
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 3:31 pm

    Opa....agora veio.
    Vou analisar.
    obrigado

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 4:06 pm

    Lucimara,

    Eu fiz uma cópia do "frm_Cadastro_Cliente_Venda" e preservei o que vc desenvolveu.
    Vou ajustar o formulário novo e também remover o subformulário, pois não há necessidade de utilizá-lo.

    Assim que terminar, eu disponibilizo nova versão.

    Até+

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Seg Ago 08, 2022 4:54 pm

    Mas o subformulário está no frm_Cadastro_Venda, ok?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Seg Ago 08, 2022 6:35 pm

    Sim...está!
    Mas o que eu estou mexendo não vai mais ter subformulário...rssss

    Aguarde!

    Att,

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Qua Ago 10, 2022 6:00 pm

    Olá Lucimara,

    Fiz algumas modificações no Cadastro de Vendas e também criei algumas tabelas e consultas pertinentes ao cadastro também.

    O Cadastro de Vendas ficou assim:

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Cad_ot10


    OBS: Abra o código e verifique o código e o que cada procedimento realiza.
    Fiz alguns comentários no código. Não comentei tudo!

    O sistema possui um função chamada "ValidaCampos", onde ela verifica se os campos da tela foram preenchidos:
    Código:


    Public Function ValidaCampos() As Boolean


        ValidaCampos = True
        
        If IsNull(Me.cboCPF) Or Trim(Me.cboCPF) = Empty Then
            MsgBox "Informe o CPF do cliente.", vbExclamation, "Aviso"
            Me.cboCPF.SetFocus
            Me.cboCPF.Dropdown
            ValidaCampos = False
            Exit Function
        End If
        
        '-- Inserir abaixo os campos que devem ser preenchidos
        


    End Function


    Eu coloquei somente 1 campo e os demais ficam por sua conta...rsss

    Vou tentar fazer um video para explicar melhor.

    Espero ter ajudado.

    Segue versão


    Att,

    FIM
    Anexos
    [Resolvido]Botão salvar verificando se subformulário foi preenchido AttachmentSys_Otica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (739 Kb) Baixado 41 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 30
    Registrado : 07/01/2014

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  lumoquenco Qui Ago 11, 2022 9:25 am

    Bom dia Alexandre!

    Ficou ótimo!

    Obrigada pela atenção, viu?

    cheers
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Alexandre Fim Qui Ago 11, 2022 12:50 pm

    Valeu Lucimara,

    O fórum agradece.

    Sucesso.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Botão salvar verificando se subformulário foi preenchido Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Botão salvar verificando se subformulário foi preenchido Empty Re: [Resolvido]Botão salvar verificando se subformulário foi preenchido

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter Mar 05, 2024 1:18 am