Problema con recordset en una aplicación muy sencilla
Este es un registro de usuarios que asiste a una biblioteca y me da un error un recordset que antes no me ocurría:
Private Sub breg_Click() <-----------Es un boton
bpu.Recordset.AddNew <-----------aquí me aparece el error al depurar
bpu.Recordset.Fields("nombre") = TN.Text
bpu.Recordset.Fields("escuela") = Combo1.Text
bpu.Recordset.Fields("hora") = Label2.Caption
bpu.Recordset.Fields("fecha") = Label4.Caption
bpu.Recordset.Update <------- supuestamente tiene conflicto con esta instruicción
TN.Text = ""
TN.SetFocus
MsgBox " ...BIENVENIDO "
End Sub
Espero no quitarte tu tiempo y aunque es muy pobre la aplicación es para el servicio de una biblioteca, alguna sugerencia para mejorarlo o incluso si lo quieres ver te puedo enviar el código fuente y hacer una aportación que servirá a cientos de estudiantes pues sería genial, quedo pendiente de tu respuesta.
Private Sub breg_Click() <-----------Es un boton
bpu.Recordset.AddNew <-----------aquí me aparece el error al depurar
bpu.Recordset.Fields("nombre") = TN.Text
bpu.Recordset.Fields("escuela") = Combo1.Text
bpu.Recordset.Fields("hora") = Label2.Caption
bpu.Recordset.Fields("fecha") = Label4.Caption
bpu.Recordset.Update <------- supuestamente tiene conflicto con esta instruicción
TN.Text = ""
TN.SetFocus
MsgBox " ...BIENVENIDO "
End Sub
Espero no quitarte tu tiempo y aunque es muy pobre la aplicación es para el servicio de una biblioteca, alguna sugerencia para mejorarlo o incluso si lo quieres ver te puedo enviar el código fuente y hacer una aportación que servirá a cientos de estudiantes pues sería genial, quedo pendiente de tu respuesta.
1 Respuesta
Respuesta de yescuder
1