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
komut satırına aşağıdaki kodu yazar mısınız?