Almacenar información
Private Sub Comando20_Click()
Dim rst As DAO.recordset
Dim bd As Database
Dim busca As Boolean
Set bd = CurrentDb
Set rst = bd.OpenRecordset("tblNotas", dbOpenDynaset)
rst.MoveNext
rst.AddNew
rst("Dia") = txt_date
rst("Nota") = [Marco0]
rst.Update
rst.MoveLast
rst.Close
End Sub
Disculpa experto tengo un problema con este código
ya que me marca error en el rst esto lo quiero utilizar para almacenar a una tabla
es para access 2003
Dim rst As DAO.recordset
Dim bd As Database
Dim busca As Boolean
Set bd = CurrentDb
Set rst = bd.OpenRecordset("tblNotas", dbOpenDynaset)
rst.MoveNext
rst.AddNew
rst("Dia") = txt_date
rst("Nota") = [Marco0]
rst.Update
rst.MoveLast
rst.Close
End Sub
Disculpa experto tengo un problema con este código
ya que me marca error en el rst esto lo quiero utilizar para almacenar a una tabla
es para access 2003
1 respuesta
Respuesta de jorand7
1
En lugar de::
Set rst = bd.OpenRecordset("tblNotas", dbOpenDynaset)
hola... intenta con esta::
Set rst = bd.OpenRecordset("select * from tblNotas", dbOpenDynaset)
Prueba y me cuentas...
Set rst = bd.OpenRecordset("tblNotas", dbOpenDynaset)
hola... intenta con esta::
Set rst = bd.OpenRecordset("select * from tblNotas", dbOpenDynaset)
Prueba y me cuentas...
Ok lo probare y te cuento como me fue muchas gracias
Ok.. no olvides cerrar tu pregunta...
