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.

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 Sub

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ı.

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 Sub

Çok teşekkür ederim çalıştı. Sağolun emin olun çok işime yaradı.

Önemli değil)
iyi çalışmalar