CODIGO VISUAL BASIC para ACCESS

LISTA DE ATAJOS DE COMANDO  ÚTILES PARA ACCESS


Muy utlies:

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




                                             vb.net

Comentarios

Populares

Buscar en este blog