VBA erreur d'ACCÈS à la 91 variable objet ou variable bloc with non définie

Dans un formulaire, lorsque vous appuyez sur un bouton appelé "asignar", je veux insérer des valeurs dans une table existante appelée "movimientos"

Private Sub ASIGNAR_Click()
  Dim db As Database
  Dim rs As DAO.Recordset

  Set rs = db.OpenRecordset("MOVIMIENTOS")
  rs.AddNew
  rs("ESTATUSDOC").Value = "Blah"
  rs("FOLIOFED").Value = "Blah"
  rs("NOMBREDOC").Value = "Blah"
  rs("PREL").Value = "Blah"
  rs("CURP").Value = "Blah"
  rs.Update
End Sub

Lorsque j'appuie sur exécuter continuer à montrer l'erreur:

Erreur 91 variable objet ou variable bloc with non définie

InformationsquelleAutor Adan Lopez | 2015-07-07
  1. 3

    Je pense que votre syntaxe est un peu hors, votre code devrait ressembler à ceci:

    Private Sub ASIGNAR_Click()

   Dim db As DAO.Database
   Dim rs As DAO.Recordset

   Set db = CurrentDb
   Set rs = db.OpenRecordset("MOVIMIENTOS", dbOpenDynaset, dbAppendOnly)

   rs.AddNew
   rs("ESTATUSDOC").Value = "Blah"
   rs("FOLIOFED").Value = "Blah"
   rs("NOMBREDOC").Value = "Blah"
   rs("PREL").Value = "Blah"
   rs("CURP").Value = "Blah"
   rs.Update

   rs.Close 
   Set rs = Nothing 
   Set db = Nothing

End Sub

    Le problème est avant tout la façon dont vous avez été la déclaration et de la configuration de votre db variable. J'ai aussi ajusté la OpenRecordset pour correspondre à ce que vous faites.

    • Tout bon, mais ne pas oublier de fermer ouvert les jeux d'enregistrements rs.Close et nettoyer votre mémoire avec Set rs = Nothing et Set db = Nothing
    • Merci pour s'apercevoir qu'.
    InformationsquelleAutor Newd
  2. 0

    Changer 

    Set rs = db.OpenRecordset("MOVIMIENTOS")

    à 

    Set rs = CurrentDB.OpenRecordset("MOVIMIENTOS")

    devrait résoudre le problème ainsi. Ensuite, vous pouvez perdre la Dim db As Database

    InformationsquelleAutor Rdster