OBJETIVO: El objetivo de este foro es el de divulgar MS Access y ayudar a los usuarios en la solución de dudas y consultas, siempre indicando el camino, para que el usuario aprenda, estudie y consiga caminar con las propias piernas. No espero nada a cambio (quizás tan sólo un gracias, ya que nadie me paga por hacer esto: gastar conexión, interpretar dudas, ubicar respuestas, en sintesis perder tiempo y/o dinero, sólo por la voluntad de ayudar) e intento siempre motivar al usuario a aprender, dando sólo guías o pistas y en algunos casos algún código completo. No soy de aquellos que gusta dar el código desarrollado y comentado, por el simple hecho de que eso lleva tiempo (no me sobra, ya que trabajo) y mi deseo es incentivarte a aprender.
El hecho que exista este site gratuíto y que lo mantenga en forma diaria, no me obliga a contestar la dudas de los usuarios, y menos aún la de tener que dedicar mi tiempo a desarrollar códigos completos por la falta de delizadeza o exceso de abuso de algunos. Cómo mencioné anteriormente el objetivo es mostrarte el camino...
"No soy favorable de dar pescado (leáse desarrollar código), sino de enseñar a pescar (leáse mostrar cómo desarrollar el código) , ya que así, sí tienes hambre sabrás pescar (leáse voluntad de aprender y crear tus propias aplicaciones) "
Si no te gusta nuestra postura, eres libre de irte y no volver, ya que nada perderás (no has pagado nada). En cambio si lo que deseas es aprender y valorar el esfuerzo y tiempo de otros, estás convidado de por vida por acá!!!
Fucnionar, funciona, pero cómo para abrir el cuadro de dialogo de Widnows (Abrir/Salvar), utilizar llamadas a API, quizás en tu PC no tienes la DLL necesarias.
Comenta que precisas y veré si me doy un tiempo de armarte algo para tu configuración
Gracias por tomarte la molestia de contestarme encuanto a lo que me comentas es sobre la base de datos que bloquea el shift para que no puedan entrar al diseño de la base de datos lo que no hace la base de datos es cuando oprimes los botones no aparece el cuadro para seleccionar la ubicacion de la base de datos que se va a bloquear en pocas palabras no hace nada
No he tendio tiempo apra aramrte algo compatibel con W 2000, epro creo que tu lo puedes armar te paso la fucnión que hace eso (OJO QUE ESTA EN LA AYUDA):
Function CambiarPropiedad(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
CambiarPropiedad = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Propiedad no encontrada.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Error desconocido.
CambiarPropiedad = False
Resume Change_Bye
End If
End Function
CambiarPropiedad "AllowBypassKey", dbBoolean, True
o
CambiarPropiedad "AllowBypassKey", dbBoolean, False
No me quedo muy claro intente con el codigo de me diste no funciona si me pudieras ayudar con la otra opcion que mencionaste del paquete te lo agradeceria mucho
"Los mayores best sellers son los Manuales y Archivos de Ayuda, pero ellos son como los libros de Stephen Hawking: muchos compran, pocos leen y muchos menos entienden alguna cosa."