Ir para conteúdo
Fórum Script Brasil

lucascabs

Membros
  • Total de itens

    28
  • Registro em

  • Última visita

Sobre lucascabs

lucascabs's Achievements

0

Reputação

  1. ***** so uma duvida ... conforme você disse ... ta buscando a ultima linha preenchida! mas e se eu alterar a planilha teria como especificar por exemplo, que o saldo anterior é sempre a celula J24 e a outra a E24??
  2. lucascabs

    VBA - Buscar Campo

    obrigado ... esse tópico poderia ate ser apagado! desculpa ae! Lucas
  3. a planilha é um controle de contas ... ta td beleza ... tudo funcionando em relação a planilha! ai vem a parte da macro, ela vai funcionar assim: toda vez que voce que clicar no botao do proximo ele vai copiar a planilha atual e criar uma outra igual, porém limpando as informações que não serão necessárias! para criar uma nova você tem que estar sempre na última plan, e cada vez que criar vai pedir pra digitar um nome novo da plan nova para não haver nomes iguais! ela vai também atualizar fórmulas de acordo com o necessário! meu problema é que eu precisava que no campo "G12" (saldo anterior dos cheques) buscasse na planilha anterior o campo "j74" e o campo "g28" (saldo anterior caixa) buscasse na planilha anterior o campo "i74" manualmente é tranquilo, mais imagina que eu va criando e toda hora tem que ver o saldo anterior manualmente é embaçado, preciso que cada vez que criar a plan ele sempre busque na última planilha esse saldo (entendeu??) PS. a planilha com o nome "básico" ... é so para teste mesmo! o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0 PS II - Eu coloquei essa mesma duvida no tópico de VISUAL BASIC (desculpa não prestei atenção), estou postando por aqui, no office, porém se ainda tiver no errado por favor, alguém poderia colocar no lugar certo?!
  4. lucascabs

    VBA - Buscar Campo

    a planilha é um controle de contas ... ta td beleza ... tudo funcionando em relação a planilha! ai vem a parte da macro, ela vai funcionar assim: toda vez que voce que clicar no botao do proximo ele vai copiar a planilha atual e criar uma outra igual, porém limpando as informações que não serão necessárias! para criar uma nova você tem que estar sempre na última plan, e cada vez que criar vai pedir pra digitar um nome novo da plan nova para não haver nomes iguais! ela vai também atualizar fórmulas de acordo com o necessário! meu problema é que eu precisava que no campo "G12" (saldo anterior dos cheques) buscasse na planilha anterior o campo "j74" e o campo "g28" (saldo anterior caixa) buscasse na planilha anterior o campo "i74" manualmente é tranquilo, mais imagina que eu va criando e toda hora tem que ver o saldo anterior manualmente é embaçado, preciso que cada vez que criar a plan ele sempre busque na última planilha esse saldo (entendeu??) PS. esquece que a planilha com o nome "básico" existe... é so para teste mesmo! o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0
  5. lucascabs

    VBA - Buscar Campo

    Boa noite, fiz uma planilha em excel e criei uma macro que copia a planilha inteira anterior e cria uma nova! ela atualiza valores em branco e algumas fórmulas! já existe uma programação feita que funciona perfeitamente ... porém preciso acrescentar mais uma coisa! eu precisava que o saldo anterior da planilha atualizasse de acordo com a plan criada! por ex. Na plan 1 (já existente) no item F15 (saldo anterior) o valor seria =Master!K94 quando eu criar uma plan (EX. Plan 2) o item F15 (saldo anterior) o valor seria ='1'!F15 e assim sucessivamente! entenderam?? eu não entendo nada de vba e precisava disso para concluir uma planilha só que sem mandar ela fica dificil ... como faço para mandar?
  6. meu resultado final ficou em branco! os campos ainda não aparecem mas acho que é falha da instrução sql SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" ... deve ser não é???? o codigo final da pagina ficou assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,codigo,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <body> <table> <tr><td colspan="4">Login:<%Response.Write Session("login")%></td></tr> <tr><td colspan="4">Senha:<%Response.Write Session("senha")%></td></tr> </table> </body>
  7. do meu jeito da isso: [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 e do seu: Object required: 'DRIVER={MySQL ODBC 5' eu ate pensei que faltava esse drive na minha maquina, então coloquei no ar e persistiu o erro! o servidor é locaweb entendi cara! então na realidade eu estava usando o request.query.string para fazer esse relatorio! como não consegui e graças a ajuda do Rafael Spilki parti para esse lance do session! vou atribuir o session aos campos e posto o resultado valeu! abraço
  8. deu certo o que você passou! mas ta retornando erro de mysql! vou dar uma verificada depois... o erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 /html/cadastro_distancia2/relatorio_distancia.asp, line 32 a linha do erro é essa: " CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" " o codigo ficou exatamente assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> brigado a ajuda
  9. obrigado hein cara ... Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '1 codigo from usuarios ORDER BY codigo desc' at line 1 /html/cadastro_distancia2/relatorio_distancia.asp, line 15 tava qui pensando, acho q o select top não funciona no mysql tenho que usar isso: " SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1 "???
  10. ahh entendi, obrigado! então a variavel conexao foi declarada em outra pagina então eu declarei de novo! ficou assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao SQL = "Select top 1 campo_codigo from sua_tabela ORDER BY codigo desc" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> mas deu o mesmo erro que o anterior! Microsoft VBScript runtime error '800a01a8' Object required: '' /html/cadastro_distancia2/relatorio_distancia.asp, line 15
  11. desculpa ae cara, não to colocando a linha! segue de novo com a linha do erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /html/cadastro_distancia2/relatorio_distancia.asp, line 15 pra te ajudar, precisamente na expressão: " Set objRs = objConn.Execute(SQL) " tem que colocar assim sera : Set objRs = objConn.Execute("SQL") ??? [edit] tentei aqui fazer isso e não é porque retornou o mesmo erro! [edit]
  12. então ficou declarado: Dim sql, objRs, objconn eu fiz e deu o erro(kkk) : Microsoft VBScript runtime error '800a01a8' Object required: ''
×
×
  • Criar Novo...