[access] ver diseño de un formulario

[ircop]

el caso es que he personalizado las barras de herramienas, el menu contextual, y me arranca el. mdb desde un formulario de inicio

pero ahora no puedo volver a ver el diseño del formulario!!

pq no me deja acceder desde el menu contextual ni desde VER-Diseño

alguna tecla rapida, para ello?


graicas

[Taribo007]

Mira si puedes abrir la bd manteniendo pulsada la tecla shift (mayusculas) al hacer doble click sobre el archivo. Deberias poder a menos que tu hayas desactivado esta opcion. De no poder, se puede activar y desactivar por codigo, cuentanos.

UN saludo

[ircop]

pues con la tecla SHIFT, me deja ver el boton de diseño, pero tuve que probar en otra base de datos, pq al final borra la original.

y como es lo del diseño que comentas?


gracias, como sabeis tanto de access?? joer k genios

[Taribo007]

Aqui estan las dos funciones para habilitar y deshabilitar la tecla shift:

'************************************************* ************
Option Compare Database
Option Explicit
Function ap_DisableShift()

On Error GoTo errDisableShift

Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()

db.Properties("AllowByPassKey") = False

Exit Function

errDisableShift:

If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If

End Function
'================================================= ===========
Function ap_EnableShift()

On Error GoTo errEnableShift

Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()
db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:

If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If

End Function
'*******************************************+
Estoy buscando un ejemplo que tengo de un maquina del access (el buho), en el que tienes un botoncito para buscar la bd que quieres habilitar o deshabilitar esta funcion.

Un saludo

[Taribo007]

Aqui tienes el ejemplo con todo mascadito:

http://accessbuho.mvps.org/ficheros/quitaponshift.zip

Un saludo

[ircop]

joer mil gracias

ahora me pongo a estudiar el ejemplo