+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ping Atma (/konu-ping-atma.html)
Sayfalar:
1
2
Ping Atma - tamer duran - 25/12/2018
Merhaba iyi akşamlar.Hazırladığım tablomda kayıtlı güvenlik kameralarından formda, yön tuşları ile yada sorgu neticesi ekrana getirdiğim kamera ip adresine buton yardımı ile ping atmak istiyorum.İncelendiğinde görüleceği üzere tek butona tek ip yazarsam sonuç alıyorum ama 500-600 kamera için çok yer lazım. Bu konuda bana yardım ederseniz sevinirim. İlginiz için şimdiden teşekkür ederim.
Cvp: Ping Atma - berduş - 25/12/2018
komut satırına aşağıdaki kodu yazar mısınız?
Private Sub Komut1_Click()
Me.Recordset.MoveLast
Me.Recordset.MoveFirst
For kayitsay = 1 To Me.Recordset.RecordCount
Shell "cmd /C ping " & Me.ip_no
Me.Recordset.MoveNext
Next
End SubCvp: Ping Atma - tamer duran - 25/12/2018
Teşekkür ederim .Ancak kodu uyguladığımda kayıtlı her iki ip adresine de ping atıyor. Sadece form ekranında görünen kaydın ip adresine ping atamazmı.
Cvp: Ping Atma - berduş - 25/12/2018
pardon ben hepsine otomatik atmasını istediğinizi sandım kodu aşağıdaki ile değiştirin
Private Sub Komut1_Click()
Shell "cmd /C ping " & Me.ip_no
End SubCvp: Ping Atma - tamer duran - 25/12/2018
Çok teşekkür ederim çalıştı. Sağolun emin olun çok işime yaradı.
Cvp: Ping Atma - berduş - 26/12/2018
Önemli değil)
iyi çalışmalar