El siguiente ejemplo agrega un boton de comando e inserta un subprocedimiento de evento Click llamado nuevo_cliente_click en el formulario Cuenta -***************************** Dim sprocText as string Dim cmdBoton as Control SprocText="Private sub Nuevo_Cliente_Clic() " & vbcrlf Sproctext=sProcText & "MsgBox ""Un nuevo cliente agreagado""" & vbcrlf Sproctext=sProctext & "End Sub" & vbcrlf Docmd.OpenForm "Cuenta",acDesign Set cmdBoton=CreateControl("Cuenta",acCommandButton,acDetail,"","",(3.25*1440),(0.9583*1440)(1.0417*1440),(0.25*1140) CmdBoton.Name="nuevo_Cliente" cmdBoton.OnClick="[Procedimiento de Evento]" CmdBoton.Caption="Nuevo Cliente" Forms![Cuenta].Module.InsertText sproctext Docmd.close acForm,"Cuenta",acSaveyes Docmd.OpenForm "Cuenta" Busquen informacion sobre; -AddFromFile -CreateEventProc -InsertLines -ReplaceLine -DeleteLines -ProcBodyLine -ProcstartLine -Proccountlines Sacado del libro "los secretos de Access 97" por Cary N Prague/willian C. amo/James D Foxall pagina587, editorial ANAYA---visiten (si existe no lo se) la dir; http://www.caryp.com