Garcimat
Member
- Local time
- Tomorrow, 04:11
- Joined
- Jun 7, 2022
- Messages
- 67
Hi guys
I want to search the table and when some conditions are achieved I want to change the value in one of the fields, I am trying the code below but it is not working...
Thanks in advance.
Private Sub ModifyStatus()
Dim i As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Data")
For i = 0 To rs.RecordCount - 1
If rs.Fields("SWO_Number") = gvar_SWONumber Then
If rs.Fields("PTF_Number") = gvar_PtfNumber Then
If rs.Fields("Record_Status") = "ACTIVE" Then
rs.Edit
rs.Fields("Record_Status") = "MODIFIED"
rs.Update
End If
End If
End If
Next i
Set rs = Nothing
Set db = Nothing
rs.Close
db.Close
End Sub
I want to search the table and when some conditions are achieved I want to change the value in one of the fields, I am trying the code below but it is not working...
Thanks in advance.
Private Sub ModifyStatus()
Dim i As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Data")
For i = 0 To rs.RecordCount - 1
If rs.Fields("SWO_Number") = gvar_SWONumber Then
If rs.Fields("PTF_Number") = gvar_PtfNumber Then
If rs.Fields("Record_Status") = "ACTIVE" Then
rs.Edit
rs.Fields("Record_Status") = "MODIFIED"
rs.Update
End If
End If
End If
Next i
Set rs = Nothing
Set db = Nothing
rs.Close
db.Close
End Sub