The Lau

Puxa Vida, não sou expert mas... não é apenas isso que você precisa... tem varios exemplos prontos de adicionar dados... se você quiser eu mando para você dar uma olhada... Poste o seu email... que eu mandarei para você... Como conselho de iniciante para iniciante é melhor você imprimir uma apostila para começar...

Como eu faço para somar apenas o maior valor de 3 caixas de texto com o numero 10 por exemplo?

E ai garoto... Cara como sempre você me ajudando... O camarada Decio mando o seguinte... se = CDbl(IIf(txtCcSub.Text <> "", txtCcSub.Text, "0")) naquele codigo que você me enviou ta lembrado? e aí funcionou tranquilo... Valeu mesmo... são varias idéias e deu certo...Agora posso dar continuidade...

Vou colocar isso e ai mando noticias... Mas desde já eu agradeço...

Na verdade funcionou o único problema é quanto na caixa de texto não existe valor.... Aí da erro... Como da para resolver quando não tem um de quatro valores para somar?

Karakas! Hehe! Vou colocar isso e mando notícias...Mas é coisa hein... Valeu again Falow

Não estou conseguindo é calcular a soma pois não esta somando os decimos exemplo 5 + 5 +5,34= 15 esta errado.... seria 15,34 alguém pode me ajudar? Private Sub Somatoria() On Error GoTo NumeroErrado Dim se, tri, bic, pei, axv, axo, abh, abv, sio, siv, cxs, cxm, pam, out As Variant se = txtCcSub.Text tri = txtCcTri.Text bic = txtCcBic.Text pei = txtCcPei.Text axv = txtCcAxv.Text axo = txtCcAxo.Text abv = txtCcAxv.Text abh = txtCcAbh.Text sio = txtCcSio.Text siv = txtCcSiv.Text cxs = txtCcCxs.Text cxm = txtCcCxm.Text pam = txtCcPam.Text out = txtCcOutro.Text txtCcSom.Text = Format(Val(se) + Val(tri) + Val(bic) + Val(pei) + Val(axv) + Val(axo) + _ Val(abv) + Val(abh) + Val(sio) + Val(siv) + Val(cxs) + Val(cxm) + Val(cxm) + Val(pam), "Standard") Exit Sub NumeroErrado: MsgBox " Verifique os números", vbCritical End Sub

Muito grato William vou dar uma olhada e mando noticias... valeu!!!!!!!!!!!!!!

Gerou o gráfico certinho...mas como eu vou querer deixá-lo mais bacana vou tentar usar o GRAPH32.OCX... Enquanto eu ainda não sei... Seu codigo esta funcionando perfeitamente...

Será que alguém podeiria me dizer aonde conseguir o GRAPH32.OCX para gerar gráficos... pois meu CD esta bichado... e não tem... se possivel o endereço para eu conseguir...ou pelo email...fitlau@yahoo.com.br

já sim... e entre a resposta o que me restou foi....Qualquer coisa, estamos aí .... Contudo, estou precisando realmente desta resposta... Não consigo fazer esse gráfico e todas as matérias envolvem muitos procedimentos...

Galera esperta estou precisando fazer um gráfico de 4 caixas de texto...Alguém manja aí para me ajudar?

Buenas...pessoal tranquilinho! Estou precisando do comando para deixar alguns botões do toolbar enable... já contrui eles e adicionei as imagens...agora não consigo deixa-lo enable alguns botões...Ajudem-me por favor...

Tem algum problema de deixar assim o critério? Parece que funcionou... TBImc.CursorLocation = adUseClient criterio = "data=('" & cboData.Text & "') AND nome='" & cboNome.Text & "'"

Como esse erro se referiu ao Data Value vale salientar que essa data esta funcionando como se fosse um numero aleatorio pois essa disposição 1 - 05/05/05 e atraves da concatenação do list count ... Não sei se ajudo mas...Agradeço desde já a gentileza...

Dim criterio, marcador cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Imc.MDB" TBImc.Index = "IndHora" TBImc.CursorLocation = adUseClient criterio = "DateValue(data)=DataValue('" & cboData.Text & "') AND nome='" & cboNome.Text & "'" TBImc.Open "Select * From Imc WHERE " & criterio, cnn, adOpenKeyset, adLockOptimistic, adCmdText '''Nesta linha deu esse erro.... RunTime error '2147217900(80040e14)' Undefened function "Data value 'in expression. If Not TBImc.EOF Then marcador = TBImc.Bookmark MsgBox "Achei" If Not IsNull(TBImc![Hora]) Then lblHora = TBImc![Hora] Else lblHora = "" End If End If TBImc.Close cnn.Close End Sub E sinseramente eu não sei o que fazer...

