SoloCodigo

Hola, Kennety:

Yo pienso que esos equipos son antediluvianos... porque ¡cuidado que hace años y años que funciona el LapLink para trasmisión de datos por puerto paralelo...! Y por supuesto el puerto paralelo servía tanto para output como para input... Tienen, repito, que ser muy viejos esos trastos, y no me extraña que te hayan tenido majara...

Congratulaciones por haber dado con el quid, y un saludo

Hola, Roberto:
Se te ha olvidado que el límite de los ficheros adjuntos es de 64 Kb.  Por eso los dos ficheros que has adjuntado dan error de incompletos.
Ya sabes, o FTP o toma nota de cuantos te pedimos que nos lo envíes por e-mail, con gracias anticipadas...

Saludos

Mira este pequeño paquete. Creo que lo bajé de la Web del Programador, pero no estoy seguro.
Tiene varias fórmulas, sobre todo en el fichero Shell_vb.txt: alguna de ellas te dará la solución que buscas.

Saludos y suerte

Me encanta tu alegría, Macarena.
Y me gustaría que me hicieses partícipe de tus avances: además de que yo voy a aprender, es bueno que tú te sientas "profesora", y que ese estímulo te anime a seguir por ese buen camino del altruísmo.

Gracias y un abrazo

Hola Jaume: por supuesto que es Roberto quien tiene la última palabra.
Yo he interpretado que a él le duele el que estén usando su programa desde equipos para los cuales él no ha cedido la licencia; por eso le he presentado mi versión, con la que creo que puede controlar precisamente ese abuso de su cliente.
Si tuviera que afinar más e impedir que se use desde equipos distintos a los predeterminados, podría grabar en el PrgSetup el nombre interno de cada máquina. Pero eso sólo en el caso de que haya un informático interesado en hacerle a Roberto la pascua...
Con tu versión sospecho que podrán seguir utilizándola los 200 equipos para los que él no ha autorizado su uso.  Eso es lo que yo entiendo.
En todo caso, perdona si interpretas que me he metido donde tú ya habías sentado plaza; mi idea es que en un foro puede uno meter baza, e incluso meter la pata, como hacemos muchas veces con la mejor intención.

Un abrazo a ambos

A mi entender, la solución que plantea Jaume únicamente limita el número de usuarios que pueden abrir simultáneamente la aplicación; pero con tal de que no estén activos más de 17, la aplicación puede ejecutarse desde 200 equipos.

Mi solución es la siguiente:

Primero: En cada equipo con licencia abres un directorio con el nombre, por ejemplo, de tu aplicación ("miAplicac", para mi ejemplo)
y en el mismo copias el fichero UsuSetup.mdb que te adjunto.  ¡¡¡Atención!!! Cada usuario tendrá grabado en el campo PdeP su propia Clave de Acceso (Palabra de Paso), que ha de coincidir con la que tú definas en el registro correspondiente a ese número de usuario en el otro fichero PrgSetup.mdb, que también te adjunto.

Esa Clave de acceso, estará lógicamente encriptada.

Segundo:  En el Servidor, en el directorio de tu propia aplicación, grabas el fichero antedicho PrgSetup.mdb, y encriptas también este fichero.
Previamente, en PrgSetup.mdb habrás generado los 17 registros para tus 17 usuarios, y en cada uno habrás grabado encriptada la clave de acceso correspondiente, en el campo PdeP
Puedes en este fichero incrementar nuevos campos, como puede ser por ejemplo la ruta para la base de datos común de la aplicación, por si no quieres tenerla en App.Path; el nombre personalizado de cada usuario, por si quieres hacer esquisiteces...

Tercero: En el Objeto inicial de tu proyecto, lo primero que haces es pedir al usuario su Número de Usuario que volcarás en una variable NumUsu, por ejemplo; luego desencriptas el fichero App.Path & "Prgsetup.mdb". lo abres y ejecutas un MoveNext hasta situarte en el registro correspondiente al NumUsu; defines una variable MiControl = M_Empres!PdeP

Cuarto: Abres el fichero "C:MiAplicacUsuSetup.mdb"; la tabla "M_Usuar" y comparas si el campo "PdeP" es igual a la variable "MiControl". De esta forma cada usuario tiene que tener una sóla clave. Si la comparación es falsa, haces un End tras presentar mensaje de que "Usted no es el Usuario Núm. " & NumUsu.  
Puedes incluso añadir el nombre propio del usuario, para que quede personalizado... Eso a gusto del consumidor.

Quinto: Luego desencriptas MiControl y preguntas al usuario su palabra de paso, para dárselo si coincide con el password que le habías grabado tú.

Naturalmente tienes que trabajarte este sistema, haciéndote una rutina externa con la cual crear los registros de cada usuario con su password encriptado, y que al mismo tiempo genere un fichero UsuSetup.mdb con una tabla M_Usuar que contenga esa misma clave en su campo PdeP

Saludos y suerte

Soy de la opinión de HurryCrack, en el sentido de que no es muy útil actualizar los campos del dbGrid directamente (aunque sé de varios ejemplos que te lo permiten). Todos ellos crean confusión cuando incrementas un registro.

Yo te adjunto un ejemplo que espero te guste. Ya me contarás.

Saludos y suerte

He hecho multitud de pruebas tratando de sustituir las comillas simples por dobles, insertando el chr(39). Nada, imposible.

Iba a proponerte como solución simulada que pusieras un espacio acentuado (´) que es muy parecido a ('); pero me parece mejor fórmula la de Majuhemo, pudiendo utilizar como comodín cualquier otro carácter si es que la interrogación puede formar parte normal de alguno de tus campos.

Suerte

Yo te aconsejo que no busques muy lejos... Porque si tratas de acceder a los datos del ADO antes del Refresh comprobarás que te da error; pero en cuanto haces el Refresh verás que accedes perfectamente, lo cual debe hacerte pensar que el error te lo da la SQL siguiente. Salvo error u omisión, que se dice habitualmente...

Saludos y que encuentres pronto la solución

Muchas gracias por el arreglo. La pregunta ha quedado perfectamente expuesta, aunque no coincida con la que yo propusiera, que tampoco la recuerdo.

Reitero mi agradecimiento por esto y por vuestra labor en general.

Lo siento, Michael; no sé qué quieres decir: ¿Que te presenta la fecha en formato MM/dd/aaaa, por ejemplo, y te pone 2 de junio en lugar de 6 de febrero?

Si es esto, revisa cómo tienes diseñada la Fecha en la Configuración regional del Panel de Control.

Saludos y feliz Pascua

Pues, simplemente, en el momento y punto en que quieras que suene, escribes la línea
Beep

El ejemplo que trae MSDN es exactamente

Dim I
For I = 1 To 3   ' Realiza un bucle 3 veces.
   Beep   ' Emite un tono.
Next I

Saludos y feliz Pascua