Home‎ > ‎

Desbloquear un Solo Campo

Pregunta el Amigo Cesar del Foro LWP
 
Tengo un formulario con varios campos:
Fecha, Motivo, Alternativa, Estatus, Fecha2.
Las propiedades del formulario se modificaron para que solo se permita agregar nuevos registros y no se permita modificar los existentes.
¿De qué manera se puede solo desbolquear el campo "Estatus" en los registros existentes para que pueda ser modificado?
Estaré muy agredecido si alguien me puede ayudar.
Saludos desde México
.
 
********************************************     El Codigo    ***************************************************************
Function DesblCampoJJJT(frm As Form, tlt As String)
'Como desbloquear un campo en especifico
'Si el formulario esta establecido como No Editable
'**************************** Jefferson Jimenez (JJJT)
'********************************* Cabimas - Venezuela
'****************************************** Junio 2009
'******************************************************
'primero pregunto si se desea editar el campo
prg = MsgBox("Seguro desea editar el campo: " & tlt, vbExclamation + vbYesNo, "Edit")
If prg = vbYes Then 'si la respuesta es SI
Dim ctr As Control 'las variables
Dim ctrfrm As Form
Set ctrfrm = frm 'establezco el form y desbloqueo todo
With ctrfrm
.AllowAdditions = True
.AllowDeletions = True
.AllowEdits = True
End With
For Each ctr In ctrfrm 'recorro los controles del form
With ctr
If .ControlType = acTextBox And .Name <> tlt Then 'la condicion
.Locked = True
End If
End With
Next ctr
End If
End Function ' adios (JJJT) 
 
 
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  36 kb v. 1 20 jun. 2009 21:13 Jefferson Jimenez
Comments