kuroi

hum... não entendi nd... tem como você mostrar algum print ou coisa assim?? mas tipo, se a segunda pagina é continuacao da outra, porque você não poe direto em vez de usar o subreport?? ta mas como você sabe quando tem e quando não tem nf pra colocar la??

da uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=105586 ele ensina a mover o formulario clicando em qualquer parte dele e arrastando. ai você olha o codigo la e adapta para o frame. é simples, é só usar os eventos q estao no formulario para o frame (e, obviamente, mover o frame em vez do formulario). mas qualquer duvida, poste.

nesse caso, você vai ter q ver se existe algum padrão no nome do arquivo ou alguma informacao no conteudo dele q confirme q seja do crystal reports. tipo, veja os nomes dos arquivos .tmp. não existe uma forma de saber, pelo nome, se o arquivo é do crystal?? ou senao, abra o arquivo no bloco de notas e veja o conteudo dele. provavelmente vai haver um mte de codigo hexadecimal, mas você pode encontrar algum texto la dentro q confirme q seja do crystal.

use a funcao FileLen()

então, o IN funciona em querys sql, mas pelo q sei não funciona no crystal reports mesmo.

acho q o melhor é você desenhar a tabela com os objetos Line e Box (clique em menu View -> Toolbars... -> e habilite a opcao Suplementary Tools).

tudo bem, eu mesmo pus. mas então, esse erro deve estar acontecendo, porque na sub grava, você esta fechando tanto a conexao quanto o recordset e abrindo de novo. quando você fecha ele perde o AddNew, entendeu?? apague a parte do codigo onde você fecha e abre tanto a connection quanto o recordset q deve funcionar.

tente converter pra data. assim: If CDate(Format(Now, "mm/dd/yyyy") & " " & Format(Right(Now, 8), "hh:mm:ss")) > CDate(Format(rs!DIA_HORA, "dd/mm/yyyy") & " " & Format(Right(rs!DIA_HORA, 8), "hh:mm:ss")) Then

bom, posso te indicar esses tutoriais: http://www.macoratti.net/ado.htm http://www.macoratti.net/dao_ado.htm veja tb outras coisas no site http://www.macoratti.net/ q la tem bastante coisa de util. quanto ao erro q ta te dando, pode ser mta coisa. se não conseguir descobrir, poste aqui pra gente a mensagem de erro q da e o codigo q você ta usando q a gente ve se consegue descobrir aqui.

então, esse erro ocorre quando você tenta usar um objeto não declarado, estranho ele te dar essa mensagem. mas note q você esta usando a conexao tanto como objeto connection como recordset. talvez o vba esteja fazendo confusao por causa disso. tente criar dois objetos separados. tipo assim: Dim cn, rs, sql Dim myname, mypath, connstring Dim iret Dim i As Integer Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.RecordSet") i = 0 connstring = "driver={SQL Server};server=******;uid=******;pwd=******;database=Goldmine" cn.Open (connstring) sql = "select * from contsupp inner join contact1 on contsupp.accountno=contact1.accountno where contsupp.contact like '%cp-13253%'" Set rs = cn.Execute(sql) Do Until rs.EOF i = i + 1 Folha2.Select Cells(i, 2) = rs.Fields(2) rs.MoveNext Loop[/code]

tem como postar o seu codigo?? pelo menos a parte onde você da o addnew, a parte onde você da o update e (importante) a parte onde você declara e inicializa o recordset e o objeto connection.

da uma olhada na linha: Set rs = rs.Execute(sql) você chama o execute do rs. não devia ser de um objeto connection?? quanto ao movenext, acho q não é isso não, o eof esta sendo testado certinho. caso isso não resolva, aponte pra nos qual a linha em q ocorre o erro.

