kuroi

porque c não faz: Private Sub ok_Click() armazenar.Visible = False entrada.Visible = True End Sub ?

não resolvi. por sorte a mulher q pediu o programa não precisava do relatorio e eu mandei outro .exe sem a parte do crystal. concordo, se alguém souber poste q tambem quero saber.

uso crystal 8.5 e já me aconteceu isso uma vez. quando tentei rodar um programa com o relatorio num pc sem crystal ele deu erro. achei q tinha feito alguma coisa errada na hora de passar as dlls, mas não consegui corrigir. agora q você ta dizendo acho q o meu problema foi o mesmo q o seu. pra falar a verdade é meio dificil encontrar na internet esse tipo de informacao sobre o crystal reports, e tb nem conheco gente q mexe, então não posso falar com certeza mas estou achando é q pra rodar o relatorio, obrigatoriamente o crystal deve estar instalado no pc. pesquisa alguma coisa por ai. você não tem o help do crystal pra dar uma olhada? se descobrir posta ae q eu tb to afim de saber

a tela de missing files continua?

não entendi direito. você diz: variavel = "casa" então, c quer fazer: variavel = casa.text ? é isso? se for ce pode fazer: variavel = Controls(variavel).Text

procura no seu computador se você não tem essas dlls. se não tiver, procure no google q é capaz de você encontrar pra baixar sem muita dificuldade.

Ponha o datagrid so pra testar. depois apague.

o q acontece? se o movelast não vai pro ultimo, vai pra onde?

isso ae, cyberalexxx desse jeito fica melhor, dando um select por vez e mostrando separado. não corre o risco de estourar os WHERE igual eu tinha falado.

pode ser: Select Top 3 Campo1, Campo2 from Tabela Where Month(Data) = 1 UNION ALL Select Top 3 Campo1, Campo2 from Tabela Where Month(Data) = 2 UNION ALL Select Top 3 Campo1, Campo2 from Tabela Where Month(Data) = 3 ... etc se você não sabe os meses q estao no banco faca um select: Select Month(data) as Mes from Tabela Group By Month(Data) e faz o primeiro select usando for. o problema tanto no meu codigo quanto no dp cyberalex é q o banco de dados so suporta uma determinada quantidade de WHERE ou de UNION. por isso, se você for separar por ano, e no banco tiverem dez anos, serao 12 meses * 10 = 120 UNIONs ou 120 WHEREs (AND), e não sei se o banco aguenta isso.

o crystal aponta para o banco no diretorio correto? <Nome do Cliente> e <Empresa do Cliente> são campos do banco de dados ou são parametros?

outra coisa e q não vai ter sentido nenhum ir pauzinho por pauzinho. você tem e avancar o pauzinho de acordo com o numero de operacoes q c vai fazer. se você vai fazer so uma, q é excluir o arquivo, a barra vai chegar ao final de uma vez.

é uma pergunta tonta mas... o q é o visual basic 2005? versao nova do .Net?

a resposta do fercosmig acho q ajuda mais q a minha, so q acho melhor corrigir meu codigo mesmo assim. o certo seria: Unload Form2 Form2.Show vbModal

acho q não tem como, não... c vai ter q montar o nome do arquivo na mao. por exemplo, você vai e procura todos os arquivos do diretorio q as 8 primeiras letras sejam iguais, poe em ordem alfabetica e poe 1 no primeiro, 2 no segundo e assim por diante. Exemplo: você encontrou no diretorio os arquivos vgxuninst.exe, vgxuninsu.exe e vgxuninsw.exe então: vgxuninst.exe fica VGXUNI~1.EXE vgxuninsu.exe fica VGXUNI~2.EXE vgxuninsw.exe fica VGXUNI~3.EXE é trampo, mas não sei se tem outro jeito, não...

é o costume...

verdade, esse negocio enche o saco. uma vez tentei criar uma tabela com um campo chamado "local" e, quando tentava incluir alguma coisa, sempre dava pau. e pra conseguir descobrir q era porque "local" era palavra chave demorou pra p****.

Select Sum(valor) from Custos INNER JOIN OM ON Custos.om_nr = OM.om_nr Where OM.OM_REF = '12/05' AND OM.COD_FIL = 36

o esquema acho q e você mesmo fazer a funcao. e meio tonto, mas você teria q substituir todas a possibilidades de acentos. tipo: Private Function Funcao(palavra1) palavra1 = replace(palavra1, 'á', 'a') palavra1 = replace(palavra1, 'ã', 'a') palavra1 = replace(palavra1, 'à', 'a') palavra1 = replace(palavra1, 'â', 'a') ... ... palavra1 = replace(palavra1, 'ó', 'o') .... Funcao = palavra1 End Function

da uma olhada aqui: http://scriptbrasil.com.br/forum/index.php...15entry226699 ve se ajuda...

não entendi esse negocio de data de saida e data de chegada. você compara a data de chegada com a data atual, certo? ou não? onde você usa cada uma das datas? você disse que mas tem certeza q você esta comparando uma data q seja anterior a atual, ou seja, q o prazo realmente venceu?

o q esta acontecendo de errado? talvez o certo seja:

em vez de: data = "27/12/2005" faca: data = Conversion.CDate("2005-12-17") funciona em visual basic e em vbscript. não tenho como testar aqui, mas deve funcionar no asp. o codigo ficaria assim: Objconn.Open conex strQuery = "SELECT * FROM t_sai" Set ObjRs = objConn.Execute(strQuery) data = Conversion.CDate("2005-12-17") If Date() > data Then %> <body <%= colorbg1 %> scroll="no"> <script language="javascript"> alert("DATA MAIOR !"); </script> <% ElseIF Date() <= data Then %> <body <%= colorbg1 %> scroll="no"> <script language="javascript"> alert("DATA MENOR!"); </script> <% End If

as vezes acontece...

não sei se funciona do jeito q c quer mas: Form2.Close Form2.Show vbModal