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 : 19
    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 5/8/2022, 16:02

    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 11/8/2022, 15:28, editado 1 vez(es)
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 427
    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 5/8/2022, 17:43

    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 : 19
    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 5/8/2022, 18:13

    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 : 19
    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 5/8/2022, 20:59

    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 : 14/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 5/8/2022, 22:12

    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 : 19
    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 8/8/2022, 13:52

    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 : 2513
    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 8/8/2022, 14:53

    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


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 19
    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 8/8/2022, 18:25

    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 : 2513
    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 8/8/2022, 18:28

    Olá,

    Não veio o anexo.


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 19
    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 8/8/2022, 18:42

    Veja se foi agora!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2513
    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 8/8/2022, 18:45



    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 19
    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 8/8/2022, 18:56

    veja se foi agora
    Anexos
    [Resolvido]Botão salvar verificando se subformulário foi preenchido AttachmentBD Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (674 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2513
    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 8/8/2022, 19:31

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

    Att,

    Alexandre Fim


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 2513
    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 8/8/2022, 20:06

    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


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 19
    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 8/8/2022, 20:54

    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 : 2513
    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 8/8/2022, 22:35

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

    Aguarde!

    Att,

    FIM


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 2513
    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 10/8/2022, 22:00

    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 6 vez(es)


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 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 : 19
    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 11/8/2022, 13:25

    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 : 2513
    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 11/8/2022, 16:50

    Valeu Lucimara,

    O fórum agradece.

    Sucesso.


    .................................................................................
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Botão salvar verificando se subformulário foi preenchido Information2 Postar anexos no fórum: CLIQUE AQUI

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

      Data/hora atual: 15/8/2022, 13:23