[Resolvido]Verificar o ano ao abrir o banco de dados

Prezados amigos

Preciso de sua ajuda para uma coisa que é simples, porém não consegui fazer.
Estou enviando o arquivo para facilitar a compreensão.
Preciso que ao abrir o banco de dados o sistema verifique se o valor do campo "Ano" na tabela "UPF" corresponde ao ano atual.
Se não corresponder abre uma caixa de mensagem de erro.
Desde já, agradeço a atenção.

No evento ao Abrir do Seu Formulario coloque:

Código:


Private Sub Form_Load()
Dim xAno As String
xAno = DLookup("[ano]", "UPF")
If xAno <> Format(Date, "yyyy") Then
MsgBox " O Ano " & xAno & " É diferente do ano atual!!! " & Format(Date, "yyyy"), vbCritical
'aqui vc coloca o comando que queira que execute...
'Mandei fechar o Formulario...
DoCmd.Close acForm, "Formulário1"
End If
End Sub



Olá a todos,
Fabio, também estava a fazer exemplo, com o seguinte código:

Código:

Private Sub Form_Open(Cancel As Integer)
'ahteixeira 2016 - maximoaccess
Dim xAno
    xAno = DMax("ANO", "UPF")
        
        If IsNull(xAno) = True Then
           MsgBox "Ano errado, a tabela não tem registos, verifique.", vbInformation, ""
        ElseIf CInt(xAno) <> Year(Date) Then
           MsgBox "Ano errado, na tabela está: " & xAno, vbInformation, ""
        End If
        
    DoCmd.Close acForm, "Verifica", acSaveNo
End Sub

Fica mais esta contribuição.
Abraço a todos.

Opa! isso é que um fórum eficiente!


Parabéns ahteixeira, O seu Código ficou mais Elaborado!

Muito Bom!!!

Prezados
Muito obrigado pela solução e rapidez.
Testei o código do Fábio e já resolveu.
Mas agradeço a atenção de todos.
Um grande abraço.

Olá a todos, obrigado pelo retorno.
Isto é MaximoAccess
Abraço

JRodrigues Dê preferencia ao Codigo do ahteixeira pois esta mais elaborado. Ele pega o ultimo Ano da tabela, e tem verificação de não preenchimento na tabela...

Grato pelo retorno!

Ok. Muito obrigado.