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


3 participantes

    Formulário Obrigatório

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1014
    Registrado : 23/08/2010

    Formulário Obrigatório Empty Formulário Obrigatório

    Mensagem  Mylton 11/5/2014, 18:22

    Boa tarde e feliz dia das mães a todos no Brasil

    A idéia seria criar um aplicação onde ao clicarmos num botão de visualizar/imprimir/ relatório ou mala direta ou exportação, semelhante aos campos obrigatórios em um form, só pudessemos ir a frente na visualização e outros....se todos os forms estivessem preenchidos em todos seus campos.
    Fiz esse pequeno exemplo.
    Mas não sei como implementar e se é possível fazer isso.
    Obrigado
    Anexos
    Formulário Obrigatório Attachmentrelatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 14 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Cláudio Machado 13/5/2014, 16:18

    Boa tarde.
    Em que momento este relatório será visualizado?
    No form "Início" ?
    Você pode utilizar a opção "Se nenhum dado" do próprio relatório, colocando este código:

    MsgBox "Não há dados para imprimir.", vbInformation, "Informando"
    DoCmd.Close acReport, "Geral"

    Saudações. cheers 


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Formulário Obrigatório 90dssg para agradecer a dica que solucionou seu problema.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1014
    Registrado : 23/08/2010

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Mylton 14/5/2014, 13:10

    Bom Dia
    Desculpe a demora


    Existem um modelo do mestre J Paulo para rotina de validação de campos nulos que seria essa:

    Private Sub Command4_Click()
    'By JPaulo ® Maximo Access
    If ValidaCamposNulos = False Then
    Cancel = True
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    MsgBox "Registro Salvo com Sucesso...", vbInformation
    DoCmd.Close
    End If
    End Sub


    Private Function ValidaCamposNulos() As Boolean
    'By JPaulo ® Maximo Access
    ValidaCamposNulos = True
    Dim ctl As Control
    Dim strName As String
    For Each ctl In Me.Controls
    If IsNull(ctl) Then
    strName = ctl.Controls(0).Caption
    ValidaCamposNulos = False
    MsgBox "Preencha o Campo " & Chr(34) & strName, vbCritical
    ctl.SetFocus
    Exit Function
    End If
    Next ctl
    End Function



    O que desejo é criar uma função que leia todos os form e me diga, por caixa de mensagem, qual deles não foi preenchido.


    Obrigado
    Abs
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Cláudio Machado 14/5/2014, 16:02

    Boa tarde.
    Mas você já têm a função:

    ValidaCamposNulos()

    É só colocar no form e testar.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Formulário Obrigatório 90dssg para agradecer a dica que solucionou seu problema.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1014
    Registrado : 23/08/2010

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Mylton 14/5/2014, 17:03

    Concordo.
    Contudo, ao clicar num comando para gerar uma mala direta gostaria que essa função pesquisasse em todos os forms (2,3...), é neste momento q eu gostaria mais nao sei como fazer.
    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  rdrck 14/5/2014, 18:00

    Olá Mylton,
    Pelo que vi da função que você tem, isso seria feito no clique de um botão parea salvar o registro.
    Se um campo do form for nulo, exibe uma caixa de mensagem para você preencher aquele dito campo e seta o foco para ele.
    Mas creio que não seja o que você quer, certo?
    Pelo que entendi, você quer, no click de um botão, pesquisar em todos os forms envolvidos na mala direta e, se algum dele apresentar campos nulos, invalidar a execução da mala direta, ou, se todos os campos estiverem preenchidos, executar a mala direta.
    É isso?


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1014
    Registrado : 23/08/2010

    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Mylton 14/5/2014, 18:06

    E isso mesmo. Que me diga qual form esta nesta condiçao.
    Depois aplicarei o que nosso amigo ensinou na outra duvida, a caixa de mensagem interativa.
    Obrigado

    Conteúdo patrocinado


    Formulário Obrigatório Empty Re: Formulário Obrigatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 11/5/2024, 03:49