David & Joanne Gould
dajomigo at tpg.com.au
Wed Sep 6 17:09:57 CDT 2006
I have a form for entering new movie stock into a Video Library database. This form also allows the user to update details for all copies of the title. Because of this the data is updated using code. One of the fields in the table is an image field. The code I am using is: 'Update Movie Title Details Dim rsUpdateMovieTitleDetails As Recordset Dim strMovieName As String strMovieName = Forms![frmAddNewMovieStock]![cboSelectMovieTitle] Set rsUpdateMovieTitleDetails = New ADODB.Recordset rsUpdateMovieTitleDetails.ActiveConnection = CurrentProject.Connection rsUpdateMovieTitleDetails.Open "tblTitles", , adOpenKeyset, adLockOptimistic, adCmdTable 'Loop through the recordset Do Until rsUpdateMovieTitleDetails.EOF If rsUpdateMovieTitleDetails.Fields("name") = strMovieName Then rsUpdateMovieTitleDetails.Fields("supplier") = Me.supplier rsUpdateMovieTitleDetails.Fields("rating") = Me.rating rsUpdateMovieTitleDetails.Fields("categoryName") = Me.categoryName rsUpdateMovieTitleDetails.Fields("RentalTypeID") = Me.RentalTypeID rsUpdateMovieTitleDetails.Fields("cover") = Me.oleCover End If rsUpdateMovieTitleDetails.MoveNext Loop rsUpdateMovieTitleDetails.Close I keep getting this error message: Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. Can anyone explain to me what I can do about this? TIA David Gould DG Solutions