Dale Kalsow
dkalsow at yahoo.com
Wed Jul 22 10:17:57 CDT 2009
Good Morning Everyone, I am sure I am missing something simple here but can anyone tell me why me ADO code is not working. I know the record set is being opened and the .count is working correctly, but all though the code is executed to write the record (and delete it) the table is not effected and an error is not being thrown. Thanks! Dale Dim conn As ADODB.Connection Dim rstRS As ADODB.Recordset Dim strSQL As String On Error GoTo EH_Form_AfterUpdate strSQL = "SELECT tblPlacedInServiceHead.CustomertoOwnerKey " strSQL = strSQL & "FROM tblPlacedInServiceHead " strSQL = strSQL & " WHERE (((tblPlacedInServiceHead.CustomertoOwnerKey)=" strSQL = strSQL & Val(Me.txtCustomertoOwnerKey.Value) strSQL = strSQL & ") AND ((tblPlacedInServiceHead.PlacedInServiceDate) Is Null));" Rem Open the tblPlacedInServiceHead table Set conn = CurrentProject.Connection Set rstRS = New ADODB.Recordset With rstRS .Open strSQL, conn, adOpenKeyset, adLockBatchOptimistic End With If Me.cboPlaceInServiceReportRequired Then If rstRS.RecordCount > 0 Then Rem Record is found and there is nothing to do. Else Rem create a record rstRS.AddNew rstRS![CustomertoOwnerKey] = Val(Me.txtCustomertoOwnerKey.Value) rstRS.Update End If Else If rstRS.RecordCount = 0 Then Rem Record is not found and there is nothing to do. Else Rem delete a record rstRS.MoveFirst Do While Not rstRS.EOF rstRS.Delete rstRS.MoveNext Loop End If End If rstRS.Close conn.Close Set conn = Nothing Set rstRS = Nothing Exit Sub EH_Form_AfterUpdate: MsgBox "Error " & Err.Number & ", " & Err.Description, _ vbCritical, "UNABLE TO VERIFY VERSION" End Sub