Ir para conteúdo
Fórum Script Brasil

LGcs

Membros
  • Total de itens

    32
  • Registro em

  • Última visita

Tudo que LGcs postou

  1. LGcs

    Inserir grafico em form (erro)

    isso não tem importancia, o q preciso saber é o resto da mensagem do erro e em qual linha do codigo ele acontece. Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objeto Ele não me da o numero da linha q esta dando o erro, e nem deixa em destaque. Agradeço a sua atençao.
  2. LGcs

    Inserir grafico em form (erro)

    Aparece uma msg dizendo: erro de tempo de execução. to mechen do com o VB dentro do excel
  3. Pessoal tudo bom? to querendo inserir aqui um grafico de uma determinada planilha em um form usando o objeto Image. Procurei muito já o q pode ser o erro mas eu não encontro, estranho é que na minha casa funciona aqui no trabalho não. aparece o seguinte erro Erro de tempo de execução. To mechendo com o excel.. alguém pode me ajudar? ai vai o meu codigo valeu Private Sub CommandButton1_Click() 'Transfere para a variável Gráfico o 1º gráfico da planilha 'Exemplo" Set gráfico = Sheets("Consolidação").ChartObjects(1).Chart 'Cria o caminho e nome para salvamento do arquivo GIF ArquivoGIF = ThisWorkbook.Path & "\temp.gif" 'Salva o gráfico como arquivo GIF gráfico.Export Filename:=Arquivogif, FilterName:="GIF" 'Carrega o gráfico salvo para o Controle Image1 do Userform Image1.Picture = LoadPicture(Arquivogif) End Sub
  4. LGcs

    Listar e Copiar

    Eu tentei do jeito q você me disse so q tava dando um erro q não consegui descobrir o que era, ai continuei tentando a minha lógica e deu certinho.. Obrigado pela resposta, se você quizer me dizer o possivel erro agradeço.. Vai ai o meu codigo pra quem se interessar. Plan1.Activate Workbooks("nome do arquivo").Worksheets("planilha").Range("A6:K30").Copy _ Destination:=Worksheets("planilha").Range("A6") lastRowciclo = Cells(Cells.Rows.Count, "A").End(xlUp).Row For x = 6 To lastRowciclo Worksheets("planilha").Range("L6").Copy _ Destination:=Worksheets("planilha").Cells(x, 12) Next
  5. LGcs

    Listar e Copiar

    ' Pessoal tudo bom? Estou iniciando com o VBA e não sei nada, não encontrei aqui no forum 'a minha duvida tb, se alguém puder me ajudar vou ficar muito grato. ' seguinte, eu tenho uma tabela e preciso listar a ultima linha q não estava vazia, 'isso eu já encontrei. agora preciso copiar as linhas de uma determinada coluna, ate que ' chegue na ultima linha vazia q encontrei. vo exemplificar: 'A B C D E F G '1 2 3 5 5 5 '1 2 3 '1 2 3 - esta é a ultima linha 'agora preciso pegar da coluna E ate G e copiar ate que chegue na ultima linha pra ficar assim 'A B C D E F G '1 2 3 5 5 5 '1 2 3 5 5 5 '1 2 3 5 5 5 'A unica coisa q eu fiz ate agora é isso Dim lastRow As Long Dim x As Integer lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row For x = 1 To lastRow Worksheets("plan1").Range("E1:G1").Copy _ Range("E:G").PasteSpecial Next End Sub Mas esta dando errado, alguém pode me ajudar?
  6. LGcs

    Listar tabela e agrupar

    Boa Tarde, tenho uma tabela access e já listo todos os dados dessa tabelam mas gostara de agrupar os respctivos dados de uma determinada matricula. exemplo: Tabela (ACCESS): NOME HORAS Nome1 8 Nome2 6 Nome3 2 Nome1 4 Nome2 6 Nome4 8 Nome1 7 Gostaria que em uma tabela criada em Html aparecese assim: Nome1 HORAS DATA 8 21/09 4 26/09 7 24/09 Nome2 HORA DATA 6 01/08 6 25/09 Nome3: HORA DATA 2 21/09 Nome4: HORA DATA 8 30/09 ___________________________________________- Forma como eu listo a tabela em asp: <!--#include file = "connapropriacao.asp"--> <% matricula =request.form("matricula") call abre_conexao sql= "SELECT * FROM frequencia order by data " set rs = conexao.execute(sql) %> <table border=0 width="100%"> <tr> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>DATA</b></font></td> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>MATR</b></font></td> <td width="7%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>MOV</font></b></td> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>HORA</font></b></td> <td width="5%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>SERVICO</font></b></td> <td width="5%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>DESTINO</font></b></td> <td width="10%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>CONTRATO</font></b></td> <td width="12%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>OS</font></b></td> <td width="30%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>AUTORIZACAO</font></b></td> <td width="7%" bgcolor = #CFCFCF align= "center"><font face="Verdana" size="2" color=#000066> <b><input type="submit" name="Submit" value="Confirm"></font></b></td> </tr> </table> <%While Not RS.EOF %> <table border=0 width="100%"> <tr onMouseOver="this.bgColor='#B0C4DE';" onMouseOut="this.bgColor='#E8E8E8';" bgcolor = #E8E8E8> <td width="8%"><font face="Verdana" size="2" color=#000066 > <%=rs("DATA")%></b></font></td> <td width="8%"><font face="Verdana" size="2" color=#000066 > <%=rs("MATR")%></b></font></td> <td width="7%" ><font face="Verdana" size="2" color=#000066 > <%=rs("MOV")%></b></font></td> <td width="8%" ><font face="Verdana" size="2" color=#000066 > <%=rs("HORA")%></b></font></td> <td width="5%" ><font face="Verdana" size="2" color=#000066 > <%=rs("SERVICO")%></b></font></td> <td width="5%" ><font face="Verdana" size="2" color=#000066 > <%=rs("DESTINO")%></b></font></td> <td width="10%" ><font face="Verdana" size="2" color=#000066 > <%=rs("CONTRATO")%></b></font></td> <td width="12%" ><font face="Verdana" size="2" color=#000066 > <%=rs("OS")%></b></font></td> <td width="30%" ><font face="Verdana" size="2" color=#000066 > <%=rs("AUTORIZACAO")%></b></font></td> <td width="7%" align= "center"><font face="Verdana" size="2" color=#000066 > <input type="checkbox" name="checkbox" value="<%=RS(0)%>"></b></font></td> </tr> <% rs.movenext Wend %> </table> Espero que tenham entedido. Aguardo respostas, Obrigado.
  7. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    DEU SUPER CERTO CARA, MUITO OBRIGADO.. FIZ AS ADAPTAÇOES AQUI E já TA RODANDO beleza.. Depois eu vo querer criar mais um combobox, no caso serão dois filtros, mas mais pra frente eu procuro saber como q faz. valeu
  8. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Cara vo testar aqui e do resposta , se não for hoje segunda eu falo.. brigadao
  9. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    então vai funcinar assim Combo 1------ Categorias Combo 2 ----- Mostra todos os nomes referentes aquela categoria selecionada no Combo 1. é a mesma coisa do combo de ESTADO E CIDADE. você seleciona o estado e mostra as cidades daquele estado.. Programando em ASP.
  10. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    <select name="disciplina" onChange="Mudar();"> <option>Disciplina</option> <option></option> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select> <% DISCIPLINA=request.form("DISCIPLINA") call abre_conexao sql= "SELECT * FROM matricula where disciplina='" & disciplina & "' order by nome" set rs_max = conexao.execute(sql) %> <select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Eu to tentando desse jeito ai, por explo quando eu selecionar um diciplina queria q o select * from matricula WHERE .... recebece o nome do campo q selecionei, mas q não precise de atualizar a pagina toda.. Deu pra entender +-? Como eu faço isso?
  11. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Pessoal desculpa a minha ignorancia, mas eu não to conseguindo fazer, tentei fazer so q a unica coisa q ele faz é pegar a mesma coisa q esta escrito no primeiro comobo :( Me de uma luz!
  12. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Ou brigadão pela atenção.. Eu entendi a ideia, mas se não for pedir muito sera q teria algum codigo pronto, ou alguma ideia +- de como eu possa fazer isso de mandar o id. Eu pensei tb de colocar dentro do <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> uma condiçao do tipo SELECT * FROM apropriacao where.... Não sei se tem como e muito menos se é uma opçao valeu
  13. Olaa.. Seguinte gente, eu to procurando aqui no forum mas não to axando o que eu quero, as vezes pode ate ter repetido mas gostaria q vocês me ajudasem nessa ai.. Seguinte, eu tenho uma tabela com os campos AREA - NOME. beleza.. Eu quero criar dois combobox o primeiro eu vo selecionar a area, e o segundo vai me listar todos os nomes que fazem parte daquela area, parece bem simples né, mas não to sabendo, eu vo colocar aqui o q eu já tenho do meu codigo... CODE <table border="0" width="55%" align=center><br> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Disciplina:</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="tipo" onchange="Mudar();"> <option value=""> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select>&nbsp;&nbsp; <tr> <td bgcolor=#ffffff colspan="2"><font color="ffffff">&nbsp;</td></font> </tr> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Pesquisa de Registro por número de Matricula</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Tipo eu já consigo puxar os dados da tabela, agora eu não sei fazer combo dependente. valeu pela atençao de todos OBS: EU PROCUREI NO FORUM E ENCONTREI alguém COM A MESMA DUVIDA OU PARECIDA, MAS DEREM A SOLUÇÃO EM AJAX, EU GOSTARIA DA SOLUÇÃO EM ASP MESMO.
  14. Olaa.. Seguinte gente, eu to procurando aqui no forum mas não to axando o que eu quero, as vezes pode ate ter repetido mas gostaria q vocês me ajudasem nessa ai.. Seguinte, eu tenho uma tabela com os campos AREA - NOME. beleza.. Eu quero criar dois combobox o primeiro eu vo selecionar a area, e o segundo vai me listar todos os nomes que fazem parte daquela area, parece bem simples né, mas não to sabendo, eu vo colocar aqui o q eu já tenho do meu codigo... <table border="0" width="55%" align=center><br> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Disciplina:</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="tipo" onchange="Mudar();"> <option value=""> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select>&nbsp;&nbsp; <tr> <td bgcolor=#ffffff colspan="2"><font color="ffffff">&nbsp;</td></font> </tr> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Pesquisa de Registro por número de Matricula</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Tipo eu já consigo puxar os dados da tabela, agora eu não sei fazer combo dependente. valeu pela atençao de todos
  15. LGcs

    CURSOR

    A é isos mesmo, quando agente aperta tab mesmo, eu não soube explicar, desculpa.. Mas então é so substituir la naquilo q você falo por onfocus né beleza valeu
  16. LGcs

    CURSOR

    A ta, saquei como q funciona, e pra por exemlplo, eu estou la preechendo o formulario e na hora q eu for digitar no proximo campo a imagem apareça. Ai já não é o cursor do mouse né, é alguma outra função. Ai nesse caso eu uso como? valeu pela atençao ai cara
  17. Bom eu tenho uma pagina em html, com alguns campos par digitar valores.. Eu gostaria que quando o cursor passar em cima de um certo campo uma imagem fosse aberta ao lado do campo.. parece ser muito facil de fazer so q não sei, eu já sei montar a condição if, so q não sei como fazer para quando o cursor passar em cima abrir e quando ele sair fechar a image. Queria fazer isso em javascript.. Não sei se fui muito claro mas se alguém puder me ajudar eu agradeço. valeu
  18. LGcs

    AUTONUMERAÇÃO PAR E IMPAR

    É isso mesmo eu quero assim Tabela 1 : 1 3 5 7 9 Tabela 2: 2 4 6 8 10 Pessoal muito obrigado pela força ai, eu vo tentar desse jeito que foi proposto, e dou resposta aqui tb.. Eu só axei tinha alguma opção no access que permitia fazer isso. porque na verdade eu vo explicar q q ta acontecendo é o seguinte... Eu tenho uma Eu tenho duas tabelas uma de dados e outra dados confirmados, elas são identicas, ai atraves de uma intranet q eu criei em asp e html eu pego tudo da tabela dados e passo para dados confirmados, ai acontece q se o valores de auto num das duas tabelas forem iguais, os dados não são copíados. E eu preciso q as duas tabelas gerem numeros diferents para comparação depois, é um sistema muito grande. Ai no caso pra copiar de uma tabela pra outra eu uso o INSET INTO TABELA1 SELECT * FROM TABELA 2.. É +- isso, não sei se deu pra entender, mas eu vo testar aqui e comento aqui dinovo. MUITO OBRIGADO AI PELA AJUDA
  19. Bom gostaria de saber se no access é possivel de eu criar um campo autonumeraçao que tenha somente numeros pares ou somenete numeros impares.. é uma pergunta bem simples, mas q vai me ajudar de mais.. Se tiver como e alguém souber, por favor me ajudem.. abraços
  20. Problema é que eu não sei usar AJAX, e o botao faz parte da animação sim, todos os botoes estão em flash, pensei de fazer os botoes em css, só que do jeito q eu quero não sei fazer em css. Se mover para flash alguém for me ajudar, pode mover valeu
  21. Seguinte eu fiz uma intranet aqui pra empresa em asp com o banco de dados access. Fiz conexões e buscas da seguinte forma: <% matricula =request.form("matricula") Set conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("apropriacao.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.Open "SELECT * FROM apropriacao where matricula= '" & matricula & "' order by data ", conexao %> Funciona perfeitamente isso, sem nenhum problema. Agora o meu problema q eu to o dia inteiro tentando achar é o seguinte, eu preciso fazer isso da seguinte forma: <!--#include file = "connapropriacao.asp"--> <% matricula =session("matricula") call abre_conexao sql= "SELECT * FROM apropriacao where matricula= '" & matricula & "' order by data " set rs = conexao.execute(sql) %> Não da erro nenhum, mas não aparece nenhum registro, agora, quando eu tiro o where matricula= '" & matricula & "' da certo, já tentei buscar a matricula com session, request.form, request.query mas nada da certo, não aparece dado nenhum, eu não to entendendo mais nada. Pelo amor de Deus alguém podia me ajudar. valeu
  22. PEssoal seguinte, to fazendo um pagina usando DIV e o menu eu fiz em flash, isso ai beleza. já consigo direcionar o botao do meu para outra pagina, mas o que eu queria fazer é quando clicar no menu, não atualizar a pagina toda, somente o DIV principal, tipo como fazia com o IFRAME (q atualmente não se usa mais). Queria saber se tem como fazer isso com o DIV. não sei se fui muito claro mas qualquer coisa é so perguntar q eu pergunto dinovo! valeu
  23. LGcs

    Dados de um mes

    Deu super certo, nossa salvo o dia, MUITO OBRIGADO MESMO
  24. LGcs

    Dados de um mes

    aa só, vo dar uma testada aqui.. e volto aqui pra dar resposta! Brigadão cara
  25. LGcs

    Dados de um mes

    Então cara, na minha intranet eu já faço pesquisa entre datas com o BETWEEN, ai o usuario vai la digita de qual data ate qual data que ele quer e beleza lista todos os dados.. Mas o que eu quero é que o usuario não vai digitar nada, o banco de dados já vai listar os dados cadastrados so daquele mes, ai se mudar o mes, ele muda a listagem dos dados entendeu.. Tipo eu não sei se é a mesma coisa, desculpa se for bobera minha, mas é porque eu não to entendendo mesmo fraga..
×
×
  • Criar Novo...