CODIGO VISUAL BASIC para ACCESS

CODIGO VISUAL BASIC:

MsgBox Screen.PreviousControl.Name       'nombre del control previo
MsgBox Screen.ActiveControl.Name          'nombre del control activo
MsgBox Screen.ActiveForm.Name             'nombre del Form Activo
MsgBox Screen.Application.Name             'nombre de la aplicacion
MsgBox Screen.Parent.Name                    '
MsgBox Screen.ActiveDatasheet.Name      'nombre de la hola activa

Me.PrecioUn = Format(Codigo.Column(2), "#0.00")          'FORMATEA A 2 DECIMALES

Text1.SelStart = Len(Text1)  'SELECCIONA TODO EL TEXTO

Me.Report.RecordSource = Form_ListaDeFacturas.Form.RecordSource  'AL ABRIR EL INFORME INGRESA COMO ORIGEN DEL INFORME SEGUN EL DEL FORMULARIO  ListaDeFacturas

Screen.PreviousControl.SetFocus         'para devolver una referencia al último control que ha recibido el enfoque. Sólo lectura.

Print.Cancel                                                       'NO IMPRIME UNA SECCION DE UN INFORME
MoveLayout, NextRecord y PrintSection ,              'PROPIEDADES DE UN INFORME EN TRUE PASAR A FALSE Y MODIFICAMOS QUE IMPRIMIMOS
IDCodigo.DefaultValue = Forms!Suscriptores!IDSuscriptores       'PONE COMO VALOR POR DEFECTO
if KeyCode = 49 And Shift=2 Then                    'SE HA PULSADO CTROL+1
CdoCombinado52.BackColor=16777215             ' PONE EL FONDO EN COLOR BLANCO
Me.Form.DataEntry = True                               'PONE EN ESTADO DE ENTRADA DE DATOS A VERDADERO
vbNewLine                                                      'RETORNO DE CARRO SEGUIDO DE NUEVA LINEA.
Me!cmdSizeButton.Height = 1440    ' 1440 twips = 1 inch.
DoCmd.ShowToolbar                                       'MUESTRA LA BARRA DE HERRAMIENTAS
SendKeys "{Home}+{End}"

CAMBIAR EL ANCHO DEL FORMULARIO :
MoveSize(Right, Down, Width, Height)
DoCmd.MoveSize (5320), (2500), (5000), (1000)  'Margen izquierdo ;Margen desde arriba;Ancho;Alto;

DoCmd.MoveSize (5320), (2200), (12000), (8500)   'son en CM ejemplo abajo
DoCmd.MoveSize (10 cm), (5 cm), (18 cm), (12 cm)

DoCmd.RunCommand acCmdRecordsGoToNext            ' Edit, GoTo, Next
DoCmd.RunCommand acCmdAddInManager                 'MUESTRA LOS COMPLEMENTOS
DoCmd.RunCommand acCmdAnswerWizard                 'MUESTRA LA AYUDA DE ACCEES
DoCmd.Restore                                                            'RESTAURA EL FORMULARIO
DoCmd.RunCommand acCmdAddWatch                         'AGREGAR INSPECION NO FUNCIONA EN UN BOTON.
DoCmd.RunCommand acCmdAdvancedFilterSort             'FILTRO U ORDEN AVANZADO
DoCmd.RunCommand acCmdAlignBottom                        'ALINEAR INFERIOR
DoCmd.RunCommand acCmdAlignmentAndSizing           'alineacion y tamanño
DoCmd.RunCommand acCmdAnalyzeTable                     'ASISTENTE PARA ANALIZAR TABLAS.
DoCmd.RunCommand acCmdAppMaximize                    'MAXIMIZA TODO ACCESS
DoCmd.RunCommand acCmdAppRestore                     ' RESTAUARA TODO ACCESS
DoCmd.RunCommand acCmdAppMinimize                    'MINIMIZA TODO ACCESS
DoCmd.RunCommand acCmdAppMove                           'MUEVE TOD ACCESS
DoCmd.RunCommand acCmdDocMaximize                    'MAXIMIZA LA VENTANA ACTIVA
DoCmd.RunCommand acCmdAutoCorrect                       'aBRE EL ASISTENTE DE AUTOCORRECCION
DoCmd.RunCommand acCmdExit                                   'SALE DE ACCESS
DoCmd.RunCommand acCmdAppSize                            ' PONE EL CURSO MOVER
DoCmd.RunCommand acCmdExport                                'EXPORTAR EL OBJETO ACTIVO
DoCmd.RunCommand acCmdMicrosoftOnTheWeb            ' ABRE INTERNET EXPLORER
DoCmd.RunCommand acCmdMoreWindows                    'ABRE PARA SELECIONAR VENTANA
DoCmd.RunCommand acCmdNewObjectForm                'ABRE ASISTENTE PARA CREA UN NUEVO FORM
DoCmd.RunCommand acCmdOfficeClipboard                'ABRE EL PORTAPAPELES
DoCmd.RunCommand acCmdClose                              ' CIERRA LA VENTANA ACTIVA
DoCmd.RunCommand acCmdOptions                            'ABRE LA VENTAN DE OPCIONES DE ACCESS
DoCmd.RunCommand acCmdSetDatabasePassword    'ABRE LA VENTANA PARA PONER CONTRASEÑA AL MDB
DoCmd.RunCommand acCmdCloseWindow                 ' CIERRA LA VENTANA ACTIVA
DoCmd.RunCommand acCmdDatabaseProperties         'MUESTRA LAS PROPIEDADES DE LA BASE DE DATOS
Application.RunCommand acCmdOptions                       'ABRE EL FORM DE OPCIONES DE ACCESS
DoCmd.RunCommand acCmdWindowHide
DoCmd.RunCommand acCmdDataEntry
DoCmd.RunCommand acCmdSaveRecord                     'GUARDAR EL REGISTRO
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70       'GUARDA EL REGISTRO
DoCmd.GoToRecord , , acNewRec                               'SE MUEVE A UN NUEVO REGISTRO
DoCmd.GoToRecord , , acFirst                                    'se mueve al primero REGISTRO
DoCmd.Close acForm                                                 ' CIERRA EL FORMULARIO
DoCmd.OpenForm "frmParmVentasLibro"                     'ABRE EL FORM
DoCmd.OpenForm FormName:="frmPagos", WindowMode:=acHidden
DoCmd.Close acForm, Me.Name
DoCmd.SelectObject acForm, "frmPrincipal",                             'SELECCIONA EL FORM
DoCmd.RunMacro "Lista de Productos.SegPreciosMod", , ""          EJECUTA LA MACRO
Forms!frmPrincipal.SetFocus
Forms!Ordenes1!NroOrden = DMax("[NroOrden]", "[Ordenes]") + 1
DoCmd.RunCommand acCmdZoom75
Application.Echo False
Application.CreateForm                                                 'crear un formulario
Application.CreateReport                                                'crea UN INFORME
Application.SetOption "Show Status Bar", True                'VISUALIZA LA BARRA DE ESTADO