kuroi

smmsql, a palavra NULL esta vindo como parte da string ou o campo esta ficando com valor nulo depois da concatenacao?? se tiver vindo com valor nulo, deve significar q um dos campos q você esta concatenando esta nulo. você pudia fazer um update nele tipo assim: update tabela set campo = '' where campo Is Null[/code] ou você pudia usar um case na hora de concatenar. tipo assim: [code]Select ((Case When a03.data Is Null Then '' Else a03.data End) + (Case When a03.nome Is Null Then '' Else a03.nome End)) As campo From tabela tente ai.

mas em qual versao do visual basic você pretende fazer?? sua intencao por acaso não seria fazer em visual basic .net (visual basic 2002 pra frente)?? mas aparentemente da pra fazer tudo isso q você quer, mas não entendi a parte da "criação de comandos em ícones".

a valeu pelas respostas, mas por algum motivo misterioso, depois de um tempo, do nd o espaco foi liberado, não sei o q eu possa ter feito. esqueci de avisar aqui. vai ver então q o unlocker guarda o arquivo por uns dias, seila. so o espaco do bitorrent q não sei se retornou, nem lembro mais, ou talvez eu nem tenha percebido, já q o espaco tb já ta todo ocupado de novo... tenho q comprar uns dvds aqui. nd, você ta indo bem, o q é chato é quando o cara so fica postando comentario q não acrescenta nd.

leandro, se você trocar esse seu and por um or, acho q devia funcionar não?? agora essa parte do or {?NOTAS_ESCOLHIDAS} = '' acho q tb é bom tirar.

o campo deve estar salvo com valor nulo. tenta por, como primeira opcao do case: WHEN RA4_VALIDA Is Null THEN 'PENDENTE'

se o cara digitar 1,15, vai ser igual a Round((15 / 13), 2). não deu certo pra vc?? e o Round() tb transformara 1,156 em 1,16.

mas o Randomize de preferencia teria q vir antes do Rnd. se você não ta chamando o Randomize em nenhum outro lugar antes disso, o primeiro sinal vai ser sempre o mesmo toda vez q você executar o programa. fora isso, quando você declara o array, o numero passado é o ultimo indice q o array tera e não o numero de indices. então esse array declarado como sinal(4), vai ter 5 indices, de 0 a 4. ou seja, ele tem um indice a mais q não esta sendo utilizado. e o codigo do fercosmig era pra funcionar sim com indice = Int(Rnd * 4). pra ter q somar + 1, você deve ter preenchido então os indices de 1 a 4, ou mudado alguma outra coisa no codigo.

a ta, esse eu pus so pra passar vergonha mesmo.

isso não tem importancia, o q preciso saber é o resto da mensagem do erro e em qual linha do codigo ele acontece.

frata, pra editar o post é so clicar no botao editar q tem embaxo da mensagem. depois você seleciona se quer a edicao rapida ou a completa (a rapida não tem algumas opcoes, como mudar a fonte). mas logicamente, você so pode editar os seus proprios posts.

qual erro em q linha??

é mas acho q você queria era um else if: else if (num1<num2)

q link?? a funcao Round() arrendonda os valores. o primeiro parametro é o valor q você quer arrendondar e o segundo é o numero q casas decimais q você quer q fique (no exemplo, passei uma casa como você disse q queria).

a acho q o erro ta aqui ó: Area = Coluna.Rows.Hidden = False o q exatamente era pra fazer essa linha?? essa expressao não ta fazendo muito sentido. o primero igual da linha ele vai etender como atribuicao. já os proximos, ele entendera como comparacao o q não fara o menor sentido. ai aquela linha seria o mesmo q isso: Area = (Coluna.Rows.Hidden = False) e a expressao Coluna.Rows.Hidden = False deve retornar um valor true ou false. ou seja, a variavel Area, vai guardar dentro dela um valor boolean e não um range q imagino q seja o q você quer fazer. hum... o caso do if ate pudia mesmo funcionar daquele jeito. com uns parenteses assim, é mais garantido: If (Endereço = cell.row) = True Then isso se não me engano deve funcionar, mas o outro codigo q passei, alem de menor, deve realizar menos operacoes durante a execucao. não é bem isso. imagine o if assim: If Endereço = cell.row Then a comparacao Endereço = cell.row retornara True ou False. se for true, o entra dentro do if, senao não. ou seja, você já tem o resultado da comparacao. é perda de tempo comparar de novo. então, imagine q isso aqui: If Endereço = cell.row = True Then seja isso: If [True ou False] = True Then se ele comparar True com True, retorna True. se comparar False com True, retorna False. ou seja, você vai comparar de novo pra chegar num resultado q você já tinha. por isso é desnecessario. agora, da uma olhada naquela linha da Area. você devia passar algum range pra ela, mas não sei exatamente o q você quer passar.

moverei pra php.

você pode editar o selecion formula. assim: RelRep.RecordSelectionFormula = "{Tabela.Campo} = '" & valor_que_o_usuario_escolheu & "'" se o campo for do tipo numerico, não ponha as aspa simples.

vanessa, no otro tópico, não sei se minha ideia resolveu alguma coisa, mas olhando seu codigo la, parece ser um problema parecido. o status-msg-wrap esta dentro de um if e por algum motivo ele não deve estar entrando no if quando o post tem so um label, imagino q seja por alguma coisa q você tenha mexido no codigo. agora como não conheco essa linguagem usada no blogger, fica dificil identificar o problema... talvez se tivesse um codigo q ainda funcionasse, daria pra comparar os dois...

você entendeu a parte da view?? pra formatar o detail em varias colunas, você clica com o botao direito no nome da session (no caso, o details) no painel da esquerda e seleciona Format Section... na janela q abrir, você seleciona a opcao Format with Multiple Columns depois q você seleciona-la, vai abrir uma aba Layout. nela você pode formatar os tamanhos das colunas por exemplo. reparei agora tb q nessa aba aparece uma opcao Format Groups with multiple column. não sabia q tinha essa opcao. nunca tentei usa-la, mas é capaz de q ele faca toda aquela formatacao q você queria fazer, e você não precisaria complicar com aquela ideia da view q eu passei, de uma olhada ai.

você quer somar mas não quer q contem as ocorrencias repetidas?? os valores não tão ordenados?? essa linha aqui: If Endereço = cell.row = True Then acho q devia ser so isso, não?? If Endereço = cell.row Then

você quer um recurso de autocompletar?? com inputbox não vai, o melhor seria você criar um user form com uma listbox pra simular o inputbox. pra fazer o autocompletar, procure um tópico q tem na sala de tutorias de vb6. so não sei se funcionara no listbox do vba. talvez você possa adaptar, ou ainda deve ter algum outro codigo no google.

estranho, aqui no meu office 2003 abre sem erros. jonathan, se você quiser, pode atualizar la o primeiro post com o arquivo corrigido. ou então, me mande q eu atualizo, tem meu email no tópico dos contatos.

marcos você ta selecionando os dados no visual basic e passando para o crystal, é isso?? o crystal esta apontando pra alguma tabela ou nele esta apenas a definicao dos campos (num arquivo .ttx)?? porque no crystal, se você adicionar as duas tabelas, você pode linkar as duas em menu Database -> Visual Linking Expert... ou você pode usar uma query com join: http://scriptbrasil.com.br/forum/index.php?showtopic=108732

hum sei q da pra dexar o details vertical, se você marcar a opcao Format With Multiple Columns, mas não acho q de pra fazer em grupos. mas você poderia apontar o relatorio pra uma view (consulta) q já trouxesse os dados agrupados, e você os mostrasse no details.

acho q você pode abri-la como um arquivo binario e enviar como string normalmente.

o arquivo esta certo sim, você tem o winrar ai?? tenta baxar de novo. se o arquivo vier com menos de 261 kB é porque o download deve ter caido no meio. vai tentando ate vir completo. na pior das hipoteses, instala o downthemall (pro firefox) q ele deve impedir esse problema de acontecer.