Jump to content
Fórum Script Brasil

The Lau

Membros
  • Posts

    54
  • Joined

  • Last visited

About The Lau

  • Birthday 09/06/1978

Contatos

The Lau's Achievements

0

Reputation

  1. 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...
  2. Obrigado Paulo! Deu certo e agora só alegria! Um abraço! Att
  3. 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?
  4. 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é +
  5. 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...!
  6. 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
  7. 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...
  8. 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...
  9. 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.
  10. 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...
  11. 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!
  12. 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/
  13. Valeu Garoto! Mais uma vez... O negócio deu certo! Ate +!
  14. 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?
  15. 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
×
×
  • Create New...