ACCESS - Añadir checkBox al formulario continuo para editar la fila

[Laufwerk]

Hola amigos!!

Estoy intentado añadir un checkbox en mi formulario continuo para que el usuario pueda editar los datos de la fila seleccionada.
La cuestión es que si añado dicho checkbox se me repite en todas mis filas, pero cuando clico sobre una cualquiera se me activan todas.

Cómo podría hacerlo?

Gracias!!!

[Taribo007]

Para poder hacerlo en un form continuo, este check tiene que tener como origen de control algun campo de la tabla origen de regsitro del form, si no se pproduce ese eefcto, ya que un form continuo no es mas que una "ilusion optica", realmente solo hay un regsitro activo, y si los datos no son reflejo del contenido de una tabla o consulta, el resto de controles muestran lo que tenga el control activo

un saludo

[Laufwerk]

Ok mas o menos lo he entendido, pero me surgen un par de preguntillas:
1.- Tiene que ser un campo del tipo si/no o puede ser algun otro tipo de campo?
2.- Como cogería el valor por ejemplo del id del origen del form que es una consulta?


Gracias!!!!!

[Taribo007]

No entiendo lo que quieres hacer. El tipo de campo puede ser el que quieras, depende paraq ue lo quieras claro. Y lo de coger el id del origen del form, no acabo de entenderlo, pero si tienes un control con ese id, puedes referirte directamente a este control, o si no al recordsetclone del form.

Un saludo

[Laufwerk]

Lo que quiero hacer es salga en mi formulario continuo un campo que sea radiobutton y que sólo pueda haber uno seleccionado, para que cuando el usuario le dé al boton de editar compruebe si hay uno seleccionado. Y para poder abrirlo que ese radiobutton coja el valor del campo clave de la fila.

Esto es posible????


Gracias!!

[Taribo007]

Diferenciemos entre campo y control. Te comentaba que, para que puedas hacer lo que quieres en un form continuo, en la tabla o consulta origen de dicho formulario, tiene que haber un campo para que puedas diferenciarlo del resto. Llamemosle Editar, y sera del tipo Si/no.

Ahora, otra cosa es el control que tu uses en el formulairo, y cuyo origen de control sera este campo, lo mas logico es que, para un campo de tipo si/no uses una casilla de verificacion, o u radio Buton.

Lo que entiendo que quieres es, al darle al boton editar, que compruebe si hay alguno seleccionado, pero que a su vez, al seleccionar uno, el resto se desseleccionen.

Para ello, tendras que, en el evento click del radio buton, recorrer el recordsetclone del formulario, es decir, todos los registros devueltos por la tabla o consulta que es origen de registro del form, e ir deseleccioanando todos excepto el que se corresponda con el registro activo, es decir, sobre el que has hecho click.

Mas o menos es esto lo que necesitas??

Un saludo

[Laufwerk]

Eso es.

Ahora ya tengo mas o menos la idea. Ahora solo falta aplicarla.
Por cierto, si tengo un recordset con un recordCount = 3
como lo recorrerias para encontrar el campo id?





Muchas gracias.

[Taribo007]

Algo asi:

dim rst as dao.recordset

set rst=me.recordsetclone

while not rst.eof
msgbox rst("Id")
rst.movenext
wend

rst.close
set rst=nothing

Un saludo

[Laufwerk]

tengo otro ligero problema, y es que la funcion a la que estoy llamando es publica y la tengo declarada en otro módulo, lo cual implica que tendría que pasarle mi recordSet actual.

Sería correcto hacer esto?

Código:

editarIncidencia(Me.Recordset)

y en la declaracion de la funcion poner esto

Código:

Public Sub editarIncidencia(ByVal rst As DAO.Recordset)
.....

Es que lo acabo de probar y me lanza este error, que "no coinciden los tipos"
y si en la declaracion de la funcion le quito el as DAO.Recordset quedandome así,

Código:

Public Sub editarIncidencia(ByVal rst)
.....

me lanza este otro error:
"El objeto no admite esta propiedad o método"


como lo harias?

[Taribo007]

Prueba asi:

Cabecera de la funcion:

Public Sub editarIncidencia(rst As DAO.Recordset)

Llamada la procedimiento:

call editarIncidencia(me.recordsetclone)

O tambien asi:

editarIncidencia me.recordsetclone

Un saludo

[Laufwerk]

ok, lo probaré

[aika]

Si no puedes modificar la tabla para añadir un nuevo campo que te sirva de marcador de fila prueba este código

Option base 1
' La matriz aLista guarda los id's de las filas seleccionadas
Public aLista

Private Form_Load()
Me.RecordSource = "SELECT id, fecha, marca_estado([id]) AS marca FROM Tabla"
ReDim aLista(Me.Recordset.RecordCount)
End Sub

'------------------------
Private Sub marca_Click()
'------------------------
' El control [marca] del Form es un control de texto cuyo origen es el campo [marca] de la SELECT
' El control [marca] puede tener (si se quiere) Formato condicional:
' {El valor del campo es} {distinto de} "0" (color de fondo rojo)

If (aLista(Me.CurrentRecord) = "") Then
aLista(Me.CurrentRecord) = Me.id
Else
aLista(Me.CurrentRecord) = ""
End If
Me.marca.Requery
End Sub

'----------------------------------------
Public Function marca_estado(k) As String
'----------------------------------------
' Se utiliza para marcar el estado (seleccionado/no seleccionado)
' de un cuadro de texto ficticio en un multirregistro
' devuelve un valor a un campo ficticio del SELECT del Form
Dim i
marca_estado = "0"
For Each i In aLista()
If (i = k) Then
marca_estado = "1"
Exit For
End If
Next
End Function

[Laufwerk]

Gracias, lo probaré también