SoloCodigo

Si me salio el reporte que queria hacer con VB y Word

gracias a ambos...!!!

P.D.  DIDI si te encuentras la direccion del manual de VB-Word que mencionaste, me encantaria que me pasaras la direccion, porque la verdad si me interesa manejar plantillas....  gracias

Que tal FAKI !!!

Mira por el momento solo se me ocurre una forma para mostrar dos columnas...
por lo que vi parece que obtienes los datos de una Base de datos, cierto? si es asi el combobox no lo asignes a ningun DAO, RDO ó ADO... lo que se tiene que hacer es ir llenando el combo linea por linea, esto implica que tienes que hacer un barrido de la tabla donde tienes los datos que quieres mostrar y cada fila que vayas recorriendo tienes que ir concatenando el valor de las columnas de tu tabla que quieres mostrar, el resultado seria el elemento que agregaras al combobox... ( con respecto a una liena que separe las columnas no se me ocurre nada)

Y por el momento se me ocurre solo esto, y espero que haya soluciones mas sensillas(algon OCX o algo asi).

espero te sirva...
Suerte!!!

.:: LEMUS ::.

Gerard

A lo que entiendo por lo que necesitas creo que otra forma de obtener los datos aparte de la de J.M.Movilla (que es muy buena y respetable) es generando una consulta en el ambiente de access en la seccion de consultas, si tus tablas estan correctamente relacionadas creo que se te facilitaria al seleccionar los datos que necesitas de cada tabla y asi tu ADODC en ves de que lo conectes a tus catalogos de Clientes, Artículos o tu tabla de transacciones de Cobros... lo conectarias(RecordSource) a la consulta que realizaste previamente...

Espero te sirva...

Suerte!!!

J.M.Movilla

Que crees, Fijate que probe lo del ADO.Refresh y aun asi me salen los mismor errores... y solamente me provoca errores si realizo una consulta de actualización (Insert InTo, Delete, Update).


Gracias por todo y no me queda mas que seguir buscando o hacerlo con el monton de lineas de código...

Hasta pronto y Feliz Pascua

PLEX, tienes toda la razon....
asi como esta te causaria error en mciSendString... se me fue ese pequeñisimo error!!!

******************************************************************
Para abrir el lector:

Private Sub Command1_Click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub

Para cerrar el lector:

Private Sub command2_click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub

------------------------------------------------------------------------------------------------------------
Te recomiendo que este código lo coloques en un modulo base....:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Suerte...!!!

.::LEMUS::.

Creo que todo codigo para abrir una lectora hace referencia al Dispositivo Esclavo primario (master Slave = posición 0) y otro código es el que expulsa la bandeja de la lectora que esta en uso... y ese no lo tengo.

Prueba el siguiente código, espero te sirva.....

Para abrir el lector:

Private Sub Command1_Click()
    Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub

Para cerrar el lector:

Private Sub command2_click()
    Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub


Suerte...!!!!

.:: LEMUS ::.

J.M.Movilla, gracias por el código que me pasaste, pero fijate que no me sirve, lo ejecuto y efectivamente me aparece minimizada la aplicación que se haya ejecutado en la linea

ExecCmdNoFocus (Proceso a ejecutar...)

y aunque la aplicación no haya terminado me permite usar el teclado y el mouse normalmente sin restricciones...

Fijate que lo que quiero hacer es un software de seguridad que se pueda ejecutar de forma remota para así impedir el uso de esa computadora(teclado y mouse) , y tambien habilitarlos de forma remota.

ya use lo siguiente:

Shell "rundll32 keyboard,disable" para el teclado
Shell "rundll32 mouse,disable" para el mouse

y tambien la API solo para el teclado:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute "rundll32 keyboard,disable" 'desactiva el Teclado.
ShellExecute "rundll32 keyboard,enabled" 'activa el Teclado.

esas lineas me funcionan muy bien en Win95, Win98 y WinMe, pero en Win2000 no funciona para nada.

Gracias J.M.Movilla...

Que tal Becker24 !!! ... con respecto a una solución pues creo que no te puedo ayudar directamente, pero tengo entendido que para ese tipo de sistemas se maneja lo que se llama reconocimiento de patrones... espero que la solución sea por ahi...

Suerte...

Atte.     .::LEMUS::.

Que tal a todos los programadores que rondan por reste Foro, fijense que me salio un problema, y es que no se como hacer un programa que pueda inhabilitar y habilitar un teclado y un mouse....  la verdad no tengo ni idea de como empezar, posiblemente sea un API la que realiza esto, y si es asi cual ???, la finalidad de este programa es tener seguridad en un computador y cuando traten de violarla se ejecute el programa que habilita y deshabilita el teclado y el mouse.


Salud2.
.:: Lemus ::.

Que tal a todos, fijense que me urge conseguir los codigos o tutoriales para hacer los diferenetes mètodos de ordenaciòn que existen o que se pueden hacer en Visual Basic.