Go4Expert

Go4Expert (http://www.go4expert.com/)
-   MS Access (http://www.go4expert.com/forums/ms-access-forum/)
-   -   Error 3167 Please help (http://www.go4expert.com/forums/error-3167-please-help-t4710/)

am_25 15Jun2007 18:35

Error 3167 Please help
 
Hi,
I'm fairly new to Access 2000. I have this code, I'm trying to delete a record, once I uncheck the check box. It is deleting fine, but after deleting it is giving this error.

error 3167

Please help
Code:

Option Compare Database
Dim conDatabase As adodb.Connection
    Dim numRecordsAffected As Long
    Dim rstImpactApp As adodb.Recordset
   
Private Sub Check12_Click()
Set conDatabase = CurrentProject.Connection
    Set rstImpactApp = New adodb.Recordset

 If (Check12.Value = -1) Then
    Dim strSQL As String
    Me![1619IDRequirementDocumentation] = [Forms]![f04RequirementDocument]![tb19IDRequirementDocumentation]
    Me![tb1609IDApplication] = Me![09IDApplication]
   
       
 ElseIf (Check12.Value = 0) Then
    Dim strSQL As String
     
     
    DoCmd.SetWarnings False
 

    strSQL = "DELETE t16ImpactedApplication19x09.*" & _
            "FROM t16ImpactedApplication19x09 " & _
            "WHERE t16ImpactedApplication19x09.[1619IDRequirementDocumentation]=" & _
            Me![tb19IDRequirementDocumentation].Value & _
            " and t16ImpactedApplication19x09.[1609IDApplication]=" & _
            tb1609IDApplication.Value & " ;"
    'MsgBox strSQL
   
  ' DoCmd.RunSQL strSQL
   
  'Set rstImpactApp = conDatabase.Execute(strSQL, numRecordsAffected, adExecuteNoRecords)
  conDatabase.Execute strSQL, numRecordsAffected, adExecuteNoRecords
 ' rstImpactApp.MoveNext
 
      Set conDatabase = Nothing
 
   
   
End If
End Sub



All times are GMT +5.5. The time now is 08:51.