MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Formulário Obrigatório

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Formulário Obrigatório

    Mensagem  Mylton em Dom 11 Maio 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
    relatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 10 vez(es)

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  Cláudio Machado em Ter 13 Maio 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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  Mylton em Qua 14 Maio 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
    VIP
    VIP

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  Cláudio Machado em Qua 14 Maio 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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  Mylton em Qua 14 Maio 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  rdrck em Qua 14 Maio 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 2007 - Windows 7.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Formulário Obrigatório

    Mensagem  Mylton em Qua 14 Maio 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

      Data/hora atual: Dom 11 Dez 2016, 00:18