Gil Kléber

eita... quando faço um bd em branco, crio uma tabela, um relatorio e exporto, vai.. mas no bd do meu irmão não.. tentei hoje ainda a manhã inteirinha... :o(

Ola pessoal! Após um tempo longe, estou voltando com uma questão.... Meu irmão desenvolveu um banco de dados, e na hora de tentarmos executar uma rotina que exporta pra XLS e envia por email, deu erro 2587. Dai, descobri que na verdade, nem manualmente, estamos conseguindo exportar pra XLS. PDF vai, RTF vai.. apenas XLS que não tem jeito. Dai criei um BD em branco, criei uma tabela, um relatorio e exportei. Foi. Importei pra esse BD o bd do meu irmão, e não foi. O que poderia ser? Até verifiquei as referências, mas estão iguais... http://rapidshare.com/files/405590436/sancol.rar link pra download pra quem quiser ver... meu irmão colocou umas barras de ferramentas que deixaram de funcioar quando apaguei todos os elementos do BD pra diminuir o tamanho. Então abram segurando SHIFT e tentem exportar o relatorio ALUNO pra XLS. Abraços a todos!

Perfeito!

MrMALJ, estou enfrentando um pequeno probleminha com o código que me enviou anteriormente. ele funciona perfeitamente pra detectar objetos aberto. No entanto, me peguei em uma situação, onde preciso detectar um objeto aberto, porém, oculto. Como proceder nessa situação?

Estou fazendo um teste com criterios de datas, e no entanto, a caixa de texto está ficando em branco. Existe pagamento pra essa data... alguém saberia o que pode ser? Me.txt1 = DSum("vlpagto", "TotalRecebimentos2", "[dtPagto]=#12/04/2010#")

Olá pessoal. Preciso mais uma vez da ajuda valiosa de vocês... É o seguinte: Preciso recuperar o valor total de recebimentos da empresa no mês passado, daí estou fazendo o seguinte num campo não acoplado de um relatório: Os criterios devem ser: todos os pagamentos em que o destino seja diferente que LUIS e a data de pagamento sejam do mês passado. =DSoma("[vlPagto]";"totalRecebimentos";"[Destino]<>'Luis' E Mês([dtPagto])-1") dá sempre #erro Será que alguém poderia me ajudar? Abraços sinceramente agradecidos!!!!

Mr., funcionou PERFEITAMENTE!!! Muito obrigado mesmo!!!

Olá pessoal! Uma dúvida que acho que pra vocês é simples... Como faço pra verificar via VBA se o form FORM1 está aberto. Se sim, faça isso, se não, faça aquilo? Obrigado pela ajuda!! Abraços!!

Opa MrMALJ, eu consegui resolver. A duvida era como manter junto o cabecalho do registro, num relatorio com 2 colunas... Pessoal, depois de muito pesquisar, eu achei um artigo que discreve exatamente como fazer... http://support.microsoft.com/kb/209006/EN-US/ No meu caso, coloquei M=18 (9 registros em cada coluna) Grande abraço a todos e obrigado pela ajuda!

Olha MrMalj, funcionou o lance da virgula! Muito obrigado mesmo!!! agora, como posso fazer pra manter o cabeçalho e os detalhes do relatório, juntos na mesma página ou na mesma seção, quando dividido em 2 colunas? Grande abraço!

Amigão, eu já coloquei. O formato da caixa de texto está como MOEDA... e quanto à segunda questão? alguma ideia?

Bom dia e feliz páscoa a todos!! Amigos, tenho 2 dúvidas, que já faz um tempo que tento resolver sozinho, pesquisei na net, mas mesmo assim, não consigo nem a pau.. A primeira é assim. Tenho uma consulta CONSULTA 1, que me retorna o valor total dos pedidos, o tota de pagamentos. Ela alimenta um relatorio. RELATORIO 1. Ele tem os campos: CLIENTE TOTAL PEDIDOS TOTAL PAGO SALDO (DIFERENÇA DE PEDIDO E PAGO) Pra quando o cliente não tiver pago nada ainda, eu coloquei na consulta a seguinte formula: totalpago:Nz([total_pago];0) Otimo.. ele me retorna 0 quando é nulo e o valor real quando não é nulo. Só que, no relatorio, ao invés de aparecer: R$ 0,00 em formato de moeda, aparece apenas 0 ao invés de R$ 150,00 aparece 150 apanas.. já formatei a caixa de texto como moeda no relatorio, na própria consulta tb, em propriedades do campo, mas NADA... alguém pode me ajudar??? Agora, a segunda dúvida.. consegui colocar pra aparecer em 2 colunas. Como eu faço pra ele não separar os detalhes do cabeçalho de um registro? Tipo, aparece o cabeçalho no final da coluna da esquerda e os detalhes na coluna da direita.. queria que se mantivessem junto. E inclusive, tem horas que o detalhe nem aparece.. se perde em algum lugar... Não sei se consegui ser claro nessa ultima parte, mas mesmo assim, estou enviando o link do PDF que gerei.. Reparem no cliente LABORATÓRIO TAVARES MOTTA.. os detalhes dele, sumiu! Abraços a todos!!! Link pra download do PDF http://www.easy-share.com/1909753588/Relat...FinanceiroGeral (2).rar

Olá amigos do Forum. Espero que possam me ajudar mais uma vez em mais uma questão... Tenho um relatório que me diz os detalhes de todas as chamadas telefonicas feitas pelas secretárias. Cada chamada tem um campo STATUS. No rodapé do relatório, criei um campo que me conta o total de chamdas, um outro que me conta o total que tem status=MARCADO, outro status=DESISTIU, e queria outro que mostrasse o total de todos que não nem iguais a MARCADO nem DESISTIU... eu tentei assim, mas tá dando erro... =DContar("[idchamada]";"qtdChamadasOrcamento";"[status]<>'desistiu' E [status]<>'marcado'") alguém saberia onde está o erro? Agradecido a todos! Grande abraço!

Olá pessoal. Bom, DESCOBRI! O problema era que no critério da consulta, estava [Forms]![formRelatorios]![pagador], então tentei algo que funcionou. Na verdade, faltava algo pra fazer o * funcionar.... então coloquei como [Forms]![formRelatorios]![pagador] e funcionou!!!! o VBA ficou assim: Private Sub moldCustos2_AfterUpdate() If Me.moldCustos2 = 1 Then Me.pagador = "Cesar" ElseIf Me.moldCustos2 = 2 Then Me.pagador = "Luís" ElseIf Me.moldCustos2 = 3 Then Me.pagador = "Empresa" Else Me.pagador = "*" End If End Sub Abraços!!!

Olá pessoal. Bom dia a todos! Bom, recorrendo mais uma vez ao conhecimento alheio superior ao meu, rsrsrs, é o seguinte: Tenho um form, com uma Moldura: MOLDCUSTOS2 com 4 opções: - Cesar - Luís - Empresa - Total um Botão ABRIR_FORMULÁRIO e uma caixa de texto PAGADOR, que armazena um determinado valor dependendo da opção selecionada, através do seguinte código: Private Sub moldCustos2_AfterUpdate() If Me.moldCustos2 = 1 Then Me.pagador = "Cesar" ElseIf Me.moldCustos2 = 2 Then Me.pagador = "Luís" ElseIf Me.moldCustos2 = 3 Then Me.pagador = "Empresa" Else me.pagador = "*" End If End Sub Essa caixa de texto é usada como critério na consulta que alimenta o relatorio (quem pagou as contas no mês? Cesar, Luis, Empresa ou todos?) O lance é, está funcionando com a opção 1, 2 e 3. Só que a 4, que seria TOTAL, eu gostaria que o conteúdo da caixa de texto, funcionasse como critério vazio, pra ele me retornar as contas pagas por todos! Tipo, como se não tivesse nenhum critério relacionado. Tentei: Me.pagador = "*" Me.pagador = All Me.pagador = " " isnull (me.pagador) Nada... O relatório vem em branco. Os outros funcionam direito. Só essa opção que não Espero que possam me ajudar. Irei usar isso em várias outras situações.... Grande abraço!

pode me dizer como se faz? na verdade, eu não estou sabendo explicar direito... a dúvida é apenas a seguinte: Tem como eu chamar um evento diferente do que estou usando? Tipo, estou no evento DEPOIS DE ATUALIZAR do SUBFORM e quero que depois de uma condição verdadeira, ele chame o procedimento NO ATUAL do Form 1. É possivel?

Olá pessoal. To com uma pequena dúvida.. seguinte: Tenho o form FORM1 com os campos VALOR_PEDIDO, TOTAL PAGO E SALDO e o subform SUBFORM1 com os campos IDPRODUTO e QUANTIDADE No evento NO ATUAL do FORM1 eu atribuo uns valores recuperados de umas consultas... e no evento DEPOIS DE ATUALIZAR do campo QUANTIDADE eu efetuo uns calculos O lance é... como eu faço, pra chamar no evendo DEPOIS DE ATUALIZAR do campo QUANTIDADE o mesmo evento de NO ATUAL do Form 1? ----------------------------- NO ATUAL, ele executa umas consultas e vai atribuindo os valores aos campos descritos acima.. são caixas de textos independentes... dai, os valores só se atualizam, quando eu abro novamente o form. Eu queria que atualizassem assim que eu mudar os detalhes dos pedidos no subform... Não sei se fui muito claro.. mas tentei algo assim call form_current() mas dá erro.. alguém me ajuda?

Nossa.. você pode me chamar do que quiser.. eu não tinha visto que o código era armazenado na caixa de texto (texto9). Depois de ver sua explicação que eu reparei. dai foi fácil! ficou assim: With CodeContextObject DoCmd.OpenForm "frmCadastroCliente", acNormal, "", "[idCliente]=" & .Texto9, , acDialog End With Muito Obrigado MESMO Leandro! Felicidades!

M.MALJ, eu não sei se me exliquei dieito. O form é assim. Tem uma caixa de texto, onde você digita o criterio pra pesquisa (iniciais do nome, parte do meio do nome... ) e uma caixa de listagem no meio onde aparecem os resultados da pesquisa, só que, essa caixa de listagem vem divida em 2 colunas (IDCliente e Nome), mas isso é feito através de código. O que eu precisava é armazenar o código da coluna 0 em uma variável e quando der 2 cliques, usar esse valor como critério pra abrir o form de cadastro desse mesmo cliente. Será que consegui não complica muito a explicação? Bom dia leandro... Eu abri o download que me indicou mas não entendi. De repepente você se enganou no link. Ali só tem 1 form principal e outro fom que abre quando clica no botão pra adicionar filhos do mesmo pai. De que forma acha que isso iria me ajudar?

Tentei adaptar o exemplo de localizar registros attravés de caixa de listagem (você digita G, e aparecem os noms Gilberto, ermeneGildo... por ai) disponibilizado pelo Leandro Abbade em seu site. Adaptei pra o meu caso: Tabela TBCLIENTE, com campo IDCLIENTE, NOME Consigo fazer a pesquisa e aparecerem os nomes dos clientes direitinho. Só que, eu queria que quando clicasse 2 vezes no nome (ou no botão exibir), abrisse o formulario FRM_CADASTRO_CLIENTE já no cadastro dele (de acordo com o campo IDCLIENTE). Tentei fazer algo assim: DoCmd.OpenForm "frmCadastroCliente\", acNormal, "", "[idCliente]=" & .idCliente, , acDialog Mas dá erro.. percebi que o código do cliente fica armazenado numa Variant (strNome) na Function PREENCHERLISTA, mas parece que quando termina, ele limpa a memoria.. não sei. Até tentei DoCmd.OpenForm "frmCadastroCliente", acNormal, "", "[idCliente]=" & strNome(I, 0), , acDialog mas ele diz tb que tá vazia, algo assim.. será que poderia me ajudar? estou enviando o arquivo em anexo! Link pro arquivo http://rapidshare.de/files/49103505/Localizar_Gil.rar.html Abraços a todos!

Olá pessoal. Adaptei esse código pra minha necessidade, e percebi que está funcionando quando eu converto pra versão 2003. Quando uso o mesmo código no Access 2007, dá o seguinte erro: 3219 'operação inválida Eu converti pra versão 2003 pra postar aqui e pra minha surpresa, FUNCIONOU: então, aqui está o código: Private Sub combo_BeforeUpdate(Cancel As Integer) Dim Rst As Recordset, strCli As String 'Abre o recordset do tipo Table. Set Rst = CurrentDb.OpenRecordset("tblCentral", _ dbOpenTable) strCli = Me.NumGeral If Not Rst.EOF Then MsgBox "Registro cadastrado na tabela! Preencha os dados novamente.", vbCritical, "Registro..." Cancel = True Me.Undo 'Else 'MsgBox "Registro não encontrado" End If Set Rst = Nothing End Sub Obrigado pela ajuda pessoal! Abração!

ai está, o link postado em outro site de upload de arquivos... obrigado pela força galera. http://rapidshare.de/files/49058463/Relatorio_Zeros.rar.html

Mr MALJ, aí está, postei em outro site.. se puder me ajudar ficarei muito grato! Grande abraço! http://rapidshare.de/files/49058453/BD_Gil.rar.html

Não entendi direito porque o tópico ficou como (resolvido) e nem porque o Leandro me mandou esse link. Acho que confundiu os meus 2 tópicos. Vou postar o BD em outro site de upload que seja mais facil como me foi sugerido e já posto o link aqui.

Amigão... entendi o que você fez.. funcionou o preenchimento com 0's, mas apareceu outro problema... - Não consigo formatar como moeda esse campo no relatório nem a pau... Estou postanto o BD se puder me ajudar novamente... Como eu faço pra o valor do saldo devedor (Total pago - total pedido) <0 não ficar entre parênteses e sim com o sinal '-' e em vermelho quando for (<0) e azul (>0)? espero não estar abusando da sua boa vontade... grande abraço! http://www.megaupload.com/?d=CQ2ADXIQ