MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Campo com duplo critério

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Campo com duplo critério

    Mensagem  Assis 28/1/2012, 11:50

    Bom dia

    Queria por 2 critérios num campo de uma consulta

    Tentei assim mas não funciona
    Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou Como "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"

    Isto é : estou a tentar abrir um relatório de dois form diferentes.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  criquio 28/1/2012, 11:53

    Olá, tente tirar o segundo Como e teste para ver se funciona:

    Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"


    .................................................................................
    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.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 28/1/2012, 11:56

    Bom dia Criquio

    Tentei mas não resulta
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  criquio 28/1/2012, 12:02

    A consulta tem um OU que separa as linha de critério. Tente colocar cada critério em uma linha.


    .................................................................................
    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.

    avatar
    Convidad
    Convidado


    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Convidad 28/1/2012, 12:08


    Olá

    Uma dica:
    Espaços em Nomes de objetos = problemas



    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 28/1/2012, 14:36

    Criquio

    Colocando em duas linhas depois de fechar a consulta e voltar a abrir fica assim numa linha:
    Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou Como "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"
    Não funciona

    Norbs

    Se for individual não tem problema com o espaços
    Como "*" & [Forms]![Dialogo Datas]![Data] & "*"
    Como "*" & [CalendárioDia]![CDataGeral] & "*"

    Não tem problemas

    Obrigado aos dois....


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  criquio 28/1/2012, 15:58

    E ambos os forms ficam abertos?


    .................................................................................
    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.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 28/1/2012, 16:57

    Criquio
    Não


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  criquio 28/1/2012, 17:02

    Aí não é possível mesmo. Os campos de um formulário só podem ter algum valor se eles estiverem abertos. Fechados nem dá para referenciá-los. O que pode ser feito, caso necessário e caso seja possível, seria carregar os valores dos campos em funções globais para serem usados na consulta.


    .................................................................................
    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.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 28/1/2012, 18:01

    Criquio

    Mas tem sempre aberto o form aonde estão os dados, não precisa de estar aberto os dois forms

    Se abrir este form seria lido este valor: [Forms]![Dialogo Datas]![Data]

    Idem se abrir este form: [CalendárioDia]![CDataGeral]

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3799
    Registrado : 04/04/2010

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Avelino Sampaio 28/1/2012, 19:28

    Olá

    Creio que uma solução é fazer uso do selmed

    Algo assim:

    iif(isnull(forms![Dialogo Datas]!Data);Forms!CalendárioDia!CDataGeral;Forms![Dialogo Datas]!Data)

    Eu não tenho certeza se funcionaria com o LIKE

    LIKE iif(isnull(forms![Dialogo Datas]!Data);Forms!CalendárioDia!CDataGeral
    ;Forms![Dialogo Datas]!Data)

    A tecnica para o uso do selmed está nesta vídeo-aula, lá pelo minuto 15

    http://www.usandoaccess.com.br/tutoriais/tuto31.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  criquio 28/1/2012, 20:30

    Uma outra saída pode ser tambem colocar o critério no próprio formulário, no botão que abre o relató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.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3799
    Registrado : 04/04/2010

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Avelino Sampaio 28/1/2012, 20:42

    Isso mesmo Valdino, seria muito mais simples!

    Algo assim Assis:

    docmd.OpenReport "NomeRelatório",acViewPreview ,,"NomeCampoData = #" & format("mm/dd/yyyy",me!CDataGeral) & "#"

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 28/1/2012, 22:58

    Boa Noite

    A BD tem 2 Forms.
    A ideia é visualizar o relatório "Movimentos Dia" a partir de um e de outro form.

    O Form CalendárioDia é ao clikar no dia do calendário ver os registos do dia selecionado dia 28, ou 29 Janeiro

    O Form Dialogo Datas a ideia é abrir o mesmo relatório e ver os registos do campo data em baixo.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10777
    Registrado : 04/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  JPaulo 29/1/2012, 17:44

    Ola Assis;

    Veja se serve assim, SEM criterios na consulta que alimanta o seu Relatório.

    Faça o teste nos dois formularios, um de cada vez para a data de 28/01/2012 ou 29/01/2012.

    http://dl.dropbox.com/u/771097/CampoComDuploCriterioAssis_OLD.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Campo com duplo critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Campo com duplo critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Campo com duplo critério Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 30/1/2012, 01:18

    Boa noite JPaulo

    Obrigado mas os critérios neste caso não podem estar no form, principalmente este Dialogo Datas, já que na caixa onde aparece o nome do relatório "Movimentos Dia", também aparecem outros relatórios que não são filtrados pela data, e chamados pelo mesmo botão de comando

    Na consulta era o ideal.


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10777
    Registrado : 04/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  JPaulo 30/1/2012, 11:04

    Ok;

    Veja se serve assim, sem consulta e filtra como quiser.

    Faça o teste para as datas 28/01/2012 ou 29/01/2012

    http://dl.dropbox.com/u/771097/CampoComDuploCriterioAssisOLD_II.rar

    1º Foi retirado o Record Source do Relatorio "Movimentos Dia"

    2º Através de um codigo de verificação "IsLoaded" obtemos qual o form aberto, é enviada a data para o cabeçalho do relatorio.

    Private Sub Report_Load()
    If IsLoaded("Dialogo Datas") = True Then
    Me.txtData.Value = Forms![Dialogo Datas]![Data]
    Else
    Me.txtData.Value = Forms![CalendárioDia]![CDataGeral]
    End If
    End Sub


    3º No formulario do "CalendarioDia" ficou assim:

    Private Sub Moldura_Click()
    Dim strSQL As String
    On Error GoTo 1
    If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

    strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.CDataGeral & "#"

    DoCmd.OpenReport "Movimentos Dia", acViewPreview, , , , strSQL

    Else
    DoCmd.CancelEvent
    End If
    On Error Resume Next 'erro 2501 caso você cancele a impressão
    If Err = 2501 Then
    Err.Clear
    DoCmd.Close
    End If

    1: Me.Moldura.SetFocus

    End Sub


    4º No formulario "Dialogo Datas":

    Private Sub cmdPreview_Click()
    Dim strSQL As String
    On Error Resume Next

    If IsNull(Me.lstInformes) Then
    MsgBox "Selecione primeiro o Relatório"
    Else
    If MsgBox("Confirma a Visualização do " & lstInformes & " ", vbYesNo, "Controle de Stoks") = vbYes Then

    strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.Data & "#"

    DoCmd.OpenReport "" & lstInformes & "", acViewPreview, , , , strSQL

    Else
    DoCmd.CancelEvent
    End If
    On Error Resume Next 'erro 2501 caso você cancele a impressão
    If Err = 2501 Then
    Err.Clear
    DoCmd.Close
    End If
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Campo com duplo critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Campo com duplo critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Campo com duplo critério Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 30/1/2012, 22:18

    Boa noite JPaulo

    Como o amigo diz

    Existe muita maneira de fazer nestum .... mas é preciso saber as maneira de como o fazer...

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10777
    Registrado : 04/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  JPaulo 31/1/2012, 11:07

    Obrigado pelo retorno Assis, o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Campo com duplo critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Campo com duplo critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Campo com duplo critério Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 31/1/2012, 13:35

    Boa tarde JPaulo

    Estou a tentar aplicar para um abrir um formulário e não estou a conseguir.

    Alterei o que está a vermelho mas o form não abre

    Private Sub Moldura_Click()
    Dim strSQL As String
    On Error GoTo 1
    If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

    strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.CDataGeral & "#"

    DoCmd.OpenForm "NomeDoFormulário", acViewPreview, , , , strSQL

    Else
    DoCmd.CancelEvent
    End If

    1: Me.Moldura.SetFocus

    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10777
    Registrado : 04/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  JPaulo 2/2/2012, 12:37

    Para formulario é diferente;

    Veja:



    Private Sub Moldura_Click()
    Dim strCriterio As String
    On Error GoTo 1
    If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

    strCriterio = "[Data]=#" & Format(CDataGeral, "dd-mm-yyyy") & "#"

    DoCmd.OpenForm "SeuFormulario", , , strCriterio

    Else
    DoCmd.CancelEvent
    End If
    On Error Resume Next 'erro 2501 caso você cancele a impressão
    If Err = 2501 Then
    Err.Clear
    DoCmd.Close
    End If

    1: Me.Moldura.SetFocus

    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Campo com duplo critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Campo com duplo critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Campo com duplo critério Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  Assis 2/2/2012, 14:22

    Obrigado
    JPaulo


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10777
    Registrado : 04/11/2009

    [Resolvido]Campo com duplo critério Empty Re: [Resolvido]Campo com duplo critério

    Mensagem  JPaulo 2/2/2012, 14:30

    Valew pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Campo com duplo critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Campo com duplo critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Campo com duplo critério Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 5/12/2022, 18:02