Awq
-
Total de itens
15 -
Registro em
-
Última visita
Sobre Awq
Awq's Achievements
0
Reputação
-
Tenho essa dropdownlist: <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="SqlDataSource2" DataTextField="DES" DataValueField="DES" AppendDataBoundItems="True" Height="20px" Width="200px"> </asp:DropDownList><br /> <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:DBConnectionString %>" ProviderName="<%$ ConnectionStrings:DBConnectionString.ProviderName %>" SelectCommand="SELECT * FROM [RESPOSTAS]"></asp:SqlDataSource> Como, via vb eu faço um clone dele, pra que quando eu clicar num botão, clonar na frente dele essa mesma drop down, ou uma identica com os mesmos dados.
-
Olá! Estou com um problema na conexão do access. Uso um botão que no evento click deveria mostrar em um dropdown list os registros da tabela. <asp:Button ID="Button1" runat="server" Text="Button" /> <asp:DropDownList id="ddlCampos" Width="200px" Runat="server" Height="37px"></asp:DropDownList> E a conexão: Imports System.Data.OleDb Public Class _Default Inherits Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Table_ As String = "PRODUTOS" Dim query As String = "SELECT NOME FROM " & Table_ Dim MDBConnString_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\est10703\Desktop\Awq\DB.mdb;" Dim ds As New DataSet Dim cnn As OleDbConnection = New OleDbConnection(MDBConnString_) cnn.Open() Dim cmd As New OleDbCommand(Query, cnn) Dim da As New OleDbDataAdapter(cmd) da.Fill(ds, Table_) cnn.Close() Dim t1 As DataTable = ds.Tables(Table_) ddlCampos.Items.Add(t1.ToString) End Sub O problema é que na dropdownlist tá aparecendo só o nome da tabela, não os registros dela. Como consertar isso?
-
Cara, sei que já deve ter terminado, mas acho que o jeito certo seria usar um "for", ou seja, um "se", "senao": Fica assim var L1, L2, L3: Real Eq, Es, Ret, Is: real inicio Escreva ("Digite o primeiro lado: ") Leia (L1) Escreva ("Digite o segundo lado: ") Leia (L2) Escreva ("Digite o terceiro lado: ") Leia (L3) Se ((L1=L2) e (L2=L3)) entao Escreval("É um retângulo") se ((L1<>L2) e (L2<>L3)) entao Escreval("É um escaleno") senao escreval("É um isósceles") fimse fimse fimalgoritmo
-
Exatamente isso, cara! Muito obrigado!
-
Muitos problemas pra quem tá programando pela primeira vez em javascript... Preciso de uma ajuda nisso. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" dir="ltr"> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <title>Cadastro Ordens de Serviço</title> <link rel="stylesheet" href="os_files/css3menu1/style.css" type="text/css" /><style type="text/css">._css3m{display:none}</style> <script> var input = 1; function mais(campo) { var valor = "input "+input+" - "+campo+" <input type='text' name='"+campo+"' value=''><br>"; var nova = document.getElementById("aqui"); var novadiv = document.createElement("div"); var nomediv = "div"; novadiv.innerHTML = "Pergunta "+input+" <input type='text' required name=' "+campo +"' value=''> Resposta<input type='text' required name=' "+campo +"' value=''> Peso:<input type='number' required name='quantity' min='1' max='10'>"; nova.appendChild(novadiv); input++; } </script> </head> <body style="background-color:#EBEBEB"> <ul id="css3menu1" class="topmenu"> <li class="topfirst"><a href="index.html" style="width:127px;height:32px;line-height:32px;"><img src="os_files/css3menu1/home.png" alt=""/>Página Inicial</a></li> <li class="toplast"><a href="#" style="width:66px;height:32px;line-height:32px;"><img src="os_files/css3menu1/256-2.png" alt=""/>Sair</a></li><br> </ul> <br> <h3><font face="Segoe UI">Criar Questionário</H3> Requerente: <i>**vem do usuário logado**</i><br> nº os: <i>**numeração automática**</i><br> <br clear=right> <form name="form" method="GET"> <input type="text" style="display: none" name="campo" value=""><br> <input type="button" value="adicionar pergunta" onClick="mais(campo.value);"> <div id="aqui"></div> <input type ="button" value="OK" onClick="window.close"> </form> <div id="txt"></div> </body> </html> Esse é meu html com javascript. o que eu preciso é que ao clicar em um botão adicione a pergunta, igual está fazendo. Mas ao invés de adicionar uma única resposta, adicione quantas eu precisar, e cada resposta receba um peso, assim como eu fiz. Preciso que cada pergunta e resposta+peso recebida seja guardada no bd.
-
Faz uma private sub com worksheet_activate
-
Abrindo outras planilhas enquanto o programa roda
pergunta respondeu ao kauezoia de Awq em Visual Basic
Ao invés de usar esse atributo, proteja a planilha com senha. É bem melhor. -
window.blur e window.focus juntando com o onmouseover/out
-
Olá, pessoas! Preciso de uma pequena ajuda com javascript. Preciso criar um questionário dinâmico. Pra falar a verdade, vai ser um criador de questionários pra depois se responder os questionários. Então eu preciso criar um campo de input, que eu já criei, que ao pressionar um botão criam-se novos inputs. Isso eu já fiz. Agora, ao tempo que crie esses inputs, criar um botão para adicionar respostas ligadas a um radiobox. E que esse radiobox possa receber um valor separado da pergunta. Bem, é isso, o resto eu me viro. Valeu!
-
Cara, no link vai ser difícil você colocar o nome com a data de hj, porque é em html, e pra fazer essas coisas em html geralmente o pessoal usa js ou php. o que eu aconselharia a fazer é criar uma sub que abra o navegador com o seu link. E o código que corrige mais ou menos o que você mandou. Sub Macro1() Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br") .Subject = "Relatório x (Ref " & Format(Now, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx :" & Format(Now, "dd/mmm/yy") .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório..xlsx>www.Relatório.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub
-
Tenta em sharepoint ou onedrive. Mas ela não fica "aberta". Os usuários tem que abrir online pra ver
-
Abrindo outras planilhas enquanto o programa roda
pergunta respondeu ao kauezoia de Awq em Visual Basic
Aparece algum erro? Só não abre? -
Olá a todos! Bem, eu tenho várias textbox, e dependendo do valor da célula R2, R3 e/ou suas subsequentes, eu vou preencher as textbox com determinadas cores. Se for 1, vai ser com a cor azul,se for 2, vai ser com um gradiente e, se for 3 vai ser com verde. Pra preencher com verde e azul eu consegui. Agora eu quero que preencha o gradiente com o azul e o verde, de cima pra baixo. Tá assim o código: Sub preenche() Dim i As Integer Dim y As Integer For y = 2012 To 2014 For i = 1 To 2 'Tabela de valores começa na célula R2 Select Case ActiveSheet.Cells(i + 1, 18).Value Case 1: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 51, 102) Case 2: ActiveSheet.Shapes("GOV_" & y & i).Fill.GradientColorType??? Case 3: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 122, 55) End Select Next i Next y End Sub Então, é isso. Só falta essa parte. Obrigado a todos!
-
Opa, cara! Valeu, mas esse não deu certo... Aqui vai o que eu já fiz, e se vocês puderem dar uma avaliada seria legal! Obrigado! ------------------------ No edit aqui eu fiz um progresso, então o código que eu postei aqui foi totalmente modificado, Eu já consigo que as textbox aparecem e desapareçam, e que mudem de cor conforme o status. Já fiz também com que a textbox receba o texto de determinada célula. Agora, o meu problema é a continuidade do código, já que eu estou tendo que repetir ele pra cada célula e textbox. Me deram uma sugestão de usar um WHILE pra isso, mas não sei como. Tá assim: ___________________________________________________ 'GOV 2012 Select Case Range("R2") Case 1 To 3: ActiveSheet.Shapes("GOV_2012").Visible = True Case Else: ActiveSheet.Shapes("GOV_2012").Visible = False End Select ___________________________________________________ Então a textbox "GOV_2012" será visível se a célula R2 tiver um valor de 1-3. Então, quero fazer uma estrutura de repetição, que escolha a próxima célula(R3) e que o valor dessa célula estimule a visibilidade de "GOV_20122" e que a célula R4 estimule "GOV_20123" e assim por diante. Valeu, pessoas!
-
Olá, sou novo no fórum, vim aqui para pedir uma ajuda um pouco simples, mas como estou começando a programação em VBA estou com um pouco de dificuldade. É bem simples, criei um "Dim shape_ as Shape" e quero que de acordo com as células que eu definir, cada forma receba o valor de uma determinada célula para definir se ela será visível ou não. Então será assim: a célula vai ter 1 ou 2 e dependendo desse valor eu vou definir a visibilidade. Eu só queria uma maneira de setar automaticamente esses valores. Obrigado!