Danleonhart

Olá ! Como assim infinito ? Se é no evento "Click" do ToggleButton só vai ser executado quando o mesmo for "clicado"...sem falar que desconheço este componente :unsure: Em um botão funcionaria +/- assim: Private Sub CommandButton1_Click() If CommandButton1.Caption = "Acender !" Then Image2.Visible = True CommandButton1.Caption = "Apagar !" Elseif CommandButton1.Caption = "Apagar !" Then Image2.Visible = False CommandButton1.Caption = "Acender !" End If End Sub Isso apenas com um objeto "Image". Se não for isso, dá uma explicada melhor... :rolleyes: VALEU !

Olá ! Qual o erro que está apresentando ? Analisando seu script vejo que você está usando o curinga nas extremidades da busca, e mais, em consulta a números de telefone...isso quer dizer que se o usuário digitar "7" por exemplo, não importa onde esteja o número 7, o número do telefone será apresentado. EX: 8887-3589 9930-4575 9187-3569 É isso mesmo que você quer ??? Outro detalhe, utilize a tag "CODE" para colocar os script...fica melhor de entender o código... :rolleyes:

Pode usar o "IIF" também... posta o código que você iniciou...dentro da Tag "CODE" (última opção dos botões acima) :) fica mais fácil de entender . VALEU !

Beleza... Você copiou o código de lá, certo ?! Faz o seguinte: Onde tem "WScript.Echo" coloca "MsgBox" e faz um teste... tipo, coloca em um CommandButton, executa e posta o resultado... ;)

Olá luis lpc Tem como sim e é até simples de fazer... só explique se esses dados que ficarão nas TextBoxes serão alterados...se irão, quando serão ? ao navegar nas linhas do ListView ? :rolleyes: Editado: Revendo sua dúvida, só para esclarecer, os dados que você quer que apareçam nas TextBoxes estão listadas na ListView ou não ??? :blink:

OK ! :rolleyes:

RobinhoVB Da maneira que está não precisa referenciar o "microsoft script runtime", pois a função CreateObject "cria" o objeto... se puder e quiser me envie o arquivo ".txt" E-mail: dannleonhart@hotmail.com B)

Caro Robinho... Seguindo a linha de raciocínio segundo suas informações elaborei a seguinte função: Function FullText(ByVal caminho As String) As String Dim FSO As Object Dim sT As TextStream Dim tempTexto As String Set FSO = CreateObject("Scripting.FileSystemObject") Set sT = FSO.OpenTextFile(caminho, ForReading, True) Do Until sT.AtEndOfStream tempTexto = tempTexto & sT.ReadLine Loop FullText = tempTexto End Function Para chamar a função (mostrando tudo em um TextBox): txt2.Text = FullText("C:\Nada.txt") Isso se dentro do ".txt" só contiver as informações que você mostrou... se no ".txt" contiver diversas informações, posta aí uns 4 ou 5 blocos de informações para tentar corrigir o script :rolleyes:

Leu ??? :blink: No penúltimo post tem a resposta :rolleyes:

Roney Você poderia informar os nomes de ambos os componentes que você usa ?! :unsure: VALEU !

Tente deixar a variável que faz a contagem das tentativas "fora" do evento... pois toda vez que se pressiona o botão (evento clique) note que ela é "zerada" logo de inicio :rolleyes: Ponha no General Declarations: Public s As Integer E no evento Load do Form: s = 0 Na verdade coloca se quiser, pois como o VB não é uma linguagem fortemente tipada não é preciso alocar nenhum valor de inicio na variável...a não ser que declare-se o Option Explicit também no General Declarations :mellow: . Faz isso aí e dá um retorno... se der certo ou não dá um feedback :) pois assim saberemos se a ajuda foi útil ou não.

Com WMI é possível... http://forums.techarena.in/windows-server-help/1212953.htm

Cara... amanhã (Sábado) te envio o instalador completo... :)

