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

    [Resolvido]Registro Data obrigatória em formulário

    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 27/05/2016

    [Resolvido]Registro Data obrigatória em formulário Empty [Resolvido]Registro Data obrigatória em formulário

    Mensagem  Helden 9/6/2021, 17:15

    Boa tarde amigos do access, preciso de uma ajuda no desenvolvimento de receita / prescrição.
    Preciso que ao clicar no botão vizualizar receita ele manda preencher a data obrigatória, não consegui com o código abaixo:

    If IsNull (DataReceita) Or DataReceita.Value = "" Then
    MsgBox "A data é obrigatória."
    DataReceita.SetFocus
    Exit Sub
    End If

    Ele vai  para o comando a seguir

    DoCmd.openreport "Rlt_Receita, acNormal. . "Tbl_Receita.CódigoReceita=" & [Forms]![Fml_Paciente]![Fml_Receita]![CódigoReceita]

    e manda depurar

    srá pq a origem do formulário  ser uma consulta?
    ou ja considera preenchido devido a mascara de entrada ou cor no campo?


    https://www.dropbox.com/s/8vothn6vaxg2ulb/venceonco%20prescri%C3%A7%C3%A3o12.accdb?dl=0
    luissiscone
    luissiscone
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 16/02/2011

    [Resolvido]Registro Data obrigatória em formulário Empty Re: [Resolvido]Registro Data obrigatória em formulário

    Mensagem  luissiscone 9/6/2021, 18:34

    Opa, boa tarde, tudo certo ?

    Tente isto :

    If IsNull(Forms!Fml_Paciente!Fml_Receita.Form![DataReceita]) Or Forms!Fml_Paciente!Fml_Receita.Form![DataReceita].Value = "" Then
    MsgBox "A data é obrigatória."
    Forms!Fml_Paciente!Fml_Receita.Form![DataReceita].SetFocus
    Exit Sub
    End If

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Data obrigatória em formulário Empty Re: [Resolvido]Registro Data obrigatória em formulário

    Mensagem  Alexandre Fim 9/6/2021, 19:35

    Aproveitando apenas para deixar minha contribuição:


    Código:


        With Form_Fml_Receita
            If IsNull(.DataReceita) Or Trim(.DataReceita) = Empty Then
                MsgBox "A Data da receita é obrigatória.", vbExclamation, "Aviso"
                Exit Sub
            End If
        End With




    é isso

    []'s

    FIM
    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 27/05/2016

    [Resolvido]Registro Data obrigatória em formulário Empty Re: [Resolvido]Registro Data obrigatória em formulário

    Mensagem  Helden 9/6/2021, 20:47

    Testei o cod. do Alexandre.
    Show Alexandre Obrigado meu querido. show!! cheers cheers
    Vou postar aqui, hoje a noite, o sistema renovado para quem desejar.

      Data/hora atual: 23/9/2021, 01:27