Ir ao conteúdo

Kelvim

Membro Pleno
  • Posts

    93
  • Cadastrado em

  • Última visita

Tudo que Kelvim postou

  1. Boa tarde Meu nome é Kelvim Barbosa Gomes. Eu estou querendo saber se existe alguma forma de fazer uma pagina em HTML, com combobox para Estado, outro combobox para Cidade. De acordo com o Estado, ele puxa as cidades. Consegui na internet um exemplo porém a pagina do modelo é em PHP. Eu preciso que a pagina seja em HTML, e efetue a consulta no banco de dados. Atenciosamente
  2. Bom dia Deu certo. Obrigado. Att
  3. Boa tarde Gostaria de saber como eu posso controlar a opção de visibilidade do Label do formulário através de um loop. Exemplo for i = 1 to 10 lable "VARIAVEL" .visible = true next
  4. @DiF Boa noite Imagine que você tenha um aparelho de DVD. No qual ele tem o cabo composto que sai sinal de áudio e vídeo. Este áudio e vídeo eu queria que fosse incorporado a uma página X. Ao invés de ir direto para a TV o cabo iria para o PC onde de lá seria enviado simultaneamente para o site. Não pode ser um vídeo gravado tem que ser o vídeo do aparelho que seria enviado automaticamente para o site.
  5. Boa tarde Eu sou novo na programação de HTML, geralmente eu faço alguns trabalhos com programação de HTML usando Dreamweaver. Eu gostaria de saber como posso fazer uma pagina simples em HTML na qual passe nela um vídeo proveniente da TV. Eu tenho a pretensão de fazer uma pagina que rode local na empresa e passe o vídeo proveniente da TV e ao lado como irei dividir em frame comunicados internos. Atenciosamente
  6. Boa noite Eu consegui resolver o problema. Eu fiz um código para receber através de vetor em uma variável tipo public Depois apenas utilizei na hora de enviar o e-mail. Segue abaixo. Public ender_email(1 To 50) As Variant Public ender_email_cop(1 To 50) As Variant Public PDV(1 To 50) As Variant Sub enderecos() i = 1 Do While Sheets("PDV").Cells(i, 2).Value <> Empty PDV(i) = Sheets("PDV").Cells(i, 2) ender_email(i) = Sheets("PDV").Cells(i, 3) ender_email_cop(i) = Sheets("PDV").Cells(i, 5) i = i + 1 Loop End Sub
  7. Boa tarde Eu tenho um código que envia e-mail através de VBA EXCEL pelo Outlook. porém quando chega em um numero X de vezes que ele está repetindo ele apresenta erro, abaixo segue o print. Não existe nenhuma informação errada. Se eu envio quantidades menores ele envia. Quando envio mais quantidade ele apresenta erro. Gostaria de saber o que poderia ser. Sub enviar_planilha_corpo_email() Dim QTD As Variant Dim pdv(1 To 50) As Variant Dim resultado As VbMsgBoxResult For i = 1 To 50 pdv(i) = Sheets("PDV").Cells(i, 1) Next resultado = MsgBox("Enviar email?", vbYesNo, "Enviar email") If resultado = vbYes Then QTD = InputBox("Informe a quantida de Fornecedores") For i = 1 To QTD Application.ScreenUpdating = False Sheets("MENSAG").Select Range("A1", "O70").Select Selection.Copy ActiveWorkbook.EnvelopeVisible = True 'On Error Resume Next With ActiveSheet.MailEnvelope .Introduction = "Caro" & " " & Sheets("PDV").Cells(i, 1) .Item.To = Sheets("PDV").Cells(i, 2) '.Item.cc = "" .Item.Subject = "COMUNICADO" & " " & Date .Item.Send End With Application.ScreenUpdating = True Next Else End If End Sub
  8. Boa tarde Eu estou precisando de um método que preencha um formulario, os campos de Estado e depois de acordo com o Estado que seja listado as cidades daquele estado para que a pessoa escolhe. Poderia me indicar um post para ler a repeito de java script ou até mesmo me enviar um arquivo com o código. <form onSubmit="return checa_formulario(this)" class="combos validar" action="mail.php" method="post" enctype="multipart/form-data" name="email"> <ul class="formulario"> <li> <label>Nome:</label> <input name="Nome" id="Nome" required title="Nome" type="text"> </li> <li> <label>Email:</label> <input name="email_from" type="email" id="email_from" required title="Email"> </li> <li class="li-telefone"> <label>Telefone:</label> <input class="telefone mask-Telefone" name="Telefone" id="Telefone" type="text" required title="Telefone"> </li> <li class="li-celular"> <label class="label-celular">Celular:</label> <input class="celular mask-Telefone" name="Celular" id="Celular" type="text" required title="Celular"> </li> <li> <label>Endereço:</label> <input name="Endereco" id="Endereco" type="text" required title="Endereco"> </li> <li class="li-complemento"> <label>Complemento:</label> <input class="complemento" name="Complemento" type="text" id="Complemento"> </li> <li class="li-cep"> <label class="label-cep">Cep:</label> <input class="cep mask-CEP" name="Cep" type="text" id="Cep" required title="Cep"> </li> <li> <label>Bairro:</label> <input name="Bairro" type="text" id="Bairro" required title="Bairro"> </li> <li class="li-estado"> <label>Estado:</label> <select class="estado" id="Estado" name="Estado" required="required" title="Estado" onChange="retornaMunicipios(this.value);"> <option value="">UF</option> <option value="12">AC</option> <option value="27">AL</option> <option value="16">AP</option> <option value="13">AM</option> <option value="29">BA</option> <option value="23">CE</option> <option value="53">DF</option> <option value="32">ES</option> <option value="52">GO</option> <option value="21">MA</option> <option value="51">MT</option> <option value="50">MS</option> <option value="31">MG</option> <option value="15">PA</option> <option value="25">PB</option> <option value="41">PR</option> <option value="26">PE</option> <option value="22">PI</option> <option value="33">RJ</option> <option value="24">RN</option> <option value="43">RS</option> <option value="11">RO</option> <option value="14">RR</option> <option value="42">SC</option> <option value="35">SP</option> <option value="28">SE</option> <option value="17">TO</option> </select> </li> <li class="li-cidade"> <label class="label-cidade">Cidade:</label> <select class="cidade" id="Cidade" name="Cidade" required="required" title="Cidade"> <option>Selecione a cidade</option> </select> </li> <li> <label>Função:</label> <input name="Funcao" type="text" id="Funcao" required title="Função"> </li> <li> <label>Resumo das Habilidades:</label> <textarea rows="4" id="Habilidades" name="Habilidades" required title="Habilidades"></textarea> </li> <li> <label>Currículo:</label> <div id="div-input-file"> <input name="arquivo" type="file" id="arquivo" onChange="document.getElementById('foto-falso').value = this.value;" tabindex="7" required title="Currículo"> <div id="div-input-falso"> <input name="foto-falso" type="text" id="foto-falso" readonly> </div> </div> </li> <li> <input type="submit" value="ENVIAR"> </li> </ul> </form>
  9. Boa noite Eu tenho um código que preenche um select de um formulário conforme a pessoa escolhe o estado. porém eu não sei mexer muito com JQUERY, gostaria que alguém me ajudasse a alterar os campos para que ele funcionasse. Eu já criei um banco de dados no servidor WEB PHP com a tabela de Estados e a tabela de Cidades. Nome do banco de dados: tecno764_cidades Nome da tabela de estados: estados Nome da tabela de cidades: cidades Segue abaixo o código que tenho. function retornaMunicipios(estado){ $.getJSON("ajax_municipios.php", { estado:estado}, function (resposta) { if (resposta === null) { var options = '<option value="" selected="selected" data-skip="1">Selecione a cidade</option>'; $("#Cidade").html(options); } else { var options = '<option value="" selected="selected" data-skip="1">Selecione a cidade</option>'; $.each(resposta, function (key, val) { options += '<option value="' + key + '">' + val + '</option>'; }); $("#Cidade").html(options); } }); } Abaixo o HTML do formulario. <li class="li-estado"> <label>Estado:</label> <select class="estado" id="Estado" name="Estado" required="required" title="Estado" onChange="retornaMunicipios(this.value);"> <option value="">UF</option> <option value="12">AC</option> <option value="27">AL</option> <option value="16">AP</option> <option value="13">AM</option> <option value="29">BA</option> <option value="23">CE</option> <option value="53">DF</option> <option value="32">ES</option> <option value="52">GO</option> <option value="21">MA</option> <option value="51">MT</option> <option value="50">MS</option> <option value="31">MG</option> <option value="15">PA</option> <option value="25">PB</option> <option value="41">PR</option> <option value="26">PE</option> <option value="22">PI</option> <option value="33">RJ</option> <option value="24">RN</option> <option value="43">RS</option> <option value="11">RO</option> <option value="14">RR</option> <option value="42">SC</option> <option value="35">SP</option> <option value="28">SE</option> <option value="17">TO</option> </select> </li> <li class="li-cidade"> <label class="label-cidade">Cidade:</label> <select class="cidade" id="Cidade" name="Cidade" required="required" title="Cidade"> <option>Selecione a cidade</option> </select> </li> Att Kelvim Barbosa Gomes
  10. Ola boa noite Alguem me ajude plz. Eu queria selecionar uma opção em uma lista suspensa. Estou quebrando a cabeça e não consigo fazer dar certo. Tento usar o codigo ie.Document.getElementByID("ddlFilterType_child").Focus ie.Document.getElementByID("ddlFilterType_child").selectedIndex = 1 ie.Document.getElementByID("ddlFilterType_child").FireEvent ("onchange") porém o mesmo da o erro de ( A variável do objeto ou a variavel do bloco With não foi defiida). Segue abaixo o HTML e o codigo do vba. Sub x() Dim ie As InternetExplorer Dim C Dim ULogin As Boolean, ieForm Dim MyPass As String, MyLogin As String redo: MyLogin = Application.InputBox("Por Favor entre com o Login", "xxxxxxxx", Default:="login", Type:=2) MyPass = Application.InputBox("Por favor entre com a senha", "xxxxxxxxx", Default:="Password", Type:=2) If MyLogin = "" Or MyPass = "" Then GoTo redo Set ie = New InternetExplorer ie.Visible = True ie.Navigate "https://xxxxx.com.br/" Do Until ie.ReadyState = READYSTATE_COMPLETE Loop ie.Document.all("txtUsuario").innerText = MyLogin ie.Document.all("txtSenha").innerText = MyPass 'obtém o forma a qual o controle de login pertence para submetê-lo ie.Document.all("txtUsuario").form.all("btnEntrar").Click If ULogin = False Then MsgBox "Usuário logado" ie.Navigate "https://xxxxxxxxxx.com.br" ie.Document.getElementByID("ddlFilterType_child").Focus ie.Document.getElementByID("ddlFilterType_child").selectedIndex = 1 ie.Document.getElementByID("ddlFilterType_child").FireEvent ("onchange") Set ie = Nothing End Sub Sub Referencia() Dim ObRef On Error Resume Next ' Adiciona Controles da Net ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1 End Sub Segue agora o HTML (uma parte dele) <DIV id=ddlFilterType_msddHolder style="OVERFLOW: hidden; HEIGHT: 0px; POSITION: absolute"> <SELECT name=FilterType id=ddlFilterType style="WIDTH: 125px" onchange=javascript:xxxxxxx.currentPage.search.ddlFilterTypeChange(this.value);> <OPTION value="" selected>Buscar por</OPTION> <OPTION value=numOs>Número da OS</OPTION> <OPTION value=cdCli>Conta</OPTION> <OPTION value=docum>CPF / CNPJ do Cliente</OPTION> <OPTION value=scard>SmartCard</OPTION> <OPTION value=ird>IRD</OPTION> <OPTION value=tpSer>Tipos de Serviço</OPTION> <OPTION value=numProposta>Proposta</OPTION></SELECT></DIV> <DIV class=dd id=ddlFilterType_msdd style="WIDTH: 123px"> <DIV class=ddTitle id=ddlFilterType_title jQuery15202114800812512243="239"> <SPAN class=arrow id=ddlFilterType_arrow> </SPAN> <SPAN class=textTitle id=ddlFilterType_titletext>Buscar por</SPAN></DIV> <DIV class=ddChild id=ddlFilterType_child style="HEIGHT: 155px; WIDTH: 121px" jQuery15202114800812512243="248"> <A class="selected enabled" id=ddlFilterType_msa_0 href="javascript:void(0);" jQuery15202114800812512243="240">Buscar por</A> <A class=enabled id=ddlFilterType_msa_1 href="javascript:void(0);" jQuery15202114800812512243="241">Número da OS</A> <A class=enabled id=ddlFilterType_msa_2 href="javascript:void(0);" jQuery15202114800812512243="242">Conta</A> <A class=enabled id=ddlFilterType_msa_3 href="javascript:void(0);" jQuery15202114800812512243="243">CPF / CNPJ do Cliente</A> <A class=enabled id=ddlFilterType_msa_4 href="javascript:void(0);" jQuery15202114800812512243="244">SmartCard</A> <A class=enabled id=ddlFilterType_msa_5 href="javascript:void(0);" jQuery15202114800812512243="245">IRD</A> <A class=enabled id=ddlFilterType_msa_6 href="javascript:void(0);" jQuery15202114800812512243="246">Tipos de Serviço</A> <A class=enabled id=ddlFilterType_msa_7 href="javascript:void(0);" jQuery15202114800812512243="247">Proposta</A> </DIV></DIV> </TD>
  11. Boa tarde Gostaria de saber como posso alterar um campo de pesquisa que tem em um site. Este site é um site da empresa. Ele está dentro de varias DIV, e é um form Segue abaixo o código do form. Gostaria de que o codigo em VBA EXCEL alterasse o campo e escolhesse a opção IRD <OPTION value=ird selected>IRD</OPTION> Segue abaixo o código, <DIV id=ddlFilterType_msddHolder style="OVERFLOW: hidden; HEIGHT: 0px; POSITION: absolute"> <SELECT name=FilterType id=ddlFilterType style="WIDTH: 125px" onchange=javascript:xxxxxxxxxxxxxx.currentPage.search.ddlFilterTypeChange(this.value);> <OPTION value="">Buscar por</OPTION> <OPTION value=numOs>Número da OS</OPTION> <OPTION value=cdCli>Conta</OPTION> <OPTION value=docum>CPF / CNPJ do Cliente</OPTION> <OPTION value=scard>SmartCard</OPTION> <OPTION value=ird selected>IRD</OPTION> <OPTION value=numProposta>Proposta</OPTION> <OPTION value=tpSer>Tipos de Serviço</OPTION> </SELECT> </DIV>
  12. Caro Wendell Menezes A sua ajuda foi muito importante. Gostaria de pedir mais um auxilio seu. Eu estava pensando em criar um botão para alterar o valor no banco de dados. o botão ALTERAR teria a seguinte função * Ele pesquisaria pelo código XXXX cadastrado no banco dados * Depois ele importaria o cadastro para os campos xxxx do formulário * Depois que o usuário alterasse os valores ele clicaria no botão OK * E estes dados substituiriam os valores originais no banco de dados Me da uma força nesta questão.
  13. Opa funcionou corretamente. Obrigado. Att
  14. Bom dia Segue em anexo a plan e banco de dados LUIZ02.rar
  15. Ola boa tarde Eu usei a formula para filtrar por exemplo o campo ASSOCIADO entretanto está retornando o erro **************************************************** Parâmetros insuficientes. Eram esperados 1 ****************************************************
  16. Obrigado Att Kelvim B Gomes
  17. Foi mal nem vi que foi com senha 35114041
  18. LUIZ02.rar Segue
  19. Ola esta dando O objeto é obrigatório. O que será que estou errando. Att
  20. Boa tarde Eu estou tentando importar alguns valores do Access pelo vba para o EXCEL. Entretanto esta dando erro. Gostaria de que se alguém soube-se como fazer postar. Gostaria de importar apenas alguns valores que serão filtrados por exemplo. Banco de dados Tabela: ATENDIMENTO [Filtrar pela dada informada em um campo do formulário no Excel ex: Textbox1] e pegar toda as linhas que tiverem aquela data XX/XX/XXXX, e importar para a planilha PESQUISA celula B2.
  21. Bom dia Eu estou utilizando um código que loga em um site pelo Internet Explorer. porém gostaria de saber como posso através do próprio vba excel, ativar o menu. Sub LOGAR()Dim usuario, senha As Variantusuario = Range("E1") senha = Range("E2")Dim IE As ObjectSet IE = CreateObject("InternetExplorer.application")With IE .Visible = True .Navigate ("xxxxxxxxxxxxxx")While .Busy Or .ReadyState <> 4:DoEvents:Wend.Document.getElementById("txtUsuario").Focus.Document.getElementById("txtUsuario").Value = usuario.Document.getElementById("txtSenha").Focus.Document.getElementById("txtSenha").Value = senha.Document.all("btnEntrar").ClickWhile .Busy Or .ReadyState <> 4:DoEvents:WendDebug.Print .LocationURLEnd WithEnd Sub --------------------------------------------------------------------------- segue em anexo um print da tela do site, e o código HTML do site. Acredito que o Menu esteja em flash. Gostaria de acionar a opção OS >> Torre de Controle --------------------------------------------------------------------------- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head> <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE8" /> <title>iCare Parceiro</title> <link rel="stylesheet" type="text/css" href="../Styles/dropDown.css"/> <link rel="stylesheet" type="text/css" href="../Styles/novaTorre.css?635768352000000000"/> <link rel="stylesheet" type="text/css" href="../Styles/superfish.css"/> <link rel="stylesheet" type="text/css" href="../Styles/struct.css" /> <link rel="stylesheet" type="text/css" href="../Styles/mnuSupDropdown.css" /> <link rel="stylesheet" type="text/css" href="../Styles/buttons.css" /> <link rel="stylesheet" type="text/css" href="../Styles/status.css" /> <link rel="stylesheet" type="text/css" href="../Styles/ui.dropdownchecklist.css" /> <link rel="stylesheet" type="text/css" href="../Styles/jquery.ui.css" /> <link rel="stylesheet" type="text/css" href="../Styles/gridView.css" /> <link rel="stylesheet" type="text/css" href="../Styles/load.css" /> <link rel="stylesheet" type="text/css" href="../Styles/search.css" /> <link rel="stylesheet" type="text/css" href="../Styles/form.css" /> <link rel="stylesheet" type="text/css" href="../Styles/modules.css" /> <link rel="stylesheet" type="text/css" href="../Styles/engine.css" /> <link rel="stylesheet" type="text/css" href="../Styles/menutabs.css" /> <link rel="stylesheet" type="text/css" href="../../css/thickbox.css"/><script type="text/javascript" src="../Scripts/jquery-1.5.2.min.js" ></script> <script type="text/javascript" src="../Scripts/jquery.tmpl.js"></script> <script type="text/javascript" src="../Scripts/jquery.address-1.4.min.js"></script> <script type="text/javascript" src="../scripts/enumerator.js"></script> <script type="text/javascript" src="../Scripts/mnuSupDropdown.js"></script> <script type="text/javascript" src="../Scripts/jquery.ui.js"></script> <script type="text/javascript" src="../Scripts/jquery.ui.extend.js"></script> <script type="text/javascript" src="../Scripts/sky.json.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/sky.alert.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/sky.dialog.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/sky.process.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/datetime.js"></script> <script type="text/javascript" src="../Scripts/maskedinput.js"></script> <script type="text/javascript" src="../Scripts/deserialize.js"></script> <script type="text/javascript" src="../Scripts/JavaScriptManager.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/PageLoader.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/loadmenu.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/dropDown.js"></script> <script type="text/javascript" src="../Scripts/novatorre.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/jquery.ui.multidraggable-1.8.8.js"></script> <script type="text/javascript" src="../Scripts/Calendar/CalendarLoader.js?635768352000000000"></script> <script type="text/javascript" src="Controls/TechnicalSearch.js?635768352000000000"></script> <script type="text/javascript" src="../Scripts/superfish.js"></script> <script type="text/javascript" src="../Scripts/date.js"></script> <script type="text/javascript" src="../Scripts/validation.js"></script> <script type="text/javascript" src="../Scripts/menutabs.js"></script> <script type="text/javascript" src="../../scripts/main.js"></script> <script type="text/javascript" src="../../scripts/thickbox.js"></script></head><body> <div class="main" id="main"> <div class="topHD"> <a href="Default.aspx#/QuickSearch" class="logo"></a> <div class="boxTop" style="display: none"> <div class="user"> <ul> <li class="bigFont"><span class="nmUser">Usuário: </span>| <a href="#" class="logoff"> Sair</a></li> <li><span class="nmWork">Empresa: </span></li> <li><span class="lastAccessDate">Último acesso: </span></li> </ul> </div> <div class="nmSystem"> <marquee behavior="scroll" direction="left"></marquee> </div> </div> </div> <div class="menu" style="display: none"> <div class="pwrapTop"> </div> </div> <form id="form" class="mainForm" method="post" action=""> <div id="divMain" class="row"> <h1 id="divTitle" style="float:left"></h1><a href="javascript:history.back();" class="button back" style="display:none;float:right" id="linkBack">Voltar</a> <div id="divSearch"> </div> <div id="divAction"> </div> <div id="divAlertEvent"></div> <div id="divResult"> </div> <a id="lnkAlerta" class="thickbox"></a> </div> </form> </div> <div id="loading"> <div class="loadShadow"></div> <div id="loadingText" class="loadBox"><p>Carregando</p></div> </div> <div id="notificacao" style="display:none;"> <div class="loadShadow"></div> <div id="notificacaoText" class="loadBox" style="width:355px; height:80px"><p>Ocorreu um acesso com este mesmo login em outra estação.<br />A sua sessão está sendo encerrada.</p></div> </div> <div id="divPopupMessage" style="position: absolute; bottom: 5px; width: 100%;"></div> <script language="javascript" type="text/javascript"> var sessionEnded =false; var popupEventAlert; $.ajaxSetup({ cache: true }); $('body').ajaxSend(function (e, jqxhr, settings) { if(settings.url.indexOf('.ashx') == -1){ settings.url += settings.url.indexOf('?')==-1 ? "?" + iCareParceiro.getVersionHash(): "&" + iCareParceiro.getVersionHash(); } }); var handlerPath = '../Process/'; var javaScriptManager = new JavaScriptManager($("#form")); iCareParceiro.date = new Date(2015 , (09 -1), 03, 00, 00, 00); $(document).ready(function () { var data = new JSON(); data.addPair("HandleAction", "FindBanner", data.type.string); //Banner getData(handlerPath + 'Banner.ashx', data.getString(), function (ret) { if (!ret || ret.length == 0) return; exibirBannerUrl(ret[0].Id, ret[0].Name, '../../banner.aspx'); }, function (e, m) { popupEventAlert = new MessageBox('divPopupMessage', 620); popupEventAlert.error('<strong>Houve erro ao obter Banner.</strong>' + getJsonExceptionDOM(m).html().toString()); } ); });</script> <script type="text/javascript" src="../Scripts/loginSimultaneo.js"></script></body></html>

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!