SoloCodigo

vriko, es justo lo que estaba preguntando, cuando tienes "dos datos", una hora inicial y una final, lo que estoy calculando es la entrada y salida de empleados, pero es que a veces se pasan de 12 horas incluso, y los formatos de hora son distintas en las maquinas, voy a probarlo y te cuento como me fue, de nuevo gracias...y hasta pronto.

hola brroz, sabes el lio esta con el alto del grid, y tienes razon esta contenido en el frame1, voy a probar sacandolo de ahi  gracias....  

hola, estoy creando un control ocx de una rejilla para que me realice las opciones de abrir, guardar, buscar  entre otras desde archivos de texto delimitados con comas o bien con otros caracteres, la parte donde algo anda mal es la siguiente linea, pues tengo la rejilla en una ubicacion mas abajo del inicio del control, y cuando se redimensiona mi control, mirejilla siempre aparece abajo, no puedo lograr que la rejilla este siempre bien centrada y que empiece en top=2280 , ayuda por favor...

hola he intentado crear una tabla en oracle con dos campos de tipo long raw, pero no me lo permite que  puedo hacer?, porque mis datos requieren dos fotografias en cada registro si es que no mas... help

hola ya encontre la solucion, debia añadir un nuevo libro con la plantilla y no asi abrir la plantilla, ahora si funciona todo....

es decir debia haber hecho esto:

xl.Workbooks.Add Template:=App.Path & "\Plantillas\formato.xlt"

en vez de esto:

objApp.Workbooks.Open FileName:=App.Path & "\Plantillas\formato.xlt"

bueno con esto creo que ya esta...  bye bye

Hola,tiene razon Brroz, cada vez que tienes que asignar la columna de tu rejilla asi:

tabla.Col = c + 1

comprueba si tabla.cols es menor o igual que c asi:

if tabla.cols<=c+1 then
   tabla.cols=tabla.cols+1
   tabla.Col = c + 1
endif

de esta forma la cantidad de  columnas crecera a la necesidad de tus datos

hola, esta vez deseo saber si alguien conoce alguna funcion o componente que calcule las horas, minutos y segundos en base a dos datos en cualquier formato de time, es decir hh:mm:ss o hh:mm solamente... gracias

Hola, si de algo te sirve, puede ser que ese error que te sale:

"Error al registrar el archivo ...\msadoc25.tlb"

este ocasionando que ado no funcione, revisa si existe el archivo msadoc25.dep en tu maquina es probable que tenga un error, donde dice DllSelfRegister lo cambias por TLBRegister (a mi me ocurrio con un archivo msado20.tlb), y vuelves a generar tu instalador...

 cpmario! , ahora que me puse a revisar el contenido de mi setup.lst estaba mal esa parte y una mas donde decia DLLSelfRegister y estaba asociado a un archivo msado.tlb, donde deberia estar en realidad TLBRegister, me parece que estos errores fueron creados porque el asistente no pudo encontrar dependencias para esos archivos, ahora lo entiendo, arreglando esos parametros para el registro por fin ha funcionado completamente bien.


Hasta pronto  

hola, estuve creando el instalador de mi programa con el asistente de distribucion y empaquetado, genera todo bien al aparecer, pero al instalar mi aplicacion me sale el siguiente mensaje:

No se pudo registrar el archivo 'C:\WINDOWS\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' porque no se encontró.

  no se si eso sea problema de mi aplicacion o es que le falta algo a mi asistente, porfa si a alguien ya le ocurrio algo parecido expliquenme que le sucede a mi instalador , o si hay algun parche que poner, ya no se porque intente de todo...

por si sirve adjunto el archivo de errores que deja el instalador,
gracias por adelantado...

hola, que tal si utilizas un control richtextbox, solo pones las cadenas que requieras en el control de la siguiente forma:

richtextbox1.text = richtextbox1.text & "la cadena" & " " 'un espacio si quieres

y cuando requieras guardar tu archivo como texto
solo haces:


richtextbox1.savefile nombrearchivo,rtfText

donde nombrearchivo es la ruta completa y el nombre del archivo con el que deseas guardarlo...   hasta pronto

hola rechy, como estas, para eso debes ir a excel, y en el menu herramientas haces clic en macros y en grabar nueva macro, luego configura tu hoja de excel para impresion y vuelves a macros para detener la grabacion, una vez que hayas grabado la macro, puedes verla haciendo otra vez en herramientas, macros y luego en todas las macros, veras macro1 y pones modificar, ahi puedes ver todo el codigo que te genera excel, bueno especificamente para lo que quieres te va a salir algo como esto:

    With ActiveSheet.PageSetup
        .LeftHeader = ""                              'aqui pones el text1.text'
        .CenterHeader = "&A"                     'o el caption del label
        .RightHeader = ""                            'etc...
        .LeftFooter = ""                                'etc...
        .CenterFooter = "Página &P de &N"   'etc...
        .RightFooter = ""      
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -3
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With

Aquello que no esta comentado ha sido generado por excel, asi que cualquier cosa, le preguntas a excel...

Hola chako, si en tu datagrid tienes establecida la propiedad fixedcols=true, al hacer clic en la primera columna, toda la fila queda seleccionada, caso contrario, puedes poner las siguientes lineas en el evento keydown de tu datagrid:

if keycode=38 or keycode=40  then
   datagrid1.rowsel=datagrid1.row
   datagrid1.col=0
   datagrid1.colsel=datagrid1.cols-1
end if

espero que te sirva  bye bye