Actualización campo registro.
Buenas noches a todos:
Tengo el siguiente código:
Private Sub cmdReferencia_Click()
Dim db As Database
Dim rstTejidos As DAO.Recordset
Dim sqlTejidos As String
Set db = CurrentDb()
sqlTejidos = "Select * From tbTejidos"
Set rstTejidos = db.OpenRecordset(sqlTejidos, dbOpenDynaset)
'Actualizamos el nombre la referencia (Ref)
With rstTejidos
.Edit
![NumRef] = Me.txtRef
.Update
'Cierro el recordset
.Close
End With
Set rstTejidos = Nothing
End Sub
Lo que quiero es actualizar el campo NumRef del REGISTRO ACTIVO con el
contenido del cuadro de texto Me.txtRef. No lo consigo. En su lugar se me
actualiza el primer registro de la tabla. El registro que quiero actualizar lo
selecciono haciendo clic en un combo. Una vez me ha actualizado el registro nº
1,
todos los items del combo aparecen precedidos del siguiente texto "[Blue]" ...
Ejemplo:
Antes: Dacron Después:[Blue]Dacron
Nylon [Blue]Nylon
Kevlar [Blue]Kevlar
Mylar ... [Blue]Mylar
- Qué puedo hacer para que se me actualice el registro activo en lugar del
primero de la tabla.
- A qué puede deberse la aparición de ese extraño mensaje.
- Qué pasa con las referencias, que aparecen y desaparecen caprichosamente.
Un saludo,
Kraken.
Tengo el siguiente código:
Private Sub cmdReferencia_Click()
Dim db As Database
Dim rstTejidos As DAO.Recordset
Dim sqlTejidos As String
Set db = CurrentDb()
sqlTejidos = "Select * From tbTejidos"
Set rstTejidos = db.OpenRecordset(sqlTejidos, dbOpenDynaset)
'Actualizamos el nombre la referencia (Ref)
With rstTejidos
.Edit
![NumRef] = Me.txtRef
.Update
'Cierro el recordset
.Close
End With
Set rstTejidos = Nothing
End Sub
Lo que quiero es actualizar el campo NumRef del REGISTRO ACTIVO con el
contenido del cuadro de texto Me.txtRef. No lo consigo. En su lugar se me
actualiza el primer registro de la tabla. El registro que quiero actualizar lo
selecciono haciendo clic en un combo. Una vez me ha actualizado el registro nº
1,
todos los items del combo aparecen precedidos del siguiente texto "[Blue]" ...
Ejemplo:
Antes: Dacron Después:[Blue]Dacron
Nylon [Blue]Nylon
Kevlar [Blue]Kevlar
Mylar ... [Blue]Mylar
- Qué puedo hacer para que se me actualice el registro activo en lugar del
primero de la tabla.
- A qué puede deberse la aparición de ese extraño mensaje.
- Qué pasa con las referencias, que aparecen y desaparecen caprichosamente.
Un saludo,
Kraken.
1 Respuesta
Respuesta de raulmoscardo
1
1.- Si como dices, el registro que quieres editar lo seleccionas de un ComboBox (supongo que moviendo el puntero por el recordset con algún método, ¿cmdReferencia es el ComboBox?), lo único que te falta por lo que veo es pasarle el valor a NumRef.
Como With permite realizar una serie de instrucciones sobre un objeto especificado sin volver a calificar el nombre del objeto, puedes probar con un:
NumRef.Value = txtRef
2.- Lo del extraño mensaje no se a que te refieres.
3.- Las Referencias para la .mdb no se deberían perder siempre que la BD se mantenga en el mismo equipo, incluso cuando la traslademos a otro equipo si en este no aparecen se nos marcara como "Falta ...". De todas formas, se puede establecer una rutina para comprobar que las referencias en la BD son las correctas.
Como With permite realizar una serie de instrucciones sobre un objeto especificado sin volver a calificar el nombre del objeto, puedes probar con un:
NumRef.Value = txtRef
2.- Lo del extraño mensaje no se a que te refieres.
3.- Las Referencias para la .mdb no se deberían perder siempre que la BD se mantenga en el mismo equipo, incluso cuando la traslademos a otro equipo si en este no aparecen se nos marcara como "Falta ...". De todas formas, se puede establecer una rutina para comprobar que las referencias en la BD son las correctas.