é então, o melhor seria você por o filtro dentro do for. tipo assim: Dim filtro As String filtro = "" For i = 0 To lstConhecimentos.ListCount - 1 If lstConhecimentos.Selected(i) = True Then CTRC = CTRC + """" & Left(lstConhecimentos.List(i), 6) & """" & "," End If filtro = "({ST_CTE_Conhecimento.NR_CTRC_Impresso} = '" & Left(lstConhecimentos.List(i), 6) & "'" & IIf(i = lstConhecimentos.ListCount - 1, ")" " OR ") Next i qtd = Len(CTRC) CTRC = Mid(CTRC, 1, qtd - 1) CrystalReport1.SelectionFormula = filtro & " AND {ST_CTE_Conhecimento.NR_CTRC_Impresso} = {ST_CTE_NF.NR_CTRC_Impresso}" CrystalReport1.WindowState = 2 CrystalReport1.DiscardSavedData = True CrystalReport1.Action = 1[/code] entendeu a ideia?? veja se funciona ai, qualquer coisa poste.

ai fica dificil, se você quer atualizar dessa forma, é melhor atualizar o proprio exe. com dll você não vai conseguir adicionar um botao a mais por exemplo. ou então você faz todos os formularios com UserControls. ai quando precisar atualizar, você simplesmente substitui a ocx no system32. acho q ficaria meio estranho mas deve funcionar. apesar de q acho q o mais facil seria substituir o proprio exe mesmo.

sendo q, no codigo abaixo, cn é o seu objeto Connection, faca assim: cn.Execute "delete from Clientes where Cadastro = '" & msflexgrid1.rowsel & "'" depois disso você tera q fazer o select de novo pra atualizar o grid.

carmem tem erros na sua query, você não pode por 2 FROMs, acho q o segundo era pra ser um WHERE não?? fora isso, faltou tb um AND entre as comparacoes e ai não vejo mais erros, só tem q ver se a query ta fazendo exatamente o q você quer. ele ta pegando os maiores so q pra cada um dos outros campos do select (TABELA_A.CAMPO1, TABELA_B.CAMPO e TABELA_C.CAMPO), se for isso q você quer, ta certo. mas quanto ao uso da funcao Max(), ta certinho, inclusive ta agrupando certinho.

cristina, é só você editar o selecion formula do relatorio a partir do visual basic. ai você poe la o filtro com todas as opcoes q ele escolher. se tiver dificuldades em fazer, me fala qual o componente do crystal q você usa (Crystal Reports Control, Design RunTime Library, etc) ou poste o seu codigo do Visual Basic q chama o relatorio pra gente dar uma olhada.

de uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=41838

faca no evento change de cada textbox (duplo clique nele pra chamar). acho q o melhor é você fazer uma sub separada q faca o calculo, e, no change de cada um deles, chamar essa sub.

plic?? o q é plic?? bom, não gosto de ficar fechando topicos, porque acho q sempre pode ser aproveitado, tipo alguém com uma duvida relacionada pode usar o mesmo tópico. ou amanha você mesmo chega com outro problema relacionado, e ai seria melhor utilizar o mesmo tópico em vez de criar outro. bom, mas como esse é um assunto bem especifico e como vocês pediram com educacao to fechando pra variar um poco heheh se alguém quiser a reabertura me avise por mp.

é, to me sentindo cada vez mais sozinho aqui no forum, vejam só: é... e tb to me sentindo cada vez mais inutil, acho q ta na hora de eu arranjar um emprego de novo. pra falar a verdade, isso acontece todo dia, nesse horario to sempre sozinho no forum. o q sera q significa isso?? q todo mundo aqui é ocupado e o unico vagabundo so eu é?? bom, mas agora to indo q jaja tem o jogo do brasil. mas tb tenho q dormi logo q amanha tenho q acordar cedo pra ir na escola (às 19:00), falou.

não entendi, você ta querendo ajuda pra fazer o programa ou ta querendo contratar alguém pra fazer pra você?? caso você esteja querendo ajuda, ai não posso dar mta dica porque não conheco esse componente, mas se você estiver com algum problema pra fazer, poste ai q a gente ve se da pra fazer alguma coisa.

queria saber se alguém conhece um software bom pra compor musicas. tipo, já encontrei alguns por ai mas muito limitados e q os caras poe umas funcoes pra fazer acompanhamento e etc q so atrapalham. queria um onde eu simplesmente pudesse livremente por as notas q eu quisesse. uma coisa parecida com o q é feito nesse video: http://jp.youtube.com/watch?v=1TF_hH3vJ2g por exemplo. alguém sabe q software é esse??

não seria isso?? Write #2, txtagencia.Text

opa tamos de volta ai. qualquer duvida pode postar.