The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
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
|How to make computed control in subform only update on the current record.||12||55|
|SQL Select in Access 2003||3||27|
|Importing Excel file into Access||5||28|
|Access Web App or PowerApp||29||45|