SoloCodigo

Utiliza la instrucción de esta forma:

SHELL "MiPrograma.Exe Parametro"

'MiPrograma.Exe' recibirá el valor de 'Parametro' en el objeto 'Command', de forma que obtendrás lo especificado en 'Parametro' como una cadena de texto en la que tú deberás identificar el o los distintos parámetros que hayas escrito.

Mira este ejemplo.

Desde el programa que hace la llamada:

SHELL "MiPrograma.Exe Hola"

Desde 'MiPrograma.Exe:

Private Sub Main
Dim strCmd as string
strCmd = Trim(Command)
If strCmd = "" then
Msgbox "No hay parámetros"
Else
Msgbox "Parámetro: " & strCmd
End if
End Sub

Suerte.

La solución más sencilla es usar la correspondiente sentencia SQL como origen de registros para tu informe. La sintáxis de la sentencia sería de este estilo:

SELECT a.Campo1 , a.Campo2, a.CampoN, b.Campo1, b.CampoN FROM Tabla1 AS a LEFT JOIN Tabla2 AS b ON a.CampoN=b.CampoN

Es decir, en una sola consulta obtienes un recordset con todos los datos que te hagan falta a partir de las distintas tablas.

Ten en cuenta que la sintáxis de la sentencia puede variar (aunque poco) dependiendo del proveedor de la base de datos.
Otro detalle está en la palabra clave de unión (LEFT JOIN en el ejemplo) que podría ser INNER JOIN, RIGHT JOIN, EXCEPTION JOIN , JOIN ... dependiendo de la unión que quieras hacer y las relaciones entre las tablas. Si tienes problemas para construir la sentencia, te recomiendo que si usas una base de datos jet, utilices el generador de consultas de Access, uses la vista SQL de la consulta y observes como es la correspondiente sentencia SQL.

Sort.

Si te da ese mensaje puede ser por una de las razones siguientes:
- El sistema no puede reconocer la clase 'SpecialFolders' en la biblioteca 'Toolsack'.
- No se puede encontrar la biblioteca 'Toolsack'.
- La biblioteca 'Toolsack' no está correctamente registrada.

Aupa.

Échale un vistazo a este link a ver si te sirve para lo que quieres.

Http://guille.costasol.net/ejemplos/crear_links.htm

Agur.

Muchas gracias por tu respuesta.

Lo más lógico era suponer que sucediera como me cuentas, al fin y al cabo Dim es una instrucción, y mientras no se ejecute entiendo que no se debería notar ningún efecto. La incógnita para mi era si una vez que el programa se compila sigue ocurriendo lo mismo.
Bueno, me iré acostumbrando a declarar las variables conforme las vaya necesitando...

Muchas gracias de nuevo y recibe un cordial saludo.

Hace tiempo que me pregunto si es indiferente el momento en que se declara cada variable dentro de una sub o función. Normalmente declaro las variables al comienzo del procedimiento, más que nada por verlas todas juntas, pero cada vez que hago esto se me plantea la siguiente cuestión: Si una variable de las declaradas sólo se usa cuando se cumple una determinada condición tal vez convendría declararla en el momento que se va a usar. Es decir, imaginaos un código de este estilo

     Dim lng1 as Long , lng2 as Long

     If Condicion Then
         lng1 = 111111
         Msgbox lng1

         Exit Sub

     Else
         Lng1 = 222222
         Lng2 = 333333
               .
               .
               .
     End If

Supongo que si defino las variables al principio automáticamente se asigna memoria para ellas. Sin embargo, si hago lo siguiente

     Dim lng1 as Long
     If Condicion Then
         lng1 = 111111
         Msgbox lng1

         Exit Sub

     Else
         lng1 = 222222
         Dim lng2 as Long
         lng2 = 333333
               .
               .
               .
     End If

¿Si se cumple la condición me he ahorrado el espacio en memoria para lng2? Sospecho que realmente es así pero me gustaría confirmarlo.

Saludos a todos.

Se podría probar con algo así:

Private Function ChkRegCom() as Boolean
On error Goto Error_Registro
Dim obj1 as Object
Set obj1 = CreateObject("NombreDeClase")
ChkRegCom = True
Salir_Registro:
Set obj1 = Nothing
Exit Function
Error_Registro:
If Err.Number <> 429 Then MsgBox(Err.Number & "  " & Err.Description, vbCritical, "Error")
Resume Salir_Registro
End Function

Si no se puede crear la clase "NombreDeClase", se desencadenará un error 429 (el componente activeX no puede crear el objeto), con lo que abría que registrarlo.

También podríais crear una clave en el registro con datos de vuestra aplicación y chequearla antes de llamar al programa que crea los componentes.

Espero que esto sirva para vuestros propósitos.
Suerte.

No te preocupes hombre... Hace poco leí en no se dónde: "No hay preguntas tontas, sino tontos que no preguntan".

En tiempo de diseño abre la página de propiedades del control, selecciona la pestaña 'Diseño', elige la columna que quieras y modifica la alineación en los combos correspondientes.

En tiempo de ejecución:
DataGrid1.Columns(2).Alignment = dbgLeft
Por ejemplo.

Sort.

A ver si me aclaro...

En principio no veo la necesidad de que las historias clínicas vayan en la tabla ordenadas como indicas, ya te ocuparás tú al darles salida de ordenarlas.
Lo único que se me ocurre por lo que puedas necesitar tener los registros ordenados en la tabla es que tuvieras la necesidad de asignar un cierto número consecutivo a esos historiales. Es decir,
Del número 1 al 500, historiales con 'A' , del número 501 al 100, historiales con 'B', etc.
Aún en este caso no tienes necesidad de grabar ordenadamente. Necesitarás un campo en la tabla de historiales para almacenar el número que quieres asignar (que este indexado preferiblemente) y otra tabla para controlar la numeración asignada a cada letra de apellido. Algo así:

Numero_Desde  Numero_Hasta   Letra
              1                         500                   A
         501                        1000                  B
             .                               .                      .
             .                               .                      .
    100001                    100500                Z

Esta tabla la tendrías que actualizar cuando el número de historiales en el intervalo de la letra se te quedara corto. Si no tuvieras las tablas correctamente relacionadas, también tendrías que actualizar los números de la tabla de historiales. Ten entonces en cuenta que el número de los historiales puede variar. Si quieres evitarlo debes hacer el intervalo para cada letra lo suficientemente grande y añadir de alguna forma al número de cada historial el año, de forma que puedas reutilizar anualmente los números del intervalo definido.

En fin... no sé si esto realmente se ajusta a tú caso y no me habré enrrollado mucho.De todas formas no puedes esperar que en un foro alguien te haga el análisis de una aplicación, eso debes currártelo tú, pero algunas ideas seguro que te valen.

Espero que te sirva.
Suerte.

Donde dice:

rsbusca.Source = "select p.idproducto, p.nombreproducto, p.idcategoría, p.cantidadporunidad, p.preciounidad, c.NombreCategoría from productos p, categorías c where p.idcategoría=c.idcategoría and nombreproducto like '" & Text1.Text & "%' order by nombreproducto"

Debería decir:

rsbusca.Source = "select p.idproducto, p.nombreproducto, p.idcategoría, p.cantidadporunidad, p.preciounidad, c.NombreCategoría from productos p, categorías c where p.idcategoría=c.idcategoría and nombreproducto like '" & Replace(Text1.Text, Chr(29), Chr(180)) & "%' order by nombreproducto"

Por otro lado si metes este código en el evento Change del TextBox, cada vez que el usuario pulse una tecla y se modifique el contenido del textbox, se desencadenará el evento y la consiguiente consulta, cosa que no creo que te interese.
Puedes programar el evento Validate (ojo con la propiedad CauseValidation del resto de los controles) o puedes utilizar el evento LostFocus o puedes añadir un CommandButton o algo así para ejecutar la consulta.

A ver si esto te sirve. Suerte.

Cuando concatenes o montes la sentencia SQL , puedes hacer lo siguiente:

Replace(Text1.Text, Chr(29), Chr(180))

Que es ni más ni menos que sustituir el carácter ' (Chr(29)) por ´ (Chr(180)). Luego, a la hora de presentar el campo si te importa el que el carácter esté cambiado, haz el proceso contrario:

Text1.Text = Replace(Recordset1.Fields(0).Valur, Chr(180), Chr(29))

Otra cosa que podrías hacer es en el evento 'KeyPress' del TextBox, cambiar la pulsación de ' por ´ o otro carácter que tu vieras:

If KeyAscii = 29 Then KeyAscii = 180

Espero que esto te sirva de ayuda.
Suerte.

Prueba con algo de este tipo:

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Function LeerIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, Optional ByVal DftValor As String) As String

    Dim lng1 As Long
    LeerIni = Space(255)
    lng1 = GetPrivateProfileString(Seccion, Clave, DftValor, LeerIni, 255, IniFile)
    LeerIni = Left(LeerIni, lng1)
   
End Function

Private Sub EscribirIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, ByVal Valor As String)

    Dim lng1 As Long
    lng1 = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)
   
End Sub

Otra forma muy sencilla sería utilizando el registro. Podrías utilizar las apis necesarias para crear tus claves en la sección del registro que necesitaras, pero más sencillo y despreocupado resultaría utilizar 'SaveSetting' para guardar los valores de las propiedades y 'GetSetting' para recuperarlos, y luego 'DeleteSetting' cuando quieras borrar la propiedad del registro.

Espero que esto te vaya bien.
Suerte.