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

2 participantes

    [Resolvido]If não executa a condição

    avatar
    FabioCSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2021

    [Resolvido]If não executa a condição Empty [Resolvido]If não executa a condição

    Mensagem  FabioCSilva 19/9/2021, 20:00

    Prezados Amigos, boa tarde!
    Poderiam me ajudar, se um usuário clicar no botão "OK_Prod_AR" com a caixa "Data_Prod_AR" vazia o código da erro em tempo de execução '3075' na linha do Else.

    É como o If não segurasse o código, eu quebrei a cabeça e não consegui resolver.

    A caixa de texto "Data_Prod_AR" esta com o formato "Data abreviada", acho que possa ser isso.

    Private Sub OK_Prod_AR_Click()

    If Data_Prod_AR = "" Then
    MsgBox "Favor verificar a Data!"

    Me.Data_Prod_AR.SetFocus

    Else

    Me.Prod_00 = DCount("[id]", "Cadastro", "[Data_AR] = #" & Format(Me.Data_Prod_AR, "dd/mm/yyyy") & "# and [Status_AR] = 'Enviado CQ' and [Hora_AR] BETWEEN #00:00:00# AND #01:00:00#")

    End If

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]If não executa a condição Empty Re: [Resolvido]If não executa a condição

    Mensagem  DamascenoJr. 19/9/2021, 20:30

    Código:
    If Nz(Data_Prod_AR) = "" Then


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    FabioCSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2021

    [Resolvido]If não executa a condição Empty Re: [Resolvido]If não executa a condição

    Mensagem  FabioCSilva 19/9/2021, 20:41

    Muito obrigado DamascenoJr.

    Funcionou perfeitamente!

    cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]If não executa a condição Empty Re: [Resolvido]If não executa a condição

    Mensagem  DamascenoJr. 19/9/2021, 20:44

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/10/2022, 07:30