Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
dim cn as ADODB.connection dim fldrst as ADODB.recordset Set cn = CurrentProject.Connection Set fldrst = New ADODB.Recordset If strcolnm = "wordList" Then With fldrst .Open .ActiveConnection = cn .Source = "SELECT " & strcolnm & " FROM wordDef WHERE wordDefID=108" .CursorLocation = adUseClient .Open .AddNew .Fields(Field & (strcolnm)) = striv .Update varbook = .AbsolutePosition .Requery End With Else With fldrst .ActiveConnection = cn .CursorLocation = adUseClient .AbsolutePosition = varbook .Update .Fields(Field & (strcolnm)) = striv .Requery End With If pf = p Then fldrst.Close Set fldrst = Nothing End If End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.