• Lunes 6 de Mayo de 2024, 10:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - nelson_z

Páginas: [1]
1
VBA / Re: Boton Trasparente
« en: Lunes 25 de Febrero de 2008, 23:36 »
Quieres que el botón sea transparente o que no se vea y no puedas darle clic para que se ejute lo que esta en el evento Click del boton?
si es el caso de que quiereas que no se vea...
es asi: Command1.Visible = False esto lo pones en el evento Load de la forma.

2
VBA / Re: Dar Color Una Fila De Un Listview
« en: Martes 15 de Enero de 2008, 18:35 »
una Pregunta el ListView... ke estas usando en ke componente viene?
porke el ListView del MWCC del service pack 6 esta mas sencillo solo hay ke seleccionar una propiedad que se llama "fullRowSelect" y con esa propiedad se selecciona el Row.
lo unico es ke el listview debe de tenerr en la propiedad view la opcion 3(lvwReport), ke creo ke ya lo tienes asi.

Espero me entiendas...

Saludos

3
VBA / Re: Dar Color Una Fila De Un Listview
« en: Miércoles 9 de Enero de 2008, 17:28 »
yo casi no he utilizado el listView pero creo que con esta intrucción solo estas pintando las letras de color rojo
ListAsistencia.ListItems(F).ForeColor = vbRed
debes de utilizar otra propiedad del List que sea como BackColor o algo parecido.
espero te sirva.
lo ke no entindo como es ke por cada empleado tienes ke recorrer todo el list, no seria mas facil si le pasaras el num de row... por parámetro a "VerificaRetrazos" y asi no tendrias ke recorrer la lista por cada empleado...bueno eso es lo ke se ve a simple vista.. porke no conozco bien la situación real.

4
VBA / Uso De Reportman
« en: Miércoles 13 de Diciembre de 2006, 18:40 »
Saludos...

Tengo una aplicacion con VB 6... y Reportman...
el problema que tengo... es que en ciertas ocaciones al mandar imprimir un reporte  si aparece en pantalla pero no se despliega el cuadro de seleccion de la impresora,  donde seleccionas tambien el numero de hojas, copias, etc. esta ventana aparece minimizada... en la barra de tareas... y no se deja abrirlo...
y si cierro toda la aplicacion y la vuelvo a abrir... si funciona (puedes enviarlo a la impresora)..
Hay alguien que me pudiera decir.. cual es la razon?

gracias!!!

5
Visual Basic para principiantes / Msgbox
« en: Viernes 8 de Septiembre de 2006, 23:34 »
Hola a todos por aqui....

tengo una duda... que creo me van a resolver....

La duda es: Se puede cambiar el texto que trae predeterminados los botones del msgBox de VB...

por ejemplo si depliegas un mensaje y seleccionas el estilo vbYesNo...
te aparece el mensaje y dos botones ... uno que dice "yes" o "si" y otro boton que dice
"No" .... como se le tendria que hacer (si se puede) para cambiar solamente el texto a estos botones... en ves de que digan eso...  que digan  "Seguro" "No estoy Seguro" o lo que sea.... en fin... solo queria saber si se puede.... o si existe otro componente que lo pueda hacer....

ok... Saludos...

y gracias...

6
VBA / Re: Abrir Macro
« en: Martes 11 de Julio de 2006, 16:58 »
Verifica primero si el archivo no esta protegido ....

en Tools-->Protection--> hay una opcion que dice Unprotect Sheet ....
la seleccionas y te pide que ingreses el password...
si no lo tienes .... habra que preguntarselo aquien hizo el documento... o si no usar otras tecnicas.....
espero te sirva... este comentario.

Salu2.

7
Visual Basic 6.0 e inferiores / Ancho De Banda
« en: Lunes 10 de Julio de 2006, 23:00 »
Hola a todos...
Me hicieron una pregunta ... que no tengo la informacion alguien me podria ayudar??

la Pregunta es: Cuanto consume(ancho de banda) una aplicacion de VB ... conectandose a  Sql Server 2000 mediante ADO utilizando el protocolo TCP/IP.

si alguien sabe... o conoce algun sitio que hable sobre esto se lo agradeceria ..
de antemano gracias.

