The Lau

Boa Noite Desculpe a demora... É o seguinte este macro esta sendo utilizado num livro caixa... Tem doze meses... Então cada cor corresponde a uma classificação da nota... São 9 cores! MATERIAL DE EXPEDIENTE DIDÁTICO PEDAGÓGICO MATERIAL DE LIMPEZA MATERIAL ELETRICO E HIDRÁULICO EMERGÊNCIA MÉDICA OUTROS MANUTENÇÃO DE MÁQUINAS EQUIPAMENTOS CONSERVAÇÃO E porque REPAROS DE BENS MÓVEIS OUTROS Fiz um form para colocar as cores e a sua macro para calcular... Até agora está tudo funcionando bem... Acredito que não precise alterar...

Obrigado Paulo! Deu certo e agora só alegria! Um abraço! Att

Boa Noite! Agradeço a ajuda mais ainda tenho uma dúvida. Nesta soma o resultado esta sendo arredondado e como estou lidando com valores financeiros isso dá problemas... E aproveitando o ensejo... Como intercalar com mais um intervalo?

Boa tarde a todos... Agradeço antecipadamente a ajuda! Tenho uma coluna com vários valores no intervalo (a12:a54) 122 22 44 55 66 66 Gostaria de uma macro que somasse a cor vermelha, dentro do intervalo determinado acima. O resultado pode ser colocado em "A10". Obrigado a todos. Achei este procedimento em outro forum mas não sei fazer os ajustes... Ainda mais que gostaria que fosse automático!! Function SOMACOR(qRange As Range, ByVal qCor$) As Double Dim c As Range, xcolor&, xvalue# Select Case qCor$ Case "VERMELHO" xcolor& = 255 Case "PRETO" xcolor& = 0 Case "AZUL" xcolor& = RGB(0, 0, 255) Case "VERDE" xcolor& = RGB(0, 255, 0) Case "AMARELO" xcolor& = RGB(255, 255, 0) Case "ROSA" xcolor& = RGB(255, 0, 255) 'Case "isto é apenas um comentário, para adicionar cores aqui, coloque o nome da cor aqui e retire o ' do começo da linha" ' xcolor& = isto é apenas um comentário, para adicionar cores aqui, coloque o código RGB da cor correspondente aqui e retire o ' do começo da linha End Select For Each c In qRange If c.Font.Color = xcolor Then xvalue# = xvalue# + c.Value End If Next SOMACOR = xvalue# End Function Até +

Buenas galera! Espero que me ajudem...deve ser fácil para quem sabe! Bom exemplo: Tenho 1 arquivo com 3 abas: Plan1,Plan2,Plan3 Gostaria de um código que If plan1(estiver ativa) then msgbox "Plan1 ativa" end if If plan2 (estiver ativa) then msgbox "Plan2 ativa" end if Valeu a ajuda ae... Vou chamar a macro de qualquer uma das 3 abas...então preciso saber como reconhecer qual esta ativa...!

Na verdade eu não entendo muita coisa... de VB.NET mas estou tentando atualizar para .net... estou usando V.S.Net2003 banco de dados access gostaria de saber o qu e da para fazer algo parecido com isso ai embaixo... já dei uma olhada em apostila e vi que tem dataset, oledbconnection enfim.... como associar esse tipo de conexão a este aí embaixo? Se alguém tem dica, apostila...sei-la para ajudar ....valeu Set cnn = New Connection cnn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\Fitlau.mdb;" & "\Fitlau.mdb;Password=system;" cnn.CursorLocation = adUseClient cnn.Open End Sub criterio = "data=('" & frmAvaliacao.cboData.Text & "') " rsAvaliacao.Open "Select * From Avaliacao WHERE " & criterio, cnn, adOpenKeyset, adLockOptimistic, adCmdText If rsAvaliacao.EOF Then rsAvaliacao.AddNew

Estou usando esse negócio aí...no adodc1 ...Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AAA.FITNESSLAU.05.10.05\Programa Fitnesslau\Fitlau.mdb;Persist Security Info=False Espero que seja isso que queira saber...

Eu tenho um DataGrid que exibe os dados de uma tabela que está sendo fornecida pelo Adodc1. Mas o que acontece é o seguinte. Depois que gero o instalador com inno setup... Instalo o programa em outra maquina... os dados no DataGrid não aparecem... Alguém sabe porque isto acontece... Creio que deveria ser algo com a localização do banco se alguém puder me ajudar...

Na verdade consegui instalar o programa só funcionou no XP, mesmo colocando a ADO indicada pelo package and Deployment Wizard,e a versão 2.7 da ADO, no Win98, não funciona... Só funciona se manualmente instalar o ADO... alguém tem alguma idéia do Script do Inno Setup que resolve isto.

Cara apesa de não entender muito, estou tentando instalar um aplicativo bem simples que fiz utililizando ADO 2.7... e na verdade eu não sei como faço para instalar ele na maquina que não tenha VB... Até funcionou mais precisei instalar manualmente... Estou usando o programa inno setup para gerar o instalador... alguém pode me ajudar...se possível bem detalhado... porque não entendo quase...nada...

Buenas! Estou precisando um tutorial ou sei-la eu gostaria de gerar uma senha de acordo com o computador do usário! Exemplo: o cidadão instala o programa, aí ele tem 30 dias de uso, mas a senha que será gerada deverá ser " montada" através de uma informação do seu computador. Um numero de HD! ... Se der para usar o active lock melhor ainda... Abraço!

