I want to copy the date_tested field value into all the array_dt fields? mytbl.Fields(array_dt(i)).Value = mytbl.Fields(Date_Tested).Value
Is the logic below correct. I 'm getting error message.
Code:
Public Const ct = "InA_Ct,InB_Ct,H1_Ct,Hx_Ct, RP_Ct"
Public Const Dt = "InA_Date,InB_Date,H1_Date,Hx_Date,RP_Date"
Public Const result = "InA_Result,InB_Result,H1_Result,Hx_Result,RP_Result"
Sub arr_update()
Dim objDB As DAO.Database
Dim mytbl As DAO.Recordset
Set objDB = CurrentDb()
Set mytbl = objDB.OpenRecordset("Temp_RESULTS")
Dim array_ct, array_dt, array_r, i
Dim result_reported As String
array_ct = Split(ct, ",")
array_dt = Split(Dt, ",")
array_r = Split(result, ",")
For i = 0 To 4
While Not mytbl.EOF
mytbl.Edit
mytbl.Fields(array_dt(i)).Value = mytbl.Fields(Date_Tested).Value
If (mytbl.Fields(array_ct(i)).Value > 0 And mytbl.Fields(array_ct(i)).Value <= 32.99) Then
mytbl.Fields(array_r(i)).Value = 1 'Positive
ElseIf (mytbl.Fields(array_ct(i)).Value = 0) Then
mytbl.Fields(array_r(i)).Value = 0 'Negative
ElseIf mytbl.Fields(array_ct(i)).Value = Null Then
mytbl.Fields(array_r(i)).Value = 9 'Not tested
End If
mytbl.Update
mytbl.MoveNext
Wend
mytbl.MoveFirst
Next I
End Sub