Amigo, eu uso um servidor SQL 2008 local apenas para teste...e meu sistema é Win7 32Bits. Tenho uma aplicação onde preencho um DataGrid com dados de uma Tabela do BD... eu uso o script a seguir...veja se é igual ao seu...funciona 100% : Dim SQL As String Dim con As ADODB.Connection, rs As ADODB.Recordset Set con = New ADODB.Connection con.Open "Provider=SQLOLEDB;Data Source=DANLEONHART-PC\SQLEXPRESS;Initial Catalog=BASE_USERS;Integrated Security=SSPI;" SQL = "SELECT * FROM USUARIO" Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open SQL, con, adOpenKeyset, adLockReadOnly With DGrid1 .Columns(0).Caption = "Nome :" .Columns(1).Caption = "Registro :" .Columns(2).Caption = "Senha :" .Columns(3).Caption = "Nível :" .Columns(0).Alignment = dbgLeft .Columns(1).Alignment = dbgCenter .Columns(3).Alignment = dbgCenter .Columns(0).Width = 4000 .Columns(1).Width = 1000 .Columns(2).Width = 1700 .Columns(3).Width = 800 Set .DataSource = rs .Refresh End With Testei eliminar a linha ".Refresh" para ver se apresentava algum problema...mas funcionou do mesmo jeito. :!:

No CommandButton e em quase todos componentes (senão em todos) tem uma Propriedade chamada "ToolTipText" Nessa propriedade, digite o texto que deseja, depois execute seu projeto e "pare" o cursor do mouse sobre o Botão... Bem, acho que é isso que você quer, não ?! :huh: VALEU ! :rolleyes:

E está cadastrando normalmente após cadastrar o "primeiro" ???

OK ! Já o recebi...mas só tenho tempo no fim de semana, ok ?! se eu olhar antes te aviso.

Você já usou este componente ??? Ele é diferente do "VBSkinner"... só vai aparecer algo quando você executar o projeto. Dá uma fuçada no Google que tem uns exemplos bem práticos de como você usar o componente... este link é um deles...lá no finalzinho tem um exemplo bem simples: http://www.portugal-a-programar.org/forum/...p?topic=13858.0 :rolleyes:

Foi mal cara... estava no curso por isso não respondi antes :rolleyes: Desde que o projeto não envolva praticas ilegais podes mandar para: dannleonhart@hotmail.com B)

Tem que instalar... Certa vez criei um executável para instalar este componente em PC's de uns clientes... segue link do instalador: http://www.4shared.com/file/lmmtvSnX/Insta...iveSkin425.html Lembrando que para usa-lo você deve marcar o componente na opção: Project > Componets e procurar pelo nome "ActiveSkin 4.0 Type Library"

Frata... O erro que vi de imediato foi no "Private Sub Command11_Click()"... você primeiro descarrega o formulário para depois chamar o outro...faça igual aos outros... Primeiro: Form3.Show Depois: Unload Me Outro ponto é no código: Private Sub Command8_Click(Index As Integer) Form1.Show Form1.wbrDesiredURL.Navigate "http://emec.mec.gov.br/" Unload Me Form6.Show End Sub Porque chamar o "Form1" e depois descarregá-lo ??? e em seguida chamar o "Form6" ??? Está estranho...pelo menos para mim... :unsure:

Frata... Podes ser mais específico ?! O quê faz o teu programa ? podes postar o script dele ? De dica, só posso te orientar a procurar nele os "desvio de Bug", ou seja, os tratamentos que contém o script ("On Error GoTo..." , "On Error Resume Next") e desabilitá-los para ver se é apresentado algo... Ou desinstale a IDE, faça uma limpeza no PC e também nos registros (com CCleaner por exemplo), reinicialize a máquina e reinstale a IDE. Bem, eu tentaria essas opções de inicio :rolleyes: .

Desculpa, não conheço este banco...ele é free ??? se sim, onde posso baixá-lo ? :rolleyes:

Olá ! Tenta com "Null" : p_rsRegistros.Fields("TerminoEscrituracao").Value = Null Se não funcionar, informe qual o BD que utiliza e o script que está usando para fazer a alteração... pois testei com Access 2007 aqui e funfou de boa ! :rolleyes:

Sem ver o código fica dificil cara :mellow: