SoloCodigo

Debes de usar esta api.
La ruta donde están los sonidos de windows es en C:\windows\Media
-----------------------------------------------------------------------------------------
'Ejecuta un fichero Wav, por el dispositivo de sonido (tarjeta de sonido).

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
             ByVal uFlags As Long) As Long

Const SND_SYNC = &H0 'just after the sound is ended exit function

Const SND_ASYNC = &H1 'just after the beginning of the sound exit function

Const SND_NODEFAULT = &H2 'if the sound cannot be found no error message

Const SND_LOOP = &H8 'repeat the sound until the function is called again

Const SND_NOSTOP = &H10 'if currently a sound is played the function will return without playing the selected sound


Const Flags& = SND_ASYNC Or SND_NODEFAULT

Private Sub Form_Load()
    Dim FicheroSonido As String
    FicheroSonido = "C:\WINDOWS\Media\Apagado de Windows XP.wav"
    sndPlaySound FicheroSonido, Flags
End Sub
-----------------------------------------------------------------------------------------

Saludos y suerte.

Hola JediAuror, no entiendo muy bien lo que quieres hacer.
Si en principio tienes conectada la pistola por COM1, ¿para qué quieres manejar el puerto del teclado?.
Yo todas las pistolas que uso se conectan por el mismo cable que el teclado, de forma que cada vez que lee un CB es como si lo escribieras en un control, en el que en ese momento tenga el foco.
Me parece que el problema que tienes es que al conectarlo por COM1, lo que recibes lo  vuelcas a un campo de texto(siempre el mismo).
La verdad no sé cómo saber qué control tiene el foco, pero puedes crearte una variable pública de tipo integer, y dándole valores (1,2,3...) según esté en un control, es decir, si está en Text1 valor=1, en Text2 valor=2 y así sucesivamente. Luego en función del valor de la variable, vuelcas lo que recibas por el COM al control que le corresponda.
Claro si tienes muchos controles dónde tener que poner los datos es un poco coñazo, pero a falta de tortas..........
Es un método un poco chapucero pero seguro.  
Saludos y suerte.

En este link:
http://www.telecable.es/personales/jrubi/i...os/tip00225.htm
Puedes encontrar información para que el pc hable, pero para que oiga no sé cómo hacerlo, supongo que será buscar información de los controles que has puesto por internet.
Saludos.

Hola InkaPeruano, por lo que veo estás cerrando el DE_Entrada.CnEntrada (DataEnviroment), y lo que deberías cerrar es el Drp_Entrada (Datareport).
Yo lo que pondría es:
--------------------------------------------------------------------------------
DE_Entrada.CmdEntrada TxtSolicitud.Text 'parámetro de entrada
DrpEntrada.ReportWidth = 1
If Not DrpEntrada.Visible Then
   DrpEntrada.Show
   DrpEntrada.Close
End IF
--------------------------------------------------------------------------------
Y quitar lo agregado.
Aunque yo no tengo mucha idea.
Saludos y suerte.

Hola yaumi, en principio sí.
Debes importar los datos mediante ODBC, en Archivo - Obtener datos externos - Importar: en el desplegable 'Tipo de Archivo' eliges 'Bases de Datos ODBC',  pestaña 'Origen de Datos de Equipo' y supuestamente te aparecerá la base de datos de SQL Server, la eliges y ya podrás ver todas las tablas de la base de datos.
Seleccionas e importas.
Saludos y suerte.

Hola Esccii, lo que quieres decir es que necesitas aumentar la temperatura del cabezal impresor de la etiquetadora?.
Pienso que por software no creo que se pueda hacer, por lo menos las que yo conozco no se puede.
Comprueba si la etiquetadora  tiene un rodillo excéntrico para poder ajustar más la etiqueta al cabezal y le haga más presión. Es el rodillo que arrstra a la etiqueta a la salida de la misma.
Es lo único que se me ocurre.
Saludos
PD.: lo dicho sirve si imprimes por etiquetadora.

Hola Anderea, en principio como te dice Kev te debería funcionar, yo normalmente nunca pongo formato poque suelen ser cadenas lo que envío al clipboard.
Haz una prueba, pon un textbox en el formulario, una vez le aprietes al botón te posicionas en el textbox y haces control+V(pegar).
A mí si me funciona.
Saludos.

Hola Anderea, probablemente le falte a esos pc el componente MSADODC.OCX, que debe estar registrado y en la carpeta system32.
Comprueba que está en esa carpeta,  si no está lo sacas del pc que lo tengas y se lo copias a system32 y lo registras a windows.
Si no es componente será otro que uses, es cuestión de comprobar los componentes que usas.
Saludos y suerte.

Hola a todos.
¿Cómo se puede poner un index a 0 de un campo autonumérico?.
He estado haciendo pruebas con una base de datos de access2000, y he borrado todos los datos de la misma, pero en el campo autonumérico, me sigue con el último nº que se quedó, y no sé cómo se vuelve a poner a 0.
Saludo y gracias por adelantado.

Gracias cpmario por la información; yo no lo tengo actualizado.
Voy a intentar actualizarlo.
Saludos.

Bueno después de probar, probar y probar, lo he conseguido. Os lo pongo por si lo necesitais:
-------------------------------------------------------------------------------------
Private Sub ComboBox1_GotFocus()
   Dim q as integer
   ComboBox1.ColumnCount =3   'nº de columnas, de la 0 a la 2.
   ComboBox1.ColumnWidths = "30;30"   'ancho columnas 0 y 1.
   'el ancho de la 3ª columna la limito con la propiedad ListWidth.
   ComboBox1.ListWidth=100
   For q = 0 To 3
     ComboBox1.AddItem
     ComboBox1.Column(0, q) = "aa" & q
     ComboBox1.Column(1, q) = "ss" & q
     ComboBox1.Column(2, q) = "dd" & q
   Next q
    SendKeys "{F4}"  ' abrimos automáticamente el combo
    'SendKeys "%{Down}"  'es lo mismo que "{F4}"
End Sub

Private Sub ComboBox1_Click()
   Text30.Text =  ComboBox1.Column(0, ComboBox1.ListIndex) _
& "  " & ComboBox1.Column(1, ComboBox1.ListIndex) & "  " &  _ ComboBox1.Column(2, ComboBox1.ListIndex)
End Sub
-------------------------------------------------------------------------------------

Me falta bastante aprender sobre este control, si teneis algo por ahí os estaré agradecido.
Sé que se puede poner nombre de cabecera a cada columna, pero eso no lo he conseguido.
He buscado bastante y no he encontrado casi nada.
Saludos.

Hola a todos.
Estoy intentando usar un combobox con más de 1 columna del componente MS Forms 2.0 Object Library y sólo consigo añadir los items a la primera columna. ¿Cómo se añaden a las otras columnas?.

Gracias de antemano y saludos.