Ae galera! O negócio é o seguinte... Como fazer o VisData do VB 6 reconhecer o BD do access 2000? já fucei na inter, no site da microsoft e não entendi o que eles mandam fazer... alguém pode me ajudar? Se alguém estiver com mesmo problema e resolveu...posta aí!!! O site com os comentarios da microsoft esta aí... Valeu!!! http://support.microsoft.com/kb/q252438/

Valeu Garoto! Mais uma vez... O negócio deu certo! Ate +!

Dai galera! O negócio é o seguinte...atualizei meu BD para 2000 e estou com problemas para exibir dados usando DBGrid...alguém sabe o que pode ser?

já agradeço de antemão a ajuda do Kuroi! Um abraço.... Bom agradeço a ajuda e agora quero pedir mais um socorro... O que acontece é o seguinte usando o código abaixo eu consigo inserir os campos apenas de tabela Perimetria "{Perimetria.NumeroAvaliacao}, e quando eu insiro campos de outra tabela no mesmo relatório não funciona... O que eu gostaria de saber é como montar um relatório com campos de duas ou mais tabelas “linkadas” por um campo: NumeroAvaliacao¿ Dim codigo As String codigo = "{Perimetria.NumeroAvaliacao}= '" & txtNumeroAvaliacao.Text & "'" Me.MousePointer = 11 CrystalReport1.ReportFileName = App.Path + "\impressao.RPT" CrystalReport1.DataFiles(0) = App.Path + "\Fitlau.mdb" CrystalReport1.SelectionFormula = codigo CrystalReport1.CopiesToPrinter = 1 CrystalReport1.Destination = crptToWindow CrystalReport1.Action = 1 Me.MousePointer = 1 End Sub

Dae Galera! O negocio é o seguinte! Estou usando está formula para chamar um relatório no Crystal que acompanha o VB6! Private Sub cmdImprimir_Click() criterio = "(Cadastro.CaCodigo)= " & Text1.Text Me.MousePointer = 11 CrystalReport1.ReportFileName = App.Path + "\Impressao.RPT" CrystalReport1.DataFiles(0) = App.Path + "\Fitlau.mdb" CrystalReport1.SelectionFormula = criterio CrystalReport1.CopiesToPrinter = 1 CrystalReport1.Destination = crptToWindow CrystalReport1.Action = 1 Me.MousePointer = 1 End Sub A variável Text1.Text é a seguinte: 2 - 23/12/2005 - 17:40:05 Tenho BD com a seguinte arranjo: Código Nome Data Peso ... 41 José 2 - 23/12/2005 - 17:40:05 87 Usando a fórmula acima ele dá erro na fórmula alguém saberia porque¿ Quando a variável é um numero comum...ele da certo mas a variável que eu preciso usar não da.... Agradeço a ajuda.

Ai galera estou tendo dificuldade de intalar o componente para conseguir chamar atraves do VB o relatorio do Crystal XI alguém poderia me dar uma força? Aproveitando desejo a todos Um Feliz Natal. HOhoHohO.

Como fazer para mandar para o crystal report 4.6 os dados do banco de dados, selecionando para a abertura o codigo numa caixa de texto... Exemplo: tem uma caixa de texto com o número " 12" então mando imprimir e os dados do codigo 12 serão enviado! Da para fazer tem como? Me ajudem por favor!!!!!!!!

alguém sabe se o crystal 10 é melhor ou não que o 11? Para quem esta iniciando...

Bom... Tenho um cadastro com nome,idade,sexo etc...esse é o form 1 Tenho um form com avaliações...Perimetria...Indice de massa corporal...etc....esse é o frm 2.... O problema esta no seguinte... Quando eu faço o cadastro no form os dados vão para a tabelacadastro.... Mas quando eu chamo o frmAvaliação... eu coloquei um combo que adiciona os dados da tabela cadastro no frm avaliação...em um list certo? Como faço a consulta pelo nome quando a pessoa altera qualquer palavra no nome ele não localiza... é muito complicado pois....Como são duas tabelas: uma fica com o cadastro.... a outra fica com as avaliações... E cada sujeito pode ter diversas avaliações.... eu pensei em localizar essas avaliações por um campo data e hora... mas as vezes no criterio de abertura ele da problemas....? alguém sabe um jeito de abrir um recordset com dois ou tres critérios.... como data,hora e código?

Ai...galera! Bele... Estou com um problemas em duas tabelas... pois as duas tem o campo nome eu gostaria de quando fizer alteração no nome da primeira altere a outra... Tem como?

Deu certo...na verdade eu criei um procedimento publico... e chamei-o pelo form 2.... Aí resolvido...

Bom é assim... eu uso ADO para conectar... no frmAnamnesse eu tenho perguntas... e cada perguntas tem um botão option... quando click no option ele chama um frmRespostas.show...esse formRespostas vai ser padrão para todas as perguntas.... o problema é que no form resposta eu tenho o botão salvar... mas como eu fiz a conexão no formAnamnesse ele não localiza... o bd.... Existe algum jeito de fazer isso funcionar?..

alguém sabe como criptografar o usuário e senha para mandar para o bd?

Beleza, resolveu o problema...