Question : Run VBA code for each record in a tabular Access form (Dynaset)

Hello all,

I'm pretty familiar with coding in VB and VBA but this one I don't seem to solve for myself. At the moment, I'm making a small Access Application that helps me control my network clients. Now I want to make a tabular form (recordset type = Dynaset) where I see a list of clients that are on- or offline.

For that I'm using a PingSilent function (found on the internet and runs perfectly) that returns an integer. On base of that integer, I change the color of a small label. Green for online, Red for offline, Yellow for ping problems.

The big problem is, I don't know where I should place the code. F.e.: if I place the code in the Form_load() event, the labels for ALL the records will be green or red based on the first record in the form. That's not what I want ofcourse. The label should be green or red depending on the record, not on the first record.

Can any of you point me in the right direction of where to put or change the code?

Thanks in advance!

Greetings,
Steven Bruneel

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

           
           
             Private Sub Form_Load()
    Dim i As Integer
    
    i = PingSilent(txtClientName.Value)
    
    If i = 0 Then
        lblPing.BackColor = vbRed
    ElseIf i = 1 Then
        lblPing.BackColor = vbGreen
    Else
        lblPing.BackColor = vbYellow
    End If
End Sub
 
Function PingSilent(strComputer)
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
    ExecQuery("select * from Win32_PingStatus where address = '" _
    & strComputer & "'")
                
    For Each objStatus In objPing
    If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
        PingSilent = 0
    Else
        PingSilent = 1
    End If
    Next
End Function

           
         

Open in New Window Select All

Answer : Run VBA code for each record in a tabular Access form (Dynaset)

If the value is not stored - you are using an unbound textbox- then what you are asking is impossible in an Access form. Moreover, you cannot display different returned values in different records if you use an unbound textbox.