0

Estoy realizando una aplicación en Access 2003. Necesito que al hacer dobleclick en un elemento seleccionado del listitem, se abra un formulario, pero no me funciona. No escucha ese evento.

El código es el siguiente:

Private Sub lswDatos_DblClick()

On Error GoTo lbl_error

Dim sUpdate As String
Dim aSQL() As String

    If Me.lswDatos.ListItems.Count = 0 Then
        Exit Sub
    End If
    MsgBox ("ha entrado")
    ' Movimientos
    If Me.TABCTL.Value = tCARGAR_MOVIMIENTOS Then
       
        DoCmd.OpenForm "frmRemoEdit", , , , , acDialog, Me.lswDatos.SelectedItem.Text


End If

Se trata de que cada vez que haga doble click en un elemento del listview y no esté vacío, abrir y acceder a un nuevp formulario.

introducir la descripción de la imagen aquí

Mi problema es que no escucha el evento doubleclick. ¿Hay alguien sabe como se puede solucionar? Gracias

10
  • Hola. No se activa el evento. El End sub se encuentra más abajo en el código. Gracias por el aporte. Un saludo el 5 sep. a las 12:25
  • 1
    Hola de nuevo. Todo esos aspectos que comentas están bien. De hecho, si le asigno el evento enter, si escucha ese evento. ¿Puede ser que el listview no acepta el doubleclick? Gracias de nuevo el 5 sep. a las 12:35
  • 1
    He editado la respuesta, saludos! el 5 sep. a las 13:02
  • 1
    Fijate, he creado un proyecto nuevo, he hecho lo que te menciono en mi respuesta y me ha funcionado. De todas formas, he añadido todo el código que uso en mi proyecto en VB.NET para que lo compares y veas si te funciona. Fijate en la útima actualización de mi respuesta. Saludos! el 5 sep. a las 13:53
  • 1
    Muchas gracias por tu ayuda. Pero me sigue sin funcionar. De todas formas, supongo que será el listview no admite el dblclick como evento. Un saludo y gracias de nuevo por tu interés el 5 sep. a las 14:37

1 respuesta 1

0

Me gustaría que pruebes esto y me confirmes si se ejecuta tu evento:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.lswDatos.View = View.Details

        Dim datosPersonas As String() = {"Mendigo", "[email protected]"}
        Me.lswDatos.Items.Add("Pepito").SubItems.AddRange(datosPersonas)
    End Sub

    Private Sub lswDatos_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lswDatos.DoubleClick
        MessageBox.Show(lswDatos.SelectedItems(0).Text.ToString)
    End Sub
End Class

Adjunto una imagen para que veas que funciona como digo:

introducir la descripción de la imagen aquí

2
  • 2
    Difícilmente pueda probar eso que está en C#
    – Yussef
    el 5 sep. a las 12:53
  • 1
    Gracias pro notarlo, gracias @Yussef el 5 sep. a las 12:58

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.