[Resolvido]Ping de endereço Ip

Boa Tarde,

Estou tentando realizar um ping de um endereço especifico da minha tabela
onde executo o seguinte comando

Private Sub IP2_Click()
Dim RetVal

RetVal = Shell("c:\windows\system32\cmd.exe /c ping Me.txtpdv2 -t", 1)
End Sub

Porem o comando não consegue encontrar a variável txtpdv2

Grato

Bom dia segue o codigo!

Código:


RetVal = Shell("c:\windows\system32\cmd.exe /c ping " & Me.txtpdv2 & " -t", 1)



Caro Amigo fiz exatamente como me indicou no código
porem a janela abre do cmd mas não pinga nada e logo fecha

Se eu colocar desta forma por exemplo o código executa normal

Dim RetVal

RetVal = Shell("c:\windows\system32\cmd.exe /c ping 192.168.0.1 -t", 1)
End Sub

Tenho uma tabela com todos os Ip's, no formulário existe uma caixa de combinação
onde eu pesquiso a loja e nos campos txt exibe os Ip de cada computador
sendo assim como é uma pesquisa não consigo colocar os ip manual por isso existe uma
caixa de texto que exibi o conteúdo

O aproblema está em passar o Endereço IP para o comando...

Veja se nesse Campo realmente esta um endereço IP Valido.

Pois testei aqui digitando em uma Caixa de Texto o endereço IP e funcionou 100% das duas formas:

Dim f As String
f = Me.Texto25.Value
RetVal = Shell("c:\windows\system32\cmd.exe /c ping " & f & " -t", 1)


e


RetVal = Shell("c:\windows\system32\cmd.exe /c ping " & Me.Texto25 & " -t", 1)


Rode uma Msgbox Me.txtpdv2 e veja se obterá o endereço IP Valido

Boa tarde danilo451 se possível disponibilize o projeto!

Caro FabioPaes fiz exatamente como me pediu
acontece a mesma coisa cmd abre e fecha ao mesmo tempo
coloquei uma msgbox e a resposta é o ip que estou tentando pingar

Caro daniloreiis desculpe minha ignorância como faço
para postar parte do código para vcs?

Segue em anexo uma parte do projeto

Pessoal consegui fazer a linha de código

Private Sub IP1_Click()
Dim RetVal

RetVal = Shell("c:\windows\system32\cmd.exe /c ping -n 1 -w 500 " & Me.txtpdv1 & " -t", 1)

End Sub

Agora ele ping qualquer ip mesmo eu não estando na rede
Ele aparece o cmd e pinga no -t pegando o valor do campo txtpdv1

Muito obrigado a todos

Tópico resolvido

Grato pelo Retorno, até a próxima se Deus quiser!

Por favor, marque o Tópico como Resolvido! Assim facilita a pesquisa!

Desculpe mas como eu faço para marcar o tópico resolvido

Veja aqui:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Tópico resolvido com sucesso
Muito obrigado pessoal pelo apoio