kuroi

mas é request.form("cpf") ou é request("t2")?? você ta usando os dois, o request.form("cpf") existe mesmo??

não entendi. o cara digita o valor total e você tem q calcular 50% ou ele digita 50% e você tem q calcular o valor total. de qualquer modo, 50% significa metade, ou seja, pra achar 50% de qualquer coisa é so dividir por 2. e se for o inverso é so multiplicar. de qualquer modo, tb, a formula pra calcular porcentagem, caso você precise de otro valor q não seja 50%, seria isso: porc := (valor * 50) / 100;

em vez comparar assim então: If objrs.BOF=objrs.EOF then faca assim ó: If objrs.BOF And objrs.EOF Then e note tb q você não ta executando a query. faltou uma linha tipo assim: objconn.Execute(strquery) senao ele so faz a string mas não executa.

mas ele ta redirecionando pro insere.asp ou não?? se não tiver, então tenta tira aquele return false, acho q ele q ta atrapalhando.

a tem q por entre aspa. assim ó: strquery = "SELECT * FROM banco WHERE cpf = '" & request.form("cpf") & "'" tenta ai.

o q ta acontecendo de errado??

na primera linha dentro do for, escreva isso: If A <> UBOUND(sigla_bancoo) Then v = ", " Else v = "." End If[/code] e na hora de mostrar cada valor, faca assim: [code]Response.Write(uf & v) veja ai se funciona.

na verdade, como eu já usei os dois compiladores, sei q tem mta diferenca entre os dois, não é so as bibliotecas. a maioria dos meus codigos do turbo c, não rodavam no dev, eu tinha q alterar bastante coisa. principalmente porque o turbo c é um compilador pra dos, e o dev é pra windows.

acho q deveria ser o contrario não?? devia ser assim: TextBox6.Text = WorksheetFunction.Match(TextBox5.Text, Sheets("BDCQE").Range("B2:B500"), 1) mas qual a mensagem de erro q ta aparecendo?? acho q o problema ta no range. existe valor mesmo ate a linha 500?? se por exemplo, você so tem valor ate a linha 80, o range não pode passar da 80 q da erro.

não sei... não entendi direito o q você quer fazer?? qual a relacao do segundo com o tercero grid?? e em q linha acontece aquele erro??

na verdade o codigo era so de exemplo, você teria q adaptar de acordo com o q você quer. mas na verdade encontrei aqui a funcao Match(), ela faz exatamente o q o Corresp() faz. a sintaxe seria essa: valor = WorksheetFunction.Match(codigo, Range("XX:YY"), 0) veja ai se não funciona.

bom michelle, pra procurar o texto você faria assim ó: Dim r As Range Set r = Sheets("Plan1").Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not r Is Nothing Then r.Activate 'Achou Else MsgBox "Não achou." End If[/code] o r retorna a celula onde ta o codigo e ai você tem q ver como encontrar o texto correspondente em relacao ao codigo. exemplo, se o texto correspondente tiver na coluna da frente, é so você pegar o texto da coluna da frente e por no TextBox2

o q você ta usando pra fazer o relatorio?? datareport?? você podia então adicionar os dois campos separados na consulta, e na hora de mostrar juntar os dois via codigo. ou você converte os dois pra string e concatena no proprio select.

faca assim: Text1.Text = rs!Campo & "" sempre concatene com "" q não acontecera esse erro.

o timer não conta nd, ele so permite q você execute o codigo a medida q o tempo vai passando. ou seja, quem tem q contar é você, sendo progressivo ou regressivo. comece um contador em 120 (120 segundos = 2 minutos) e a cada segundo você diminui 1 dele.

pega pelo recordset q tiver associado ao grid. exemplo: if rs.EOF then datagrid3.visible = false else datagrid3.visible = true end if[/code]

então é o tempo gasto. se você quer gravar tempo em branco, grave '00:00:00', não pode ser ''. mas acho q você devia usar outro tipo. data/hora é so pra guardar data e hora do dia. não serve pra gravar intervalo de tempo. exemplo, se o tempo gasto fosse de 25 horas, como você iria gravar, se o campo data/hora so aceita ate 23:59?? ou você faz como numerico e grava o valor em (mili)segundos, ou você faz como texto e grava a string.

leandro nesses campos existe algum q é do tipo numerico?? por exemplo, se o campo TEMPOGASTO for numerico, você não pode gravar '', você teria q gravar 0. e tb não pode por entre aspa. o CODEMP tb não é numerico?? ai você não pode por entre aspa tb. e tb, acho q isso não faz diferenca, mas pra garantir de um espaco antes do Values tb. tente gravar tipo assim: INSERT INTO CONTATOS_HISTORICO (CODEMP, ASSESSOR, EQUIPE, TAREFA, HISTORICO, CARTA, HORA, TEMPOGASTO) VALUES( 2498 , 'LEANDRO' , 'GIRARDI' , 'TEL' , 'JDHJDJHDJDHJDHDJHDJHDJDHJDHDJHDJHDJDHJDDJD' , 'SEI LA' , '15:00' , 0)

verdade, boa ideia raphael. se você adiciona o componente Microsoft Forms 2.0 Object Library, você tem todos os as ferramentas do vba, inclusive o OptionButton com GroupName q funcionou certinho aqui. ai tipo so não sei se todas as versoes do office tem esses controles com essas caracteristicas.

mas então michelle, na verdade ainda não entendi direito exatamente o q você quer fazer. na verdade, no vba, no listbox você consegue definir colunas tb (no visual basic não conseguia), ai acho q o q você quer é separar em colunas e não por o texto todo num item so como no meu exemplo, certo?? bom, não entendi essa parte do textbox5 no seu codigo, mas veja se não é isso q você quer: Private Sub Pesquisa() Dim i As Integer, j As Integer i = 0 Sheets("Plan1").Range("A1").Select Do While ActiveCell <> "" j = 0 Do While ActiveCell <> "" If j = 0 Then ListBox1.AddItem ActiveCell Else If ListBox1.ColumnCount <= j Then ListBox1.ColumnCount = ListBox1.ColumnCount + 1 End If ListBox1.Column(j, i) = ActiveCell End If j = j + 1 ActiveCell.Offset(0, 1).Select Loop ActiveCell.Offset(1, 0).Select ActiveCell.EntireRow.Select i = i + 1 Loop End Sub[/code]

bom eu tinha instalado esse mesmo turbo c++ 3.0 nesse mesmo windows xp sp2 no meu hd antigo e sempre funcionou sem problemas. tenta dar uma pesquisada no google por essa mensagem de erro.

realmente raphael, no vba tem sim essa propriedade, agora no visual basic não tem e tb não achei uma semelhante. estranho q não tenha, acho q o jeito é por no frame mesmo.

groupname?? tem isso mesmo no visual basic?? então raphael, não achei essa propriedade aqui com esse nome... o q eu fazia era sempre dividir os grupos em frames diferentes. ai se você não quer q o frame apareca, você pode tirar a borda dele. mas se existir essa propriedade então, era mta burrice minha fazer desse jeito... mas olhei aqui e não achei ela nem nenhuma outra q possa ser.

rizuane, por acaso o txtCodUsuario esta desabilitado (.Enabled = False)?? se tiver você não consegue por o SetFocus. tente fazer o seguinte pra ver se para com o erro: Private Sub LimparTela() 'Chama a sub LimparDados para limpar os campos do formulário: LimparDados 'Desabilita o botão Excluir: Toolbar1.Buttons(3).Enabled = False 'Apaga o conteúdo do campo CodUsuario e lhe passa o foco: txtCodUsuario.Text = Empty txtCodUsuario.Enabled = True 'ADICIONE ESSA LINHA txtCodUsuario.SetFocus End SUB[/code]

entendi agora. michelle se você ta usando vba, poste sempre na sala de vba pra não confundir. então, o listview faz muito mais coisas q o listbox (por exemplo, você pode por varias colunas tb, pode por desenhenhinho e pode por tooltiptext em cada item, por exemplo), mas se você não vai usar nenhuma delas, use o listbox q é muito mais facil mesmo. pra adicionar um item no listbox é aquele codigo mesmo: ListBox1.AddItem TextBox1.Text ai se você quer adicionar o texto na mesma linha, faca: ListBox1.List(0) = ListBox1.List(0) & TextBox2.Text o codigo do leandro tava dando erro porque quando você da o additem so uma vez ele vai ter um unico item. você tentou editar a segunda linha (.List(1)) e ela não existe. quanto ao set, não sei não. tentei esse codigo aqui no excel 2003 e não teve problema nenhum: Dim Item As ListItem Set Item = ListView1.ListItems.Add(, , TextBox1.Text) Set Item = ListView1.ListItems.Add(, , TextBox2.Text)[/code] você não precisa declarar Set porque ele é um comando do proprio Visual Basic, não é funcao nem variavel. qual versao do office você ta usando?? por acaso você tem instalado no pc o visual studio 2008??