Buenas.....Bom eu pensei que poderia fazer algo mais rápido pois este código eu vou inserir no evento LostFocus das quatro e resolve o problema...Obrigado pela dica... Falow...

Olha eu tentei...tinha esse código e tentei colocar o (And) hehe mas não deu certo....alguém tem idéia aí...Será que é problema library? Private Sub LocalizarHora() Dim criterio, marcador As Variant cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _ App.Path & "\Imc.MDB" TBImc.Index = "IndHora" 'Abre o Recordset TBImc.CursorLocation = adUseClient 'TBImc.Open "Select Hora,Data,Nome From Imc", cnn, adOpenKeyset, adLockOptimistic, adCmdText TBImc.Open "Select * From Imc", cnn, adOpenKeyset, adLockOptimistic, adCmdText TBImc.MoveFirst 'eu coloquei criterio = cboData.Text And cboNome.Text ' aqui dá erro: Run Time error 13 'type 'mismattch 'TBImc.Find criterio, 0, adSearchForward '''essa linha da erro tambem ai coloqui MoveFirst lá em cima... If Not TBImc.EOF Then marcador = TBImc.Bookmark 'MsgBox "Achei" If Not IsNull(TBImc![Hora]) Then lblHora = TBImc![Hora] Else lblHora = "" 'MsgBox " não achei" End If End If TBImc.Close cnn.Close End Sub

Ai pessoal esse é f... No banco de dados eu tenho hora data e código...e eu faço a procura através do Find....ai se ele retornar EOF então ele marca...até aí tudo bem....Mas isso não está funcionando.... Porque tanto a data como nome como o código podem ser incluidos...sem gerar erro de duplicidade...tem que ser assim.... Então o que eu pergunto é o seguinte.... Tem como associar uma procura no BD através da hora e do campo auto? Ou seja tem que procurar a data e se achar tem que achar o código auto numerado.... auto..data....................hora..codigo..nome..data 001....1-26/05/05..........5:30....002.....Ana... 002....1-26/05/05..........5:31....003.....Grilo... 003....2-26/05/05..........6:32....002.....Ana 004....2-26/05/05..........7:30....003......Grilo Eu estava localizando pela data....ai não deu certo pois tem repetido Eu estava localizando pela hora...vai que justo na hora ele insira outra... Tenho um combo quebusca as avaliações da Ana...e elas são exibidas nesta ordem........................................1-26/05/05 ..................................................2-26/05/05 e ao clicar nesta primeira COMO vou conseguir buscar justamente a linha dela? COMO VOU CONSEGUIR ASSOCIAR NA BUSCA?????? SEM CONSTAR QUE ISSO É TUDO NO MEU PROJETO...SE ESSE BUSCA FALHAR EU TO FERRADO...alguém TEM UMA IDEIA MELHOR????????????????????

ops... na verdade o que eu quero fazer ! Só apos as tres caixas de texto determinadas terem sido preenchidas chamem o evento...

Private Sub txtCcSub_LostFocus() Dim se, tr, sio, pam se = txtCcSub.Text tr = txtCcTri.Text sio = txtCcSio.Text pam = txtCcPam.Text If txtCcSub <> Empty And txtCcTri <> Empty And txtCcSio <> Empty _ And txtCcPam <> Empty Then MsgBox "Todas preenchidas" txtCcSom.Text = se + tr + sio + pam End If atualiza = False End Sub Tem algum jeito de automátizar esse procedimento em quatro caixas de texto?

Na verdade eu não sei usar MSChart, já cheguei a ler alguma coisa mais ele se referem a montar o gráfico atraves do Banco de Dados...Mas como tenho 4 caixas de texto gostaria de montar a partir delas...Tem jeito?

Aos espertos de plantão... Estou precisando fazer o seguinte...atraves de quatro caixa de texto seja montado um grafico no form... Será que alguém sabe o codigo...e se não for pedir muito meio explicado porque tá mui difici... Abraço a todos

Isso mesmo... E isso aí eu localizei segundo a sua dica no componestes: Microsoft Windows Common Controls 5.0 (sp2) Cara valeu ...... Abraço

Buenass! Ai ó, estou precisando do comando e da ferramenta que faz o seguinte.... na caixa de texto ele tem um valor por exemplo 13 aí quando cliquo na seta de cima ele adiciona uma unidade e o contrario da seta de baixo... Grato pela ajuda... valeu!!!!