I have an entity that will have added to its title ("TO'd to" and the destination (TO'd to 1-555I), if it is detached to another entity in the excel spreadsheet (Imported to Access table). The destination entity has ("TO'd frm" and the origin (TO'd frm 1-111F).
What my intentions is to find the information that meets the first criteria
If rV![Bumper # / Plat ID] Like "*TO'd frm 1-111F*" And rV![Equip LIN] = LinArray Then
Then I would like to get the information from that row of data:
rv![Title]
rv![Role / FE / Node Name]
rV![Bumper # / Plat ID]
rV![Networks]
and use that information to update the Networks Cell in the gaining place.
Use rv![Title] to translate of the detination unit to filter the origin paragraph down, then use the role name in origin to filter down some more, and then use the LIN even more.
Would this be done best in a Dlookup?
Code:
Private Sub TOdFires_Click()
Dim rV As DAO.Recordset
Dim i As Integer, LinArray As Variant
LinArray = Array("XB0145", "R57606", "XXB840", "XXB841", "R30343")
Set rV = CurrentDb.OpenRecordset("Data")
Do While Not rV.EOF
rV.Edit
For i = 1 To 3
If rV![Bumper # / Plat ID] Like "*TO'd frm 1-111F*" And rV![Equip LIN] = LinArray Then
If rV![Para Desc] = "RIPL " & i & "Hq" Then
If rV![Role / FE / Node Name]..........
End If
End If
Next I
rV![Networks] = Networks
rV![Waveforms] = Wave
rV.Update
rV.MoveNext
Loop
Set rV = Nothing
End Sub
All, before it gets said, I am aware of the name and space issue. I have to be able to return the updated spreadsheet as I received it.