Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Import/Export to Acce 2/2
0 views
Skip to first unread message
Puntudis Thong
Jan 29, 1995, 6:39:00 PM1/29/95
to
>>> Continued from previous message
strValue = strValue & " AND " & CStr(fld(3).Name) & " = '" & Fo
strValue = strValue & " AND " & CStr(fld(3).Name) & " = '" & Fo
End If
' delete the existing record
CurrentDB.Execute (strValue)
tblTable.Update ' before add the new
strValue = ""
Case Else
MsgBox "Error updating record, Code:" & CStr(Err) & ", " & Error$,
End Select
Resume Next
' --------------------- Error handling routine ---------------------
End Function
* OLX 2.2 * ...Dream Weaver...
0 new messages