Jump to content

mangelperu

Members
  • Content Count

    4
  • Joined

  • Last visited

  1. Buenos dias, amigos espero me puedan ayudar con este problema que encontre. Tengo abierto un formulario1 donde hay un listview, llamo al formulario2 donde ingreso los datos para el listview del formulario1, el problema es que al cerrar el formulario2, quisiera que el foco pase al listview, pero no lo consigo: Private Sub btnAceptar_Click() Call Agregar_Asientos_Voucher Unload Me UFVouchers.ListView1.SetFocus ''AQUI Mando el foco pero no lo reconoce End Sub Sub Agregar_Asientos_Voucher() Dim i As Integer With UFVouchers.ListView1 i = .ListItems.Count + 1 Rem MsgBox .ListItems.Count .ListItems.Add(i).Text = UFSubVouchers.txtCtaCble .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtDenominacion If UFSubVouchers.txtDebe <> "" Then .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtDebe Else .ListItems.Item(i).ListSubItems.Add.Text = " " End If If UFSubVouchers.txtHaber <> "" Then .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtHaber Else .ListItems.Item(i).ListSubItems.Add.Text = " " End If End With End Sub
  2. Gracias Alexhanders, me funciono tu aporte, igualmente gracias por tu apoyo Hector Miguel.
  3. Hola Hector, gracias por responder, realice lo que me indicaste, y el resultado es que del valor -1 lo vuelve positivo a 1, pero en la tabla tengo 4 registros, por lo que no esta contando todos los registros. haber si me pueden ayudar DBClientes.rar
  4. Buenas tardes, tengo una procedimiento que estoy modificando para contar los registros de una tabla access y verlos en un textbox de un formulario excel vba, pero el resultado siempre me sale -1 y en la tabla hay 4 registros. Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FROM TClientes " Consulta = "SELECT COUNT(Razon_Social) FROM TClientes " Set recordset = New ADODB.recordset recordset.Open Consulta, conexion Dim total_reg As Integer recordset.MoveNext UserForm1.TextBox1.Value = recordset.RecordCount total_reg = 0 Set recordset = Nothing Set conexion = Nothing End Sub Espero me puedan apoyar, gracias. ContarRegistros.rar
  5. Hola javihng123 vi que hiciestes una pregunta en el foro Contar registros de tabla access y mostrarlos en la label de excel,   y que encontrastes la solucion no se si podrias compartirla, he hecho la misma pregunta y no me han podido encontrar respuesta, espero me puedas apoyar

    https://ayudaexcel.com/foro/messenger/2494/

    Gracias

×
×
  • Create New...

Important Information

Privacy Policy