Jump to content

Chat en red local desde excel (actualizado 25/09/15)


AlexanderS

Recommended Posts

Hola [uSER=162198]@winkey777[/uSER] debes cerrar el excel, abrirlo nuevamente y sin realizar ninguna acción en excel ingresar al editor de vba, a mi también me pasaba y creo que es porque en cuanto ejecuto cualquiera de las macros empieza a ejecutarce en el codigo de este proyecto el "Application.OnTime" cada segundo y sabemos que si el form esta en ejecución no me deja modificar el código.

Espero te sirva.

muchisimas gracias amigo [uSER=198844]@JUANJG[/uSER] , ESO ERA..

Link to post
Share on other sites

buenas tardes,, siguiendo con este maravilloso aporte de nuestro compañero [uSER=143023]@Riddle[/uSER] , y con su permiso subo un pequeñísimo aporte,, en este agregue un botón para eliminar el historial, el famoso sonido beep al enviar.. estoy por querer terminar de agregar los emoticones.. espero se pueda.. espero les guste.

Chat Excel_RIDDLE V2 - copia - copia.part1.rar

Chat Excel_RIDDLE V2 - copia - copia.part2.rar

Link to post
Share on other sites

[uSER=162198]@winkey777[/uSER], se agradecen todos los aportes, yo por falta de tiempo no he podido agregar las notificaciones y las otras solicitudes, así que bienvenidas sean todas las mejoras.

Por otra parte en el botón de eliminar el historial yo modificaría la conexiones a la tabla para que solo borre el historial de la sala seleccionada de lo contrario borra todas las conversaciones de todas las salas afectando a los usuarios que las estén usando.

Esto

Set Rs = New ADODB.Recordset
Sql = "delete * FROM Chat"
Rs.Open Sql, miConexion, 3, 3, adCmdText[/PHP]

Cambiarlo por esto

[PHP]Set Rs = New ADODB.Recordset
Sql = "delete * FROM Chat where Sala=" & sala
Rs.Open Sql, miConexion, 3, 3, adCmdText[/PHP]

Salu2

Link to post
Share on other sites
[uSER=162198]@winkey777[/uSER], se agradecen todos los aportes, yo por falta de tiempo no he podido agregar las notificaciones y las otras solicitudes, así que bienvenidas sean todas las mejoras.

Por otra parte en el botón de eliminar el historial yo modificaría la conexiones a la tabla para que solo borre el historial de la sala seleccionada de lo contrario borra todas las conversaciones de todas las salas afectando a los usuarios que las estén usando.

Esto

Set Rs = New ADODB.Recordset
Sql = "delete * FROM Chat"
Rs.Open Sql, miConexion, 3, 3, adCmdText[/PHP]

Cambiarlo por esto

[PHP]Set Rs = New ADODB.Recordset
Sql = "delete * FROM Chat where Sala=" & sala
Rs.Open Sql, miConexion, 3, 3, adCmdText[/PHP]

Salu2

Muchisimas gracias amigo [uSER=143023]@Riddle[/uSER]. tomare eso en cuenta.. y esperemos seguir con este proyecto a ver hasta donde llegamos.. saludos.

Link to post
Share on other sites

Exclente proyecto... va avanzado y tiene mejor apariencia que la ultima vez que lo vi, bueno adicional a lo que piensan agregar como las notificaciones, y d que elimine solo las conversaciones de la sala, lo unico que le agregaria seria que los mensajes deje selecionar y copiar. Cuando uno envia un mensaje en PC muchas veces necesita Copy Paste..

Por otro lado Ojala permitiera cambiar la Font y Color, con estas cosas pasaria a otro nivel este chap

un saludo y los felicito por este proyecto esta muy bueno!

Saludos!

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.



  • Posts

    • Nunca debes utilizar los textbox, la función Val(), ni la función Format() en los cálculos, utiliza las variables y las funciones de conversión del tipo adecuado. He añadido un pequeño calendario.   PRUEBA1.xlsm
    • Hola @Greysi! Pude armar este listado en base a la información contenida en esta página. El Listado parece bastante completo (47.940 ciudades), al margen de ciertas excepciones (como Argentina que solo tiene 38 ciudades jajajaja) y contiene muchos nombres en inglés. Espero te sirva! Abrazo! Paises-Estados-Ciudades.xlsx
    • el inconveniente es , que deseo ingresar los datos en los textbox con separador de miles y que me ejecute los cálculos correspondientes 
    • gracias por la atención prestada. ingreso un valor en un textboxt (credito), y en otro le coloco los dias en que se va a demorar en devolverlo calculando asi +PRUEBA1.xlsm un interes de el 10% 
    • Saludos BigPetroman, te comento, el archivo que bajaste no tiene la modificacion, ya que cuando lo subi no tenia idea de como hacerlo. Despues de subir el archivo, busque informacion sobre el siguiente comentario que realizaste. Y logre hacer que funcionara, asi que puse el codigo de lo que habia hecho para que me dieran su opinion. Aunque el codigo realiza la validacion, no funciona del todo como yo queria. Ya que lo logico seria que al capturar el serial, haga la validacion y muestre un mensaje indicando que el serial ya esta auditado. Pero, la validacion, o aviso de serial ya auditado, lo muestra despues de apretar el boton "Anotar Entrada" De todos modos, anexo el archivo para que veas lo que logre. Los seriales los tomo de la Hoja "Laptop", asi que si el serial esta en esa hoja, no deja ingresar el valor en la Hoja "Reg. N_Auditados". Es decir, hace bien el trabajo... Agradecido de antemano, y pido disculpas si mi comentario genero confusion. Equipos No Auditados.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy