Início
![[Resolvido]If não executa a condição Empty](https://2img.net/i/empty.gif)
FabioCSilva 19/9/2021, 21:00Prezados 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
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
