[Resolvido]Desenvolvimento de um login

Bom dia amigos !
Sou novo nesta coisa da programação e estou precisando da vossa preciosa ajuda para resolução de um problema !

Dúvida:
Estou tentando realizar o login de um programa, mas preciso que o programa faça a comparação de datas para me dar a resposta a um if. Segue o código que desenvolvi até agora

Private Sub DataActual_LostFocus()

If (Me.DataActual > [Table]![Ferias].fim) Then

MsgBox "Login Efectuado com sucesso!", vbOKOnly, "Login"
Comando2.Enabled = True

Else

MsgBox "Login Efectuado sem sucesso!", vbCritical, "Login"
Comando2.Enabled = False

End If
End Sub


A minha dúvida está como fazer a comparação. parto do pressuposto que está incorrecta esta parte do código "If (Me.DataActual > [Table]![Ferias].fim) Then"

Desde já agradeço a vossa ajuda

Saudações

Qual é o critério que precisa, que a data atual seja maior que a de férias?

Nunca coloque instruções de validação nos eventos ao perder o foco, coloque sempre ao saír do Controle ou depois de atualizar "Private Sub DataActual_AfterUpdate()".

Não entendo qual o critério para você ir buscar a data fim de férias, mas supondo que você quer a ultima data, seria;


Private Sub DataActual_Exit(Cancel As Integer)
Dim x As Date
x = DMax("DataFim", "SuaTabela")
If Date > x Then
MsgBox "Login Efectuado com sucesso!", vbOKOnly, "Login"
Comando2.Enabled = True
Else
MsgBox "Login Efectuado sem sucesso!", vbCritical, "Login"
Comando2.Enabled = False
Exit Sub
End If
End Sub

Oi de volta, obrigado por suas respostas.

Eu tenho uma tabela na qual guardo os dados das férias

tblFerias

id_ferias (chave primária)
id_colaborador (só para guardar as férias a um determinado colaborador)
data_inicio (inicio das ferias)
data_fim (fim das ferias)

e depois tenho a tabela do login

tblLogin

ID (chave primária)
Colaborador (escolho o colaborador da tabela colaborador)
DataActual (campo que me guarda a data actual)

O Critério seria que apos escolher o colaborador, este poderia ou não fazer o login, caso estivesse ou não de férias.

Abraço

Altere para os nomes corretos, acrescentei o filtro para o nome do colaborador;

Private Sub DataActual_Exit(Cancel As Integer)
Dim x As Date
x = DMax("DataFim", "SuaTabela", "Colaborador='" & CampoColaborador & "'")
If Date > x Then
MsgBox "Login Efectuado com sucesso!", vbOKOnly, "Login"
Comando2.Enabled = True
Else
MsgBox "Login Efectuado sem sucesso!", vbCritical, "Login"
Comando2.Enabled = False
Exit Sub
End If
End Sub

Amigo ele está dando a seguinte mensagem de erro

"Run-Time error "94": Invalid use of Null"

-->x = DMax("fim", "Ferias", "Colaborador='" & n_colaborador & "'")

Penso que alterei tudo correto mas por favor veja o que fiz mal.

Grato por sua ajuda

oi,

Alguém me podia dar uma mãozinha ? Não sei mesmo o que estou fazendo mal ..

Grato e desculpem

Se puder poste parte do BD aqui, sera melhor para avaliarmos e ajudá-lo

Saudações

Agora o erro quanto ao null é que algums do campos na instrução utilizando o Dmax está Nulo, ou seja sem informação...e ele precisa da informação para a busca através do Dmax

-->x = DMax("fim", "Ferias", "Colaborador='" & n_colaborador & "'")



Saudações

Não consigo colocar aqui endereços amigo, posso enviar para si ?

Ou para um Moderador que o colocamos aqui.

sergiovieirasoft@gmail.com

já enviei para si amigo.

Grato

Aí está a BD

http://dl.dropbox.com/u/8157744/Login.rar

obrigado amigo Vieira. Se os top me derem uma ajudinha ficarei muito grato

Vamos lá amigão.. Observe a expressão:

x = DMax("fim", "Ferias", "Colaborador='" & n_colaborador & "'")

Onde:
fim = Campo para pesquisar
Ferias: Tabela a onde está o campo a ser pesquisado
Colaborador: Campo da Chave primária na tabela
n_colaborador : Campo no form onde se utiliza para a comparação com a chave primária


Agora.. amigão observaste os campos da tabela Ferias??

campos na tabela Férias:
ID_ferias
ID_colaborador
inicio
dias


Como deseja executar esta instrução sendo que na mesma não existem tais campos????

Colaborador e n_colaborador estão errados...

Colaborador não existe na tabela Ferias
e n_colaborador não existe no form..


Saudações

Veja...

Alterei sua cbo agora ela tem duas colunas e mostra o nome.. ma instrução de comparação utilizo a coluna(0) da cbo para tal pois é onde fica a ID

http://dl.dropbox.com/u/26441349/Joao.pc_13_08_11.rar

Saudações

Claro amigo, que estupidez, nem tinha reparado nisso !

Que Deus ilumine sua vida amigo, grato mesmo !

O Fórum agradece o retorno