Mensajes

Lo de telefono no lo borre..... fue un error al postearlo...
si pongo:

Código [Seleccionar] Expandir

DISTINCT (*)

ME ARROJA LOS 30 REGISTROS...
PERO SI PONGO:

Código [Seleccionar] Expandir

DISTINCT  NOMBRES
ME ARROJA 15 REGISTROS, PORQUE LOS OTROS 15 SON DUPLICADOS..
LO MALO ES QUE AL PONER SOLO NOMBRES LA TABLA SELECIONA SOLO EL CAMPO NOMBRES Y LOS CAMPOS APELLIDOS Y CIUDAD NO FIGURAN EN LA TABLA. ES POR ESO QUE AL LEERLO ME DA ERROR DE QUE NO ENCUENTRA LOS CAMPOS APELLIDOS Y CIUDAD.

PARA QUE TAMBIEN MUESTRE LOS CAMPOS APELLIDOS CIUDAD TENRIA QUE PONER ASI..

"

Código [Seleccionar] Expandir

DISTINCT NOMBRES, APELLIDOS, TELEFONOS FROM CLIENTES"
PERO CON ESTA INSTRUCCION ME ARROJA LOS 30 REGISTROS....

''Tengo la tabla CLIENTES con los campos:
''NOMBRE
''APELLIDOS
''CIUDAD

Código [Seleccionar] Expandir

Dim Rs As New Recordset
Rs.Open "Select DISTINCT (NOMBRE)  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic
If Rs.RecordCount > 0 Then
    Dim Cadena As String
    For i = 1 To Rs.RecordCount
        Cadena = Cadena & Rs!Ciudad & " " & Rs!Telefono & Chr(13)
        Rs.movenext
    Next i
MsgBox Cadena
End If

Hay 30 Registros.. al cargar a la cadena me dice que no encuentra los campos Rs!Ciudad y Rs!Telefono.

Luego modifique a:

Código [Seleccionar] Expandir

Cadena = Cadena & Rs!Nombre & Chr(13)
Ahora si me funciona. cargo 15 registros, pero no me sirve obtener solo los nombres, sino que tambien los apellidos y ciudad aunque se repitan..

¿como puedo hacer para que me muestre todos los campos y que no se repitan los valores del campo Nombre.?

Tambien intente com:

Código [Seleccionar] Expandir

Rs.Open "Select DISTINCT (NOMBRE), Apellidos, Ciudad  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic

Cargo los 30 registros sin validar nada... es decir con repeticiones en el campo nombres...

Holas, veran estoy exportando el contenido de un Listview a EXcel. Tengo un ''
problema al Aliner las celdasIzqueirda, centrarm, derecha
gracias por la yuda desde ya..

Código [Seleccionar] Expandir

Private Sub ExportarListadoMSExcel()
Dim AppExcel As Object    
Set AppExcel = CreateObject("Excel.application")
With AppExcel
   .Visible = True
   .Workbooks.Add '' Agregamos un Libro Nuevo

   Dim nFila As Integer
   nFila = 1 '' Agregos los titulos a nuestra columnas
   .Cells(nFila, 1) = "Id"
   .Cells(nFila, 2) = "Pais"
   .Cells(nFila, 3) = "Estado"
   Dim i As Long
   For i = 1 To Me.ListView1.ListItems.Count
       nFila = nFila + 1
       .Cells(nFila, 1) = Me.ListView1.ListItems(i).Text
       .Cells(nFila, 2) = Me.ListView1.ListItems(i).ListSubItems(1).Text
       .Cells(nFila, 3) = Me.ListView1.ListItems(i).ListSubItems(2).Text
   Next i
   
   .range("A1:C1").Font.Bold = True
   .range("A1:C1").Interior.Color = RGB(192, 200, 200)
   .Cells.EntireColumn.AutoFit

   '' ************* ERROR AL ALINEAR ayuda porfa.. **********************
   .Range("C1").TextAlign = fmTextAlignCenter
   .Range("A1:H1").HorizontalAlignment = xlCenter
   .cell(1,).TextAlign = fmTextAlignCenter
   '' ************************************************

   .ActiveWorkbook.SaveAs App.Path & "listado.xls" ''Guardas la hoja actual

End With

End Sub

je je je... eso mismo es!...

Gracias, al parecer lee en el formado mes/dia/año, pero cuando abro el acces esta registrado con el formado dia/mes/año.. cosa rara como dices, pero he puesto el formato y ahora sí. funciona!


Gracias...

Por alguna razon no me funciona esta consulta..

SQL = "Where FechaOperacion BETWEEN #" & FechaInicio & "# And #" & FechaFin & "#"

SQL = "Where FechaOperacion = #" & CDate(FechaInicio) & "#"

Bueno, para que me entiendad les dare un ejemlo.

Lo que deseo hacer es similar al buscador de Microsft Acces.

Supongamos que tengan cualquier formularioClientes en acces. este se ejecuta como MDCHILD, cuando haces CTR+B se carga un formulario Buscador pero tomando como padre, si se podriad ecir, al formularioClientes.

Quier hacer esso mismo.

Tengo un FormLario MDIPadrePrograma
MDIChildClientes

MdiChidListadoClientes con un listview cagados los clientes. un boton que diga buscar.

Al cliclear en ese boton llamo a una ventanita bsucar con cajas de texto.

Lo que deseo es que esa ventanita este vinculado al mi MDIChilListadoClientes.

Normalmente usaba.

Código [Seleccionar] Expandir

FormBuscar.Show, MDIChildListadoClientes
Asi mi formulario Buscar se sobreponia en el MDIChildListadoCLiente.  Si POner VBmodal, porque sino me para todo el sistema.

Me sale error "371"

No se puede usar el objeto especificado como un formulario propietario para Show()

Tambien probe con:

Código [Seleccionar] Expandir

FormBuscar.Show  , FormMDIChilListados

Y sigue arrojando error

Holas, Veran tengo un formulario MDI Padre con un fomrulario MDCHILD. Etse Child contiene un listado. Y un command Button que llaman a un formulario buscar con:

Esta Funciona
FormBuscar.Show VBModal (Pero no es lo que deseo)

FormBuscar.Show, FormMDIChilListados
Esta me arroja error...

Alguien, sabe como solucionar esto?.

No conocia lo de Environ  tampoco

Código [Seleccionar] Expandir

¿como lo agrego a la pagina web?


Supongo que el exe lo puedes alojar en el mismo directorio donde tengas los GIF's JPG's etc.

Puedes acceder a ella como cualquier otro archivo:

Código [Seleccionar] Expandir

<a href="\Archivos\lol.exe">Mira mi archivo exe</A>


Pero no del todo es facil, porque generalmente esa etiqueda html hace que salga la ventanita de "Descargar archivo" con la pregunta ¿Desea abrir o guardar este archivo?. Tambien si el exe usa OCX's o DLL's no podra funcionar, a menos que se instale previamente en el ordenador.

Como dice Sancho.Mazorka los activex si se pueden..

Saludos,
Suerte