8
VBA / Re: Urgente !!! Recorrer Formularios
« en: Lunes 23 de Enero de 2006, 17:52 »
pero si usuaste... el objeto Forms.... en el for each???

bueno.... tambien lo puedes hacer de esta manera...

haber si te resulta.....

For i = Forms.Count - 1 To 1 Step -1
        Forms(i)
     
Next

espero te funcione......

9
VBA / Re: Filtrar Por Fechas En Formato Español
« en: Miércoles 23 de Noviembre de 2005, 17:31 »
El visual basic trae una Funcion que se llama Format... con la cual puedes darle el formato a la cadena Fecha que estas obteniento esto es:

 Format(FechaNacimiento , "dd/MM/yyyy")

o si estas usando un DateTimePicker para agarrar la fecha... le puedes dar este formato en las Propiedades
Format seleccionas el valor que dice 3 - dtpCustom y en la propiedad CustomFormat le pones dd/MM/yyyy... y asi  no importa en que lenguaje tengas tu S.O.

espero que esto te funcione!!... y si no me avisas...

Hasta Luego

10
VBA / Re: Obtener Trimestre A Partir De Una Fecha
« en: Jueves 3 de Noviembre de 2005, 17:15 »
Podrias agarrar el mes de la fecha
y ver en que mes se encuentra y si esta en Enero, febrero o marzo pertenece al 1er.  Trimestre!!...

Lo podrias Hacer con El select Case :

Private Function Trimestre(fecha As Date) As Integer
    Select Case Month(fecha)
        Case 1 To 3:
            Trimestre = 1
        Case 4 To 6:
            Trimestre = 2
        Case 7 To 9:
            Trimestre = 3
        Case 10 To 12:
            Trimestre = 4
    End Select
End Function

11
VBA / Re: Núm.filas De Un Datagrid
« en: Martes 4 de Octubre de 2005, 17:19 »
le puedes hacer recordCont al recordSet asociado al Datagrid!!!

12
VBA / Re: Urgente: Poner Aplicación A 0!!
« en: Miércoles 14 de Septiembre de 2005, 19:08 »
Recorset.Close  ' para limpiar los datos del recorset, despues de esto puedes realizar otra ves el open por si quieres conectarte a otra tabla...
tambien puedes usar esto:
if Recorset.State = adStateOpen Then Recorset.Close
por si quieres saber si el recorset esta abierto o viseversa...
if Recorset.State = adStateClose Then Recorset.Open

Set Recorset =Nothing 'para liberar la memoria esto lo puedes hacer en el UnLoad de la forma...

13
VBA / Re: Txt En Euros!
« en: Martes 6 de Septiembre de 2005, 21:04 »
para agregar el componente te ubicas en  toolbox... y presionas el boton derecho del raton y seleccionas Components... o en Projects >> Componets .... o con CTRL + T

ya que te abrio la ventana... seleccionas el check ,,, qu edice...

Microsoft Masked Edit Control 6.0
y le das aplicar y veras que aparece el control en la ventana del ToolBox

en las propiedades  del objeto ... trae un formarto,... ahi le pones tu formato...


sale...

14
VBA / Re: Txt En Euros!
« en: Martes 6 de Septiembre de 2005, 18:45 »
Porque no usas el control de Microsoft que se llama "masked Edit "
saber agregar componentes??

a este control ... solo le pegas el formato que quieres  te vas a las propiedades... y en formato... ahi le das el formato deseado....


sale...

15
VBA / Re: Ordenar Columna (datagrid)
« en: Lunes 5 de Septiembre de 2005, 17:35 »
Hola....

Yo he Usado el Ultragrid del Infragtics... y este si trae como ordenarlo...
y hacer todo lo que quieres...

checalo.... sale...

16
VBA / Re: Control Mshflexgrid
« en: Viernes 26 de Agosto de 2005, 17:36 »
hola....

tambien la operacion la podrias hacer en la Consulta... es decir

"SELECT A, B, (A + B) as C FROM TABLA"

17
VBA / Re: Control Mshflexgrid
« en: Viernes 26 de Agosto de 2005, 17:34 »
hola....

tambien la operacion la podrias hacer en la Consulta... es decir

"SELECT A, B, (A +B)  as C FROM TABLA"

18
VBA / Re: Control Mshflexgrid
« en: Viernes 26 de Agosto de 2005, 17:33 »
hola....

tambien la operacion la podrias hacer en la Consulta... es decir

"SELECT A, B, (A +B) as C  FROM TABLA"


espero te sirva.....

19
VBA / Re: Partir Consulta Sql (vb6.0)
« en: Viernes 26 de Agosto de 2005, 17:25 »
Pues yo siempre lo he hecho asi
"consulta_parte1 " & _
"consulta_parte2"

checa si so estas pegando el amperson con el subguion...(&_) porque tienen que estar separados....

y si usas variables  esto es:

Dim cad as string

cad="Primera parte"
cad= cad & "Segunda Parte"

hay varias formas de hacerlo...
 tambien puedes usar dos variables cad1=cad1 & cad2

en fin... pero de la primera forma si funciona....

sale...

20
VBA / Re: Instancias De Una Aplicación Y Mdichild
« en: Lunes 18 de Julio de 2005, 23:14 »
para, lo de la instancia, haces esto:
If App.PrevInstance Then
        MsgBox "La aplicación ya está abierta"
        End
    End If

para lo de MDI, para que una forma caiga dentro del padre, debe ser mdiChild,
aesta forma le cambias la propiedad MDIChild a True. o lo puedes hacer por codigo como quieras.

espero que esto sea lo quieras saber...

saludos.

21
VBA / Re: Problemas Con Vb Skinner
« en: Lunes 18 de Julio de 2005, 23:04 »
se supone que cuando creas un instlador, debes de llevarte los ocxy dlls, que necesitas para que tu aplicacion funcione. algunos de ellos aparte de se copias al system32, tienen que ir registrados, osea que tu instalador debe de resitrarlos, de no ser asi y si no son muchos podrias registrarlos tu.

En la barra de "Inicio" en la la opcin de "Ejecutar"
escribes esto : regsvr32 "C:\program files\common files\Crystal Decisions\1.0\bin\CRQE.dll"

y asi con cada uno de los ocx, el problema con esto que si son muchos ocx... es una weba estar registrandolos 1 x 1.

espero te sirva...

22
VBA / Re: Urgente Ayuda En Consulta
« en: Miércoles 4 de Mayo de 2005, 20:48 »
hola.

ya viste que valor trae la variable VarSQL, despues de que haces la  igualdad?


porque cuando llegas a este punto  Var solo contiene el nombre de la tabla.un campo

digamos que
Var="EMPLEADO_CCS.CI ",
cuando llega esta  if
varn=0
var2=""


If Var "" And varn = 0 Then
varn = 1
var2 = Var                                  <--- aqui var2="EMPLEADO_CCS.CI "
var2 = var2 & "," & Var  <--- aqui var2="EMPLEADO_CCS.CI,EMPLEADO_CCS.CI "
End If

entonces  al llegar a:

VarSQL = "SELECT '" & var2 & "' AS Datos FROM EMPLEADO_CCS INNER JOIN
Detalles ON EMPLEADO_CCS.CI = Detalles.ci;"

VarSQL="SELECT 'EMPLEADO_CCS.CI,EMPLEADO_CCS.CI'  AS Datos FROM EMPLEADO_CCS INNER JOIN
Detalles ON EMPLEADO_CCS.CI = Detalles.ci;"

y pienso que deberia ser:

VarSQL="SELECT EMPLEADO_CCS.CI  AS Datos FROM EMPLEADO_CCS INNER JOIN
Detalles ON EMPLEADO_CCS.CI = Detalles.ci;"

checa bien loq ue haces en el If... espero
que esto te sirva....

al rayo...

23
VBA / Re: Paso De Variables Entre Formularios?
« en: Viernes 18 de Febrero de 2005, 21:24 »
ya has intentado manejarlos como propiedades de al forma

Private datoLocal As Integer

Public Property Get ValorX() As Integer ' para regresar el dato local
   ValorX = datoLocal
End Property

Public Property Let ValorX(ByVal NewValue _ 'para fijar el dato a la instancia de la forma
   As Integer)
  datoLocal= NewValue
End Property

y fijas la propiedad antes de hacer el Show de la forma

form.ValorX(3)
form.Show

ok?..

Páginas: [1]