Problema com a Date() ao abrir FRM

Moderador: Avelino Sampaio

Henrique Rodrigues
Mensagens: 1
Registrado em: 04 Jul 2016, 16:23

Problema com a Date() ao abrir FRM

Mensagempor Henrique Rodrigues » 09 Out 2018, 15:05

Bom dia!
Migrei do Access 2010 para o 2013, e estou tendo um problema com a função date() conforme abaixo.
Como fiz este programa ha muitos anos estou sem capacidade de entender se isto tem a ver com a mudança do Officce ou se eventualmente é outro erro que só agora esta ocorrendo.
Ao clicar no FRMPrincipal para abrir o programa recebo a mensagem " não ha objeto neste controle", ao clicar no OK tenho "erro em tempo de execução '2683' não ha objeto neste controle" , vai para DEPURAR e as seguintes telas abrindo (duas):
1. primeira tela que abre:

Option Compare Database
Option Explicit

'Coloca a Data Atual no Calendário
Private Sub Form_Load()
Me.ControleActiveX3.Value = Date (está em AMARARELO esta linha!!!!!)
End Sub

2. segunda tela que abre:

Option Compare Database

Public Function fncIdadeCompleta(CltNascData As Date, Optional DataExame As Date) As String
On Error GoTo trataerro
Dim Anos As Byte, Meses As Variant, Dias As Byte, DataRef As Date
If CltNascData > DataExame Or CltNascData = 0 Or DataExame = 0 Then
fncIdadeCompleta = ""
Exit Function
End If
If CltNascData = DataExame Then
fncIdadeCompleta = 0
Exit Function
End If


'Ajusta dataNascimento se cair em ano bissexto
CltNascData = IIf(Format(CltNascData, "mm/dd") = "02/29", CltNascData - 1, CltNascData)

Anos = Int((Format(DataExame, "yyyymmdd") - Format(CltNascData, "yyyymmdd")) / 10000)
DataRef = DateSerial(Year(DataExame) + (Format(CltNascData, "mmdd") > Format(DataExame, "mmdd")), Format(CltNascData, "mm"), Format(CltNascData, "dd"))
Meses = DateDiff("m", DataRef, DataExame) + (Format(CltNascData, "dd") > Format(DataExame, "dd"))
'DataRef = DateSerial(Year(DataExame), Format(DataExame, "mm") + (Format(CltNascData, "dd") > Format(DataExame, "dd")), Format(CltNascData, "dd"))
'Dias = CDbl(DataExame) - CDbl(DataRef)
'DataRef = IIf(Format(CltNascData, "dd") <> Format(DataRef, "dd"), DataRef - Format(DataRef, "dd"), DataRef)
fncIdadeCompleta = Format(Anos, "00") & "-" & Format(Meses, "00")
'fncIdadeCompleta = IIf(Anos <= 1, IIf(Anos = 0, "", Anos & " ano "), Anos & " anos ") & _
IIf(Meses <= 1, IIf(Meses = 0, "", Meses & " mes "), Meses & " meses ") & _
IIf(Dias <= 1, IIf(Dias = 0, "", Dias & " dia "), Dias & " dias ")
sair:
Exit Function
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
End Function

Se não soube colocar o problema aqui, de forma apropriada a minha dúvida, peço ajuda por favor. Obrigado.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 409
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Problema com a Date() ao abrir FRM

Mensagempor Damasceno Jr. » 09 Out 2018, 16:22

Poste o aplicativo só com o formulário em questão.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Problema com a Date() ao abrir FRM

Mensagempor Avelino Sampaio » 09 Out 2018, 16:54

Henrique,

talvez seja necessário registrar o calendário. Veja neste meu artigo:

http://www.usandoaccess.com.br/dicas/utilizar-calendario-mscal-access-2010-2013.asp

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 7 visitantes