Erreur d'exécution 3021 - expressions du FOLKLORE ou de la BOF est vrai ou si l'enregistrement a été supprimé

rst.Open "SELECT * FROM Equipas WHERE ([ID - Funcionário] LIKE '" & idfunc & "' AND [ID - Tarefa] LIKE ' " & idtask & "' );", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rst.Delete adAffectCurrent
rst.Update
rst.Close

Je reçois l'erreur d'exécution 3021 toutefois, la requête n'est pas vide.

  • Essayez de laisser tomber le ; à la fin du SQL. Si cela ne fonctionne toujours pas, essayez d'imprimer le SQL généré et en l'exécutant directement dans Access.
  • La question de la double question était la LIKE caractère générique. Bien que cette question utilise également LIKE, il n'y a aucune indication qu'une wild-card, est impliqué.
InformationsquelleAutor user2898085 | 2013-12-11
  1. 6

    "Je reçois l'erreur d'exécution 3021 toutefois, la requête n'est pas vide."

    Double vérifier ce point.

    Dim strSelect As String
strSelect = "SELECT * FROM Equipas " & _
    "WHERE ([ID - Funcionário] LIKE '" & _
    idfunc & "' AND [ID - Tarefa] LIKE ' " & idtask & "' );"
Debug.Print strSelect
rst.Open strSelect, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If rs.BOF And rs.EOF Then
    MsgBox "recordset is empty"
Else
    rs.MoveLast
    MsgBox "recordset contains " & rs.RecordCount & " rows"
End If
'rst.Delete adAffectCurrent
'rst.Update
rst.Close

    Si la version du code vous dit "jeu d'enregistrements est vide", aller à la fenêtre exécution (Ctrl+g) pour examiner les SELECT déclaration, le code intégré. Vous pouvez copier le texte de l'instruction et de la coller dans SQL Vue d'une nouvelle requête Access pour les tests.

    Ma meilleure supposition est que la requête ne renvoie aucune ligne parce qu'il inclut un espace juste avant la valeur de idtask, et pas de [ID - Tarefa] les valeurs correspondent à l'espace plus idtask:

    idfunc & "' AND [ID - Tarefa] LIKE ' " & idtask & "' );"
                                    ^ here
    InformationsquelleAutor HansUp