J
John Thomas
'This is the problem below in the "With RS2" section, it does not properly
recognize fld.Name as the Field name. I could also use the Variable
'"BookName", but I get the same; Item not in Collection error.
Dim db2 As Database, RS2 As Recordset
Set db2 = CurrentDb
Dim fld As Field
Dim BookName, OtherUses As String
Set RS2 = db2.OpenRecordset(strSQL)
For Each fld In RS2.Fields
If fld.Name = BookName Then
With RS2
.Edit
!fld.Name = "Number of Times Used in " & BookName &
Count2 & OtherUses
.Update
End With
End If
Next
Thanks John
recognize fld.Name as the Field name. I could also use the Variable
'"BookName", but I get the same; Item not in Collection error.
Dim db2 As Database, RS2 As Recordset
Set db2 = CurrentDb
Dim fld As Field
Dim BookName, OtherUses As String
Set RS2 = db2.OpenRecordset(strSQL)
For Each fld In RS2.Fields
If fld.Name = BookName Then
With RS2
.Edit
!fld.Name = "Number of Times Used in " & BookName &
Count2 & OtherUses
.Update
End With
End If
Next
Thanks John