kuroi

você tem q trocar a virgula por ponto. e não pode ter separador de milhar. exemplo, não pode ser 1.234,56 nem 1234,56, tem q ser 1234.56

não sei se entendi direito, e tb não sei se o append vai funcionar não. tb não uso o datareport então não sei direito, mas não funcionaria se você fizesse um simples select de join e separasse em agrupamentos no proprio datareport??

rizuane, tenta instalar o seu programa num outro pc com vista e veja se não funciona. e depois tb pode tentar compilar e fazer o instalador no xp e tentar instalar no xp pra ver se não vai.

a assim num tem graca se você fizer o exercicio todo pra ele ne

vai elevando os numeros interos ao quadrado. quando passar do numero de quadrados, você sabe q o certo é o numero anterior. exemplo, para o numero 31, faca um while q va elevando os numeros ate ultrapassar o numero de quadrados. 1 * 1 = 1 2 * 2 = 4 3 * 3 = 9 4 * 4 = 16 5 * 5 = 25 6 * 6 = 36 chegou no 6, você viu q é maior do q 31. então você sabe o primero quadrado tem q ser o numero anterior (5) elevado ao quadrado. ai você subtrai 25 do numero original (31) e faz a mesma coisa ate não sobrar mais quadrados. EDITADO: ou, mais facil ainda, se você pode usar o math.h, tire a raiz quadrada no numero de quadrados e nem precisa de while

acho q se você usar subquery deve funcionar. exemplo: Select Max(Soma) As Maximo From (Select Nome, Sum(Valor) As Soma From Tabela Group By Nome)[/code]

é pra desenhar o quadrado na tela?? mas pra desenhar com o q?? com caracteres ascii?? tipo assim?? -> __ __ -> |__|__| -> |__|__|[/code] ou você usa alguma biblioteca grafica?? ou você so tem q dizer qtos quadrados tem q ser?? exemplo "com 31 azulejos são montados 4 quadrados"

sua pergunta tb tera q ser ignorada... não pode falar sobre isso no forum, pra ter o visual basic 6 você teria q comprar. mas infelizmente, a microsoft não o vende mais, já q tem versoes mais novas. então, qualquer forma de você consegui-lo não pode ser discutida aqui.

acho q você não entendeu... o objeto timer1 não tem valor de tempo nenhum. tdo o q ele faz é executar um codigo a cada intervalo de tempo. isso é o timer. o codigo q vai ser executado é o q você colocar dentro dessa sub: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick End Sub[/code] ou de qualquer outra sub q tiver o Handles Timer1.Tick ou seja, esse codigo q você passou tem q ser posto dentro da sub acima e não do form load. so q não vai dar certo se você tentar pegar o tempo direto do timer. tem q ser da variavel q você tem q declarar (de acordo com o q eu disse no post de cima). lembra do q eu disse mais em cima ainda:

não entendi a pergunta

bom, vo mover pra .net e dexar o link do tópico aqui, assim você tem mais chance de obter resposta.

se você tiver usando o CRAXDRT, eu faria assim: Dim x As CRAXDRT.Report Set x = crRep.OpenSubreport("nome_do_seu_subreport")[/code] onde crRep seria o objeto do seu report principal. e ai você pode acessar normalmente a propriedade RecordSelectionFormula do seu objeto x.

o problema é saber se o diretorio existe?? se for, tenta assim: If Dir("C:\Program Files\Adobe\Reader 7.0\") <> "" Then 'Existe o 7.0 ElseIf Dir("C:\Program Files\Adobe\Reader 8.0\") <> "" Then 'Existe o 8.0 Else 'Não existe nenhum dos dois End If[/code] entretanto, acho melhor usar o ShellExecute, q vai abrir o arquivo não importa qual versao for. inclusive vai abrir mesmo se o leitor de pdf instalado for outro senao o acrobat. tipo assim: [code]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub UserForm_Initialize() ShellExecute 1, "Open", "\\mds522\sispoad$\informes\Novembro_" & Me!AnoExe & ".pdf", vbNullString, vbNullString, 1 End Sub so nunca fiz isso no vista, mas imagino q deva funcionar.

pelo numero do erro não sei, quais as mensagens q aparecem?? e qual o codigo da macro??

michelle, a conta é meio dificil de fazer, tenta monta o esquema no papel pra ficar mais facil de pensar. seria mais o menos isso q falei aqui ó: tipo assim, calcule a diferenca: valor_da_parcela = Round (valor_total / num_parcelas, 2) diferenca = valor_total - (valor_da_parcela * num_parcelas)[/code] ai se a diferenca der 0 você sabe q não vai ter problema se ela der positivo, você sabe q vai ter q somar nas parcelas pra bater o valor se ela der negativo, você sabe q vat ter q subtrair. ai é a parte dificil. pensei aqui numa solucao sem testar nenhum codigo, mas o q você poderia fazer era um For q fosse percorrendo os textbox somando (ou subtraindo) um centavo. exemplo, você tem uma diferenca de 0,03 (tres centavos) pra 4 parcelas. então faca um for q vai somando um centavo nos textbox e subtraindo um centavo da diferenca. quando a diferenca chegar em 0 não precisa mais somar. acho q ficaria mais facil se você acesar o textbox pelo nome. tipo assim: [code]Me.Controls("TextBox1").Text = Me.Controls("TextBox1").Text + 0.01 se você não entendeu o q eu quis dizer, abra um userform novo, ponha 3 textbox nele e testa esse codigo aqui: For i = 1 To 3 Me.Controls("TextBox" & i).Text = i Next[/code] assim você acessa o textbox correspondente a parcela sem ter q fazer um if pra cada um. so q você teria q mudar os nomes deles, já q pelo q vi no seu codigo, os nomes dos textbox das parcelas não são sequenciais. então, ve ai se ajuda isso q eu falei, qualquer coisa poste.

não manjo de datareport, mas se o seu problema for no select do post de cima, tente uma coisa tipo isso aqui ó: Select t1.codigo, t1.descricao, t1.prvenda, t1.prcusto, t1.codtrans, t2.descricao As t_descricao, t2.prcusto As t_prcusto, t2.prvenda As t_prvenda From tabela As t1 LEFT JOIN tabela As t2 ON t1.codtrans = t2.codigo[/code] so troque "tabela" pelo nome da sua tabela

rizuane, tem como você responder a essas perguntas?? e tb responder a essa: em q sistema você ta compilando o programa e em qual você ta tentando rodar?? tipo qual windows você ta usando?? porque você pode ter problemas se tentar rodar programas compilados no xp num pc com windows 98 por exemplo. problemas q eu so consegui resolver com o innosetup. quanto ao projeto se você quiser mandar, acho melhor você hospedar num servidor tipo o rapidshare e passar o link ai ou me mandar por mp. ou se quiser então manda em rafaelsposito[arroba]gmail.com

pra adicionar uma coluna a mais eu faria isso ó: MSHFlexGrid1.Cols = MSHFlexGrid1.Cols + 1

veja esses tutoriais: http://www.macoratti.net/excel_vb.htm http://www.macoratti.net/vb6_exp.htm agora tb não entendi essa parte do ponto-e-virgula, mas se for uma coisa simples, você pode abrir um arquivo texto e salvar os dados separados por tabulacao e salvar com a extensao .xls

se eu entendi o q você quer, faca um left join da sua tabela com ela mesma: http://scriptbrasil.com.br/forum/index.php?showtopic=108732

hum, você não poderia usar parameter fields??

é o seguinte, insira o timer no formulario e ele deve aparecer la embaxo, certo?? então, selecione ele e na propriedade Interval, na direita, ponha 1000 (1000 milisegundos = 1 segundo, é o intervalo no qual o codigo do timer sera executado). e mude a propriedade Enabled para True (ou você pode fazer isso por codigo quando você quiser habilita-lo) então de um duplo clique no timer, o vai te levar pra janela de codigos, chamando o evento tick, o q deve montar um codigo assim: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick End Sub[/code] pronto, esse é o evento do timer. a cada segundo, todo o codigo q você puser ai dentro sera executado. ai pra calcular o tempo, você declara essas tres variaveis la em cima (dentro de Public Class mas não pode estar dentro de nenhum Sub ou Function) e inicializa elas com os valores no Form_Load. ai você poe esse seu codigo ai (com a devida sintaxe) dentro do evento Tick do timer e manda mostrar no Label. quando chegar no final (em 0), você manda desabilitar o Timer pela propriedade Enabled. EDITADO: e pra facilitar na verdade você poderia usar uma variavel so, como eu disse no otro post, inicializando com 120 segundos, e usar a funcao TimeSerial() pra mostrar.

http://www.google.com.br/search?hl=pt-BR&a...uisar&meta=

vai ter q dar um jeito de separar as parcelas. em vez de usar o textbox então, use um combobox. ai escreva a parcela em cada item. exemplo 4,37 em 2 parcelas: 1ª parcela - R$ 2,19 2ª parcela - R$ 2,18 ou 4,37 em 4 parcelas: 1ª parcela - R$ 1,10 2ª parcela - R$ 1,09 3ª parcela - R$ 1,09 4ª parcela - R$ 1,09 o q você vai ter fazer é calcular o valor da parcela (divida o valor total pelo numero de parcelas), depois faca o round e multiplique de volta pelo numero de parcelas. subtraia do valor original e você vai ter a diferenca. so q ai você tem q ver qual vai ser a diferenca, pode ser pra mais ou pra menos e não necessariamente so um centavo (divida 4,37 em 8 parcelas por exemplo). ai você soma a diferenca nas parcelas pra dar o valor total.

aqui ta toda a explicacao... ficou muito complicado pra entender assim?? crie uma variavel pro resto e otra pro resultado. pra calcular o resto use o operador % ai faca um while (valor > 0) e dentro do while, va dividindo o valor digitado por 10 e fazendo as contas q falei abaixo: