[Resolvido]Verificar se há dados com a data atual

Connekta Informatica 11/2/2014, 18:32

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº1

[Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 11/2/2014, 18:32

Boa Tarde

Como eu faço para verificar se há dados com a data atual. Sendo que eu quero verificar dois campos (mas o codigo abaixo verifica somente um). Campos a ser verificado é: Data e Descricao.

Como eu adapto ao meu código:

If DCount("Codigo", "tblMovimento", "Data") > 0 Then

docmd.openform "frmlogin"
end if

If DCount("Codigo", "tblMovimento", "Data") = 0 Then

docmd.openform "frmempresa"

end if

Alguem pode me ajudar?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

criquio 11/2/2014, 19:07

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem criquio 11/2/2014, 19:07

Procure sempre dar todos os detalhes sobre o que precisa. Que tipo de referência seria esse segundo campo? Para contar as datas atuais pode usar algo como:

Código:: If DCount("*", "tblMovimento", "Data=#" & Date & "#") > 0 Then

Para o segundo caso talvez seja um DLookup:

Código:: If DCount("*", "tblMovimento", "Data=#" & Date & "#") > 0 And DLookup("NomeDoCampoDaTabela", "tblMovimento") = "Resultado pretendido" Then

Está faltando mais detalhes para podermos ser mais específico. Esse segundo campo seria para verificar o quê, baseado em que critério?

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Connekta Informatica 12/2/2014, 19:02

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº3

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 12/2/2014, 19:02

Boa Tarde Criquio

O que eu quero é o seguinte:

Tenho o form de login, onde tenho os campos cboUsuario e txtSenha e os botões cmdOk e cmdSair.

Selecione o Nome do Usuário e digito a senha, ao clicar no botão OK, o sistema deve verificar na tabela tblMovimento o campo Data e Descrição.

Se o campo Data já tem um registro com a data de hoje e a descrição "Abertura de Caixa" ele vai abrir o form Menu, mas, se na tabela Movimento não tiver como o campo com a data de hoje e nem a descrição "Abertura de caixa" ele deve abrir o form Movimento.

Deu para esclarecer um pouco?

Tem uma solução?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 13/2/2014, 17:16

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº4

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 13/2/2014, 17:16

Boa Tarde, alguma solução?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 13/2/2014, 17:57

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº5

Verificar se há dados com a data atual

Mensagem good guy 13/2/2014, 17:57

Tente com o código abaixo no evento Form_Open inseri-lo no código quando usuario e senha estiverem corretos.

Dim rs as DAO.recordset
Dim i As Integer

set rs = currentdb.openrecordset("tblMovimento", dbopentable)

For i = 1 to rs.EOF
If Dlookup("txtData","tblMovimento", "Codigo = " & i)= Date () and Dlookup("Descricao","tblMovimento", "Codigo = " & i) = "Abertura de Caixa" Then
Docmd.Openform "Menu"

elseif dlookup(txtData","tblMovimento","Codigo = " & i)<> Date() and dlookup("Descricao","tblMovimento","Codigo = " & i)<>"Abertura de Caixa" Then
docmd.openform "Movimento"
else
exit sub
end if
Next i

currentdb.close

set rs = nothing
set db = nothing

Docmd.setwarnings false

Connekta Informatica 14/2/2014, 12:32

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº6

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 14/2/2014, 12:32

Bom dia Good Guy

Teste aqui mais não aconteceu nada.

Fiz um modelo.

Tem o form1 que contem um botão que abre o form2 que foi colocado o código.

Ao clicar no botão do form1 somente abre o form2.

Veja:

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 14/2/2014, 14:45

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº7

Verificar se há dados com a data atual

Mensagem good guy 14/2/2014, 14:45

Olá Konnecta,

Fiz algumas modificações na sub-rotina com base em seu bd exemplo. Esse código deve ficar no formulário de login (frmSenha) que disponibilizei para você gratuitamente para você testar e com uma função para logar também de minha autoria:

Public Sub Checar()
'Código de Eduardo Machado (Good Guy) - Maximo Access

Dim rs As DAO.Recordset
Dim i As Integer
Dim sDescricao As String

Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable)

sDescricao = "ABERTURA DE CAIXA"

For i = 1 To rs.RecordCount

If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Descricao", "tblMovimento", "Codigo = " & i) = sDescricao Then
DoCmd.OpenForm "form3"
DoCmd.Close acForm, "form2"

Else
DoCmd.OpenForm "form2"
DoCmd.Close acForm, "form3"
End If

Next i

CurrentDb.Close

Set rs = Nothing
End Sub

Public Function VerificaLogin(sLogin As String, sSenha As String)
'Código de Eduardo Machado (Good Guy) - Maximo Access
Dim nLogin As String
Dim nSenha As String

nLogin = Me.txtNome 'login é o nome da caixa de texto do formulário de Login
nSenha = Me.txtSenha 'senha é o nome da caixa de texto do formulário de Login

sLogin = Nz(DLookup("Usuario", "tblUsuários", "Usuario = '" & nLogin & "'"))
sSenha = Nz(DLookup("senha", "tblUsuários", "Usuario = '" & sLogin & "'"))

If sSenha = nSenha Then
MsgBox "Senha válida !!!", vbInformation, "Testa Login"
Call Checar
Else
MsgBox "Usuário ou Senha inválida !!!", vbInformation, "Testa Login"
End If
End Function

Private Sub cmdOK_Click()
'Código de Eduardo Machado (Good Guy) - Maximo Access

If Not IsNull(txtNome) And Not IsNull(txtSenha) Then
If VerificaLogin(txtNome, txtSenha) = True Then
DoCmd.Close acForm, "frmSenha", acSaveYes
Exit Sub
End If
End If
End Sub

Anexos

Database1.zip: Você não tem permissão para fazer download dos arquivos anexados.; (76 Kb) Baixado 9 vez(es)

Última edição por good guy em 14/2/2014, 19:05, editado 1 vez(es)

Connekta Informatica 14/2/2014, 17:26

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº8

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 14/2/2014, 17:26

Muito obrigado, deu certo.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 14/2/2014, 19:04

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº9

Verificar se há dados com a data atual

Mensagem good guy 14/2/2014, 19:04

Obrigado Konnecta. O fórum todo agradece também.

Access meu site: www.goodguyaccessvba.com.br

Lá você vai encontrar muita coisa para estudo e aplicativos importantes.

Dê uma curtida também na minha página do Facebook.

https://www.facebook.com/EduardoMachado

Meu blog com dicas de programação:
http://evmachado.zip.net

Connekta Informatica 17/2/2014, 18:16

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº10

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 17/2/2014, 18:16

Boa tarde

Reabri o tópico pois esta acontecendo um problema.

Fui adaptar ao meu sistema o Banco de dados disponibilizado acima, mas não deu certo.

Tirei o form1; frmSenha = frmLogin;form3 = frmAberturaCaixa.

Essa foram a coisas que mudou.

Você pode ajudar novamente?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 17/2/2014, 18:56

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº11

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 17/2/2014, 18:56

Código:

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 17/2/2014, 20:49

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº12

Verificar se há dados com a data atual

Mensagem good guy 17/2/2014, 20:49

Olá,

Os campos de sua tblMovimento não são os mesmos que no seu exemplo. Não teria a função Checar que checar a data atual e a descrição "ABERTURA DO CAIXA"? A função Checar teria que estar também no formulário frmLogin. Se você não fizer a adaptação conforme está no exemplo não vai dar certo mesmo.

Connekta Informatica 18/2/2014, 11:01

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº13

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 18/2/2014, 11:01

Bom dia

Como você pode perceber já alterei o código:

Código:: Public Sub Checar() Dim rs As DAO.Recordset Dim i As Integer Dim sHistorico As String Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable) sDescricao = "ABERTURA DE CAIXA" For i = 1 To rs.RecordCount If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Historico", "tblMovimento", "Codigo = " & i) = sHistorico Then DoCmd.OpenForm "frmAberturaCaixa" DoCmd.Close acForm, "frmMenu" Else DoCmd.OpenForm "frmMenu" DoCmd.Close acForm, "frmAberturaCaixa" End If Next i CurrentDb.Close Set rs = Nothing End Sub

Quando há dados deveria abrir o formulário frmMenu.

Quando não houver dados deveria abrir o formulário frmAberturaCaixa.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 18/2/2014, 13:46

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº14

Verificar se há dados com a data atual

Mensagem good guy 18/2/2014, 13:46

Olá konnekta,

Verifique sua variável sHistorico. Existe uma outra variável sDescricao conflitando com ela. Troque sDescricao por sHistorico.

Connekta Informatica 18/2/2014, 14:18

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº15

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 18/2/2014, 14:18

Fiz o que você falou, mas não deu certo.

Veja:

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 18/2/2014, 16:52

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº16

Verificar se há dados com a data atual

Mensagem good guy 18/2/2014, 16:52

Olá Konnekta,

Na tabela o campo codigo estava começando com 5. O looping estava procurando o codigo = 1 e não o encontrava e aí a sub ou function não funcionava.

Teste agora

Anexos

Sistema.zip: Você não tem permissão para fazer download dos arquivos anexados.; (350 Kb) Baixado 32 vez(es)

Connekta Informatica 18/2/2014, 18:22

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº17

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 18/2/2014, 18:22

Boas Good, muito obrigado por sua paciência.

Fiz o teste aqui mais não esta funcionando do jeito que eu quero.

Adicionei um registro com a data de hoje e com a descrição "Abertura de Caixa, fui fazer o login,selecione a empresa, o sistema abriu o form Abertura de Caixa.

Como eu disse, quando tiver os campo da tabela: Data = Data Atual e o campo Historico = Abertura de Caixa, vá direto ao from Menu. Quando não houver nos campos da tabela o campo Data > Data Atual e campo Historico > Abertura de Caixa, abra o form Abertura de Caixa.

Muito Obrigado por estar me ajudando.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**good guy** 18/2/2014, 18:59

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº18

Verificar se há dados com a data atual

Mensagem good guy 18/2/2014, 18:59

Olá konnekta,

Deve haver algum engano aqui. Deixe-me ver se o que você está querendo agora não está em conflito com o que você afimou acima:

Analise o que está em negrito:

Public Sub Checar()
Dim rs As DAO.Recordset
Dim i As Integer
Dim sHistorico As String

Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable)
sHistorico = "ABERTURA DE CAIXA"

For i = 1 To rs.RecordCount

'Se o campo Data for igual a data atual, abra o formulário frmAberturaCaixa.

If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Historico", "tblMovimento", "Codigo = " & i) = sHistorico Then
DoCmd.OpenForm "frmAberturaCaixa" '<=====

DoCmd.Close acForm, "frmMenu"
Else

DoCmd.OpenForm "frmMenu"
DoCmd.Close acForm, "frmAberturaCaixa"
End If
Next i
CurrentDb.Close
Set rs = Nothing
End Sub

OBS: Caso você queira modificar qual formulário deva ser aberto, altere os operadores lógicos.

Connekta Informatica 19/2/2014, 13:17

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº19

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Connekta Informatica 19/2/2014, 13:17

Valeu Good, agora esta funcionando perfeitamente.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº20

Re: [Resolvido]Verificar se há dados com a data atual

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Verificar se há dados com a data atual

[Resolvido]Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Re: [Resolvido]Verificar se há dados com a data atual

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada