[Resolvido]Ajuda com If

Há como ?

Private Sub Combinação9_Click()
Dim vDataProc       As String
Dim vcliente        As String
   
       
   vgDataProc = Format(txtDataProc.Value, "dd/mm/yyyy")
   vcliente = cboCliente.Column(0)
   DoCmd.Close acForm, Me.Name, acSaveYes
   DoCmd.OpenReport "rptHIPOSSUFICIENCIA", acViewPreview, , "CodCliente = " & vcliente & ""
   
   If "#rptHIPOSSUFICIENCIA" Then

   
   vgDataProc = Format(txtDataProc.Value, "dd/mm/yyyy")
   vcliente = cboCliente.Column(0)
   DoCmd.Close acForm, Me.Name, acSaveYes
   DoCmd.OpenReport "rptTITULARIDADEProvidencia", acViewPreview, , "CodCliente = " & vcliente & ""

End If
       
End Sub



Se é possível, onde esta o erro , por favor ?

Olá Rosemberg,

Selecione IF no código e aperte a tecla F1 para ter ajuda.
Aparentemente está a faltar a "comparação"

Código:


If "#rptHIPOSSUFICIENCIA" <> "xxx" Then


Abraço

Parabéns Rosemberg

Perdi um tempão explicando e arrumando teu aplicativo, para

ver que vc não tomou conhecimento do que fiz.

Será que vou continuar ajudando?

Para quem quiser saber o que ocorre, veja no código que ele postou

A variável Dim vDataProc As String

É uma variavel Date

como podem ver no código mais abaixo.

Ele tem repetido em torno de 70 vezes esse código no aplicativo.
E quer que funcione

Dublê

A questão não é não ter respondido.

É ver que não fez as modificações que eu apontei.
Não adianta seguir em frente com a programação
se não consertar isso.
Mostrei na PM como fazê-lo usando o procurar e substituir.

Eu poderia enviar o aplicativo com tudo arrumando, mas daí
você não aprenderia.
Não dou o peixe, procuro ensinar a pescar.

Balem

Educação tive

Fiz o que vc indicou
Todavia nada funcionou
E no meu ponto de vista isso não vai funcionar.
Vc modificou , me enviou.... e nem sequer testou para verificar se funcionou ou não.]
E quanto a " desculpa " que respondi vou baseado na educação que tenho.

Boa noite

É

Você tem razão, eu não faço testes, escrevo e mando direto pro maximo access e para meus cliente.
Sou sortudo pq ninguém reclamou até agora.

Passar bem!!

Olá a todos,

Rosemberg, o título do tópico só se excreve na primeira mensagem, depois o forum repete automaticamente.
Deve deixar vazio, já ajustei as anomalias.

Quanto à dúvida é como o colega Noob explicou, tem que começar a por a mão na massa.
Reltivamente à mensagem privada que me enviou, não vou responder, pois o que poderei ajudar é aqui, pode ser a dúvida de outro colega.
A razão do fórum é a inter-ajuda e partilha do conehcimento.

Se não consegue, partilhe pequeno exemplo simples funcional com a dúvida, para se testar e mostrar o que está a falhar.

Abraço a todos

Noobezinho

Tente sim. Segui os procedimentos que vc indicou. Não funcionou e não funcionará.
Inclusive lhe enviei um print lhe mostrando o problema ( continuado )
Portanto vc não pode me acusar de eu querer "o peixe e não querer aprender a pescar"
Encaminho novamente o print que lhe enviei anteriormente
Boa noite

Rosemberg

A todo grupo do MaximoAccess
Aqui coloco as mensagens trocadas com o usuário - moderador Noobelzinho para não ficar dúvida quanto ao meu posicionamento.

Essas foram nossas mensagens
Leia com calma e analise o que você disse. Em nenhum momento pedi para vc “fazer” para mim. Pedi  orientação. A que vc me deu não funcionou , nem vai funcionar . Nada tem com o problema que  postei
Se vc quer aparecer perante o grupo, faça de outra forma, não tentando denegrir a imagem de alguém
___________________________________________________________________________________
Educação tive
Fiz o que vc indicou
Todavia nada funcionou
E no meu ponto de vista isso não vai funcionar.
Vc modificou , me enviou.... e nem sequer testou para verificar se funcionou ou não.]
E quanto a " desculpa " que respondi vou baseado na educação que tenho.
_______________________________________________________________________
A questão não é não ter respondido.

É ver que não fez as modificações que eu apontei.
Não adianta seguir em frente com a programação
se não consertar isso.
Mostrei na PM como fazê-lo usando o procurar e substituir.

Eu poderia enviar o aplicativo com tudo arrumando, mas daí
você não aprenderia.
Não dou o peixe, procuro ensinar a pescar.

Balem
__________________________________________________________________________

Desculpe-me Noobelzinho

Desculpe não ter respondido
Fui a farmácia e voltei agora
Estou iniciando e as vezes o que é fácil para você para mim é um " bicho de sete cabeças "
Até aqui no Maximo Access ainda me complico
Mas não obtive êxito

____________________________________________________________________________

É..Você tem razão, eu não faço testes, escrevo e mando direto pro maximo access e para meus cliente.
Sou sortudo pq ninguém reclamou até agora.

Passar bem!!

______________________________________________________________________________
Noobezinho

Tente sim. Segui os procedimentos que vc indicou. Não funcionou e não funcionará.
Inclusive lhe enviei um print lhe mostrando o problema ( continuado )
Portanto vc não pode me acusar de eu querer "o peixe e não querer aprender a pescar"
Encaminho novamente o print que lhe enviei anteriormente
Boa noite

_____________________________________________________________________
Parabéns Rosemberg

Perdi um tempão explicando e arrumando teu aplicativo, para

ver que vc não tomou conhecimento do que fiz.

Será que vou continuar ajudando?

Para quem quiser saber o que ocorre, veja no código que ele postou

A variável Dim vDataProc As String

É uma variavel Date

como podem ver no código mais abaixo.

Ele tem repetido em torno de 70 vezes esse código no aplicativo.
E quer que funcione

Rosemberg,

Edite e mensagem n. 9 e 10 e regularize a situação por mim relatada na mensagem n. 8, veja se tiver dúvidas:

Como faço  Alvaro,?

Click no botão editar e apaga o título, deixa em branco

Só a mensagem nr. 1 é que deve ter o título.

Aguardamos regularização

Olá a todos

Rosemberg,, vejo que alterou algumas, mas a número 9 ainda não, além disso fez a retificação e não deu feedback, do genero "situação regularizada".

e a situação é recorrente, pois veja neste tópico o colega partilhou um exemplo e apenas deu o tópico como resolvido,  nem uma palavra de agradecimento, confira:
https://www.maximoaccess.com/t38884-resolvidoconsulta-em-tabela

Neste nem sei o que dizer, além de ter ignorado o alerta de um colega Moderador:
https://www.maximoaccess.com/t39021-resolvidocomo-incluir-novo-campo-no-frm-e-gravar

E mais uma vez, ficou pelo caminho
https://www.maximoaccess.com/t39139-selecionar-cliente-e-tipo-de-documento-no-mesmo-frm-e-imprimir
Verifico no tópico do link acima tópico que está relacionado com este.

Espero que reveja a conduta que tem adotado e como nunca é demais aproveito para lembrar as Regras do fórum:

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


Aguardamos regularização das situações em falta.

Abraço a todos

Sr. Alvaro Teixeira,

Uma vez que és Moderador Global e apoiou as citações do Noobelzinho, quais verdadeiras não são, fica aqui registrado meu desagrado ao tratamento recebido.

É o que no momento se apresenta e diz-se de ou a parte que interpõe o recurso de uma decisão interlocutória proferida pelo juiz ou pelo tribunal.  

Saudações,

Rosemberg

Olá a todos

Rosemberg, vejo que alterou algumas, mas a número 9 ainda não, além disso fez a retificação e não deu feedback, do genero "situação regularizada".

e a situação é recorrente, pois veja neste tópico o colega partilhou um exemplo e apenas deu o tópico como resolvido,  nem uma palavra de agradecimento, confira:
https://www.maximoaccess.com/t38884-resolvidoconsulta-em-tabela

Neste nem sei o que dizer, além de ter ignorado o alerta de um colega Moderador:
https://www.maximoaccess.com/t39021-resolvidocomo-incluir-novo-campo-no-frm-e-gravar

E mais uma vez, ficou pelo caminho
https://www.maximoaccess.com/t39139-selecionar-cliente-e-tipo-de-documento-no-mesmo-frm-e-imprimir
Verifico no tópico do link acima tópico que está relacionado com este.

Espero que reveja a conduta que tem adotado e como nunca é demais aproveito para lembrar as Regras do fórum:

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


Aguardamos regularização das situações em falta.

Abraço a todos

Boa tarde Rosemberg,

Não me recordo de dar ou não dar razão a um ou outro membro.
Limitei-me a reportar o seu comportamento.
Foram relatadas várias situações e solicitado a regularização, não atendeu às sugestões.
A sua reputação diminuída.

Há como vc e o Noobelzinho me esquecerem ou não?

Titulo do novo tópico: è possivel fazer isso usando If ?

Private Sub Combinação9_Click()
Dim vDataProc       As String
Dim vcliente        As String
       
   vgDataProc = Format(txtDataProc.Value, "dd/mm/yyyy")
   vcliente = cboCliente.Column(0)
   DoCmd.Close acForm, Me.Name, acSaveYes
   DoCmd.OpenReport "rptFORMACAOContrato", acViewPreview, , "CodCliente = " & vcliente & ""
   Se é falso  DoCmdReport “rptFORMACAOContrato”
   Não abrir e fechar
    Ir para  DoCmd.OpenReport "rptHIPOSSUFICIENCIA”
   DoCmd.OpenReport "rptHIPOSSUFICIENCIA", acViewPreview, , "CodCliente = " & vcliente & ""
   End If
  ((((((((( e continuar procurando  )))))))
   Se é falso  DoCmdReport “rptFORMACAOContrato”
   E  
   Se é falso  DoCmdReport “rptHIPOSSUFICENCIAContrato”
   Ir  DoCmd.OpenReport "rpt rptTITULARIDADEProvidencia ", acViewPreview, , "CodCliente = " & vcliente & ""
   End If
  ((((((((( e continuar procurando os demais  )))))))
 End Sub

Tópico fundido

Regras do fórum:

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


Aguardamos que reveja a conduta que tem adotado e regularização das situações em falta.

Bom dia a todos.

O código em questão na mensagem 20 me parece ser retirado de outra linguagem.

Aparenta ser uma adaptação para o VBA.

Bom, falo de experiência própria...ralei muito para aprender VBA a 10 anos atrás e ainda estou aprendendo !!

Li, pesquisei, estudei, perdi fins de semana, enchi muito a paciência dos colegas aqui do fórum. As vezes sem ter noção alguma, pedia para fazer sim, para eu entender um pouco da lógica, da estrutura.

Mas sempre com humildade, sempre mantendo o mesmo tópico e claro sempre postando o resultado para ajudar os outros que passam e irão passar pela mesma duvida.

O Fórum é livre, ajuda quem quer, quem tem um tempinho livre. Se você está sendo ajudado, procure ser um pouco humilde e aprenda, mexa no teu sistema.

Apenas um desabafo com tudo o que eu li nesse tópico.

Fui humilde.
Eles que procuraram, não sei porque , denigrir minha imagem.
Bom dia