ACC: Cómo desbloquear dinámicamente un control con un cuadro de mensaje

Seleccione idioma Seleccione idioma
Id. de artículo: 178997 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

Avanzado: Requiere codificación experto, interoperabilidad, conocimientos y multiusuario.

Para proteger los datos en un control en un formulario que se cambien accidentalmente, puede utilizar un cuadro de mensaje para solicitar comprobación cuando intenta escribir datos en ese control. Haciendo clic en Sí en el cuadro de mensaje, se desbloquea el control y permite que escriba.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos. En el ejemplo siguiente se muestra un cuadro de mensaje para comprobar que el usuario desea actualizar el cuadro de texto Descripción en el formulario Categorías Neptuno.mdb.

Advertencia: Seguir los pasos descritos en este ejemplo, modificará la base de datos de ejemplo Neptuno.mdb. Quizás desee hacer copia de seguridad del archivo Neptuno.mdb y realizar estos pasos en una copia de la base de datos.
  1. Inicie Microsoft Access y abra la base de datos de ejemplo Neptuno.mdb.
  2. Abra el formulario categorías en la vista Diseño.
  3. Haga clic en código en el menú Ver y escriba la línea siguiente en la sección Declaraciones:
    Public fEditDescription As Boolean
    					
  4. Establezca la propiedad AlActivarRegistro (OnCurrent) del formulario en el siguiente procedimiento de evento:
          Private Sub Form_Current()
    
             ' Lock the Description control for each record.
             Me!Description.Locked = True
             fEditDescription = False
    
          End Sub
    					
  5. Abrir la hoja de propiedades del cuadro de texto Descripción y cambie la propiedad Locked a sí.
  6. Establezca la propiedad OnKeyDown de descripción en el siguiente procedimiento de evento:
          Private Sub Description_KeyDown(KeyCode As Integer, _
             Shift As Integer)
    
             ' If the field is not flagged for editing, prompt the user
             ' for confirmation about unlocking the control.
             If fEditDescription = False Then
                If MsgBox("Do you want to change Description?", _
                      vbYesNo + vbQuestion + vbDefaultButton2, _
                      "Confirmation") = vbYes Then
    
                   ' If the response is Yes, unlock the field
                   ' and flag it as being edited.
                   Me!Description.Locked = False
                   fEditDescription = True
                End If
             End If
    
          End Sub
    					
  7. Cambie a la vista formulario e intente cambiar el contenido de descripción.

    Observe que aparece un cuadro de mensaje y que le pregunta si desea cambiar la descripción. Si hace clic en Sí, se desbloquea la descripción y puede modificar su contenido para ese registro determinado. Si hace clic en No, descripción permanece bloqueado.

Referencias

Para obtener más información sobre la función MsgBox, busque el índice de Ayuda "msgbox".

Para obtener más información acerca de cómo obtener ayuda acerca de Visual Basic para Aplicaciones, consulte el siguiente artículo en Microsoft Knowledge Base:
163435VBA: Recursos de programación para Visual Basic para aplicaciones

Propiedades

Id. de artículo: 178997 - Última revisión: martes, 11 de febrero de 2014 - Versión: 4.3
La información de este artículo se refiere a:
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbcode kbhowto kbprogramming KB178997 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 178997

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com