UpDate cuadro lista
Publicado por Angel (13 intervenciones) el 06/12/2009 17:32:15
Hola a todos, a ver si me podeis ayudar. Tengo un formulario con un cuadro de lista que muestra a traves de una consulta una seleccion de registros. En el evento de ese cuadro de lista Al hacer dobleClick, tengo esto:
Private Sub Lista134_DblClick(Cancel As Integer)
Dim SQL As String
Dim pregunta As String
pregunta = MsgBox("Esta a punto de grabar datos en su ficha personal" & vbcrl & _
" ¿esta de acuerdo? ", vbYesNo + vbInformation, "Aviso")
If pregunta = 6 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Update O38 Set V = True Where TOTAL =" & Lista134.Column(4, Lista134.ListIndex)
DoCmd.SetWarnings True
MsgBox "Solicitud grabada", , "Gracias"
End If
End Sub
Vereis que intento cambiar en la tabla O38, la casilla de verificación V, valor predeterminado NO, a SI. Pero em ocurre que cuando cliqueo en la primera fila del cuadro de lista, actualiza todas las casillas de todos los registro de la tabla, si cliqueo en la fila tercera, me actualiza la segunda...... que ocurre? Gracias
Private Sub Lista134_DblClick(Cancel As Integer)
Dim SQL As String
Dim pregunta As String
pregunta = MsgBox("Esta a punto de grabar datos en su ficha personal" & vbcrl & _
" ¿esta de acuerdo? ", vbYesNo + vbInformation, "Aviso")
If pregunta = 6 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Update O38 Set V = True Where TOTAL =" & Lista134.Column(4, Lista134.ListIndex)
DoCmd.SetWarnings True
MsgBox "Solicitud grabada", , "Gracias"
End If
End Sub
Vereis que intento cambiar en la tabla O38, la casilla de verificación V, valor predeterminado NO, a SI. Pero em ocurre que cuando cliqueo en la primera fila del cuadro de lista, actualiza todas las casillas de todos los registro de la tabla, si cliqueo en la fila tercera, me actualiza la segunda...... que ocurre? Gracias
Valora esta pregunta
0