Cómo emplear la utilidad Administrador de grupos de trabajo en Access 2007

Cómo emplear la utilidad Administrador de grupos de trabajo en Access 2007

Nota de Microsoft

INTRODUCCIÓN

En este artículo se describe cómo emplear la utilidad Administrador de grupos de trabajo en Microsoft Office Access 2007.

Nota: la seguridad de nivel de usuario no existe en un archivo .accdb,

 aunque puede ejecutar la utilidad Administrador de grupos de trabajo desde un archivo .accdb en Access 2007.

Más información

Para utilizar el Administrador de grupos de trabajo en versiones anteriores de Access,

 puede hacer clic en Administrador de grupos de trabajo en Seguridad en el menú Herramientas.

 Para emplear la utilidad Administrador de grupos de trabajo en Access 2007,

 utilice uno de los métodos siguientes.

Método 1: utilice código de Visual Basic

Para utilizar código de Visual Basic, use uno de los métodos siguientes.•

 Ejecute el código de Visual Basic en la ventana Inmediata:1. En Access 2007, 

abra una base de datos de confianza o habilite las macros en la base de datos existente. 

2. Presione Ctrl+G para abrir la ventana Inmediata. 

3. Escriba la línea siguiente de código y presione Entrar.

¿Cómo mostrar rápidamente una lista de constantes de Access ?.

Para mostrar una lista de las constantes intrínsecas de Access, basta con abrir cualquier módulo y pulsar CTRL+J. Access mostrará una lista desplegadle con las constantes. También puede pulsar F2 para mostrar el examinador de Objetos y elegir la librería apropiada.

Metodos Abreviados de MS Access

Teclas de Método Abreviado para introducir datos repetitivos. 

Usar las teclas de método abreviado globales de Microsoft Access
Usar las teclas de método abreviado para seleccionar texto o datos
Usar las teclas de método abreviado para modificar texto o datos
Usar las teclas de método abreviado para desplazarse en la vista Hoja de datos
Usar las teclas de método abreviado de los menús
Usar las teclas de método abreviado de las ventanas y los cuadros de diálogo

Vincular remotamente Access por VPN con GBridge

Bueno voy a explicar con otros detalles como vincular nuestras tablas de Access con nuestro Front End usando Gbridge, la nota inicial la tome del Blog de Juan Cost el cual tiene muy buenos ejemplos sobre el uso de Access y me comunique con el para poder exponer mi experiencia, su blog que hace referencia a esta nota es

http://accessjuancots.blogspot.com.ar/2009/09/vincular-remotamente-por-vpn-con.html

yo en principio como otros usuarios tuve problemas con la puesta en marcha de la vinculacion pero leyendo y probando llegue al resultado exitoso !!

el cual comparto con todos ustedes.

Voy a empezar desde el principio.

Una vez descargado el archivo ejecutable desde http://www.gbridge.com/

1) Lo ejecutamos y empieza la instalación...

Colocar un reloj en un formulario:

Se puede hacer de dos maneras, con un campo de texto o con una etiqueta.

 Vamos a hacerlo con una etiqueta a la que le llamamos lblHora O  COMO EL EJ: lblClock (Me muestra la fecha y hora)

 En el formulario, en la propiedad Al intervalo del cronómetro escribimos 1000.

 En el código de evento AlCronómetro del formulario escribimos me.lblHora.caption=Time.

 

 

Private Sub Form_Timer()

lblClock.Caption = Now

lblTime.Caption = time

End Sub

COMO EJECUTAR UNA MACRO DE VB

COMO EJECUTAR UNA MACRO DE VB: (Nombre de la macro y la submacro dentro)

 

DoCmd.RunMacro "Lista de Productos.SegPreciosMod", , ""  '(Nombre de la macro y la submacro dentro)

Realiza una selección de todo el contenido de un cuadro de texto

Public Sub SelectAll(CuadroTexto As Object)

 

'-- Realiza una selección de todo el contenido de un cuadro de texto

With CuadroTexto

  .SelStart = 0

  .SelLength = Len(CuadroTexto.Text)

End With

 

End Sub

copia el registro existente y crea un nuevo registro

Este ejemplo copia el registro existente y crea un nuevo registro con exactamente la misma información.

 

Private Sub cmdInsert_Click() Private Sub cmdInsert_Click () 

 

DoCmd.RunCommand acCmdSelectRecord 

DoCmd.RunCommand acCmdCopy 

DoCmd.RunCommand acCmdPasteAppend 

 

End Sub

AL NO ESTAR EN LA LISTA DE UN CUADRO COMBINADO (AGREGA EL DATO QUE UNO ESCRIBE EN LA TABLA AJENA)

Procedimiento para agregar un vendedor que no existe en la base de datos.

 

Response = 0

    Dim X As Integer, newcode As Long

    

    X = MsgBox("El VENDEDOR QUE ESCRIBIO no existe en el programa, desea agregarlo?", vbYesNo)

    If X <> 6 Then Exit Sub

    

    Dim DB As DAO.Database

    Dim RS As DAO.Recordset

    Set DB = CurrentDb   'selecciona la base de datos como la actual

    Set RS = DB.OpenRecordset("Empleados", dbOpenDynaset) 'Nombre de la Tabla a la cual le agregamos el dato

    

    RS.AddNew              'se dirije a un nuevo registro

    RS(1) = NewData        ' e inserta en el registro el valor de lo que escribimos en el campo..

    [CdoVendedor] = RS(0)      'Nombre del campo de la ficha Otras

    RS(3) = Val(3)        'Agregue el valor de la tabla categoria num 3 que corresponde al vendedor

                           'en el campo de la tabla de empleados

    RS.Update            'actualiza

    RS.Close             'cierra el recorset o tabla

    DB.Close             'cierra la base de datos

   

 

COMO ESTABLECER EL VALOR PREDETERMINADO DE UN CAMPO DEPENDIENDO DE OTRO

Ejemplo para un campo fecha: 

se puede ingresar el siguiente procedimiento cuando se abre el Formulario, en el evento OnLoad, se ingresara la fecha actual.

 

Me.FechaDeAlta.DefaultValue = "#" + CStr(Day(Fecha)) + "/" + CStr(Month(Fecha)) + "/" + 

CARGA LOS DATOS DE UNA TABLA O CONSULTA A UN FORM CUANDO SE CARGA O ABRE

*CARGA LOS DATOS DE UNA TABLA O CONSULTA  A UN FORM CUANDO SE CARGA O ABRE:

 

En el evento al Cargar o Abrir ingresas el siguiente codigo

 

Me.Form.RecordSource = "Clientes"  (Muestra la tabla Clientes al Cargar el Formulario)

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

Funciones de Formato:

 

=Formato(([Subtotal]*[Bonificacion]),"Fijo")  'INGRESA EL NUMERO en dos decimales
=[id_cliente].[column](4)                            'SELECCIONA LA COLUMNA 4
="Página " & +Val(31)+1+[Página]            ' COMIENZA POR LA PAGINA 32 HASTA...

SemanaProgramada: Formato$([FechaRetiro],"ee",0,0)   ----- >   Ingresa la semana del año o se puede usar "ww"
TotalRecepcion: Suma(Round([CantUnitaria],1))             ----- > Redondea un numero a tantos decimales
DoCmd.RunCommand acCmdAddInManager                         'MUESTRA LOS COMPLEMENTOS
DoCmd.RunCommand acCmdAnswerWizard                         'MUESTRA LA AYUDA DE ACCESS
DoCmd.Restore                                                                  'RESTAURA EL FORMULARIO

       

para usar en campos de consultas (fechas):

Mes: (Formato([FechaNConf],"mmm"" '""aaaa"))
NAño: Año([Fecha])                'NOS DEVUELVE EL NUMERO DEL AÑO
Nmes: Mes([Fecha])                  'NOS DEVUELVE EL NUMERO DEL MES
Alicuota_%: Formato(0) & Formato(" %")

-----------

FUNCIONES DE DOMINIO:

FUNCIONES DE DOMINIO:

=Abs(Suma([NOIngresoalCertamen]=Falso))        'PONE UN VALOR NEGATIVO EN POSITIVO, Y EL EJ: SUMA CUANDO [NOIngresoalCertamen]=Falso)
=Mayús([Color])
Ciudades: Mayús([Ciudad])                                ' convierte la Ciudad escrita en minuscula en Mayuscula
=Mayús([Apellido y Nombres])               
TipoAjustes: Elegir([Tipo de Ajustes],"Ajuste","Sucursal","Varios")    'Funcion Elegir
 =DMáx("[IdRto]","[Remito]")+1                                                        ' Suma al ultimo campo IdRto + 1

=DSuma(" INGRESO - SALIDA ","MOVIMIENTO_BBVA","Fecha <= Forms!Banco.Fecha")
 DBúsq("[Codigo]","[Productos]","[Codigo]=Formularios![Lista de Productos]![Codigo]")    'PARA SABER SI ESTA DUPLICADO DESPUES ACCION CANCELAR EVENTO Y DETENER MACRO

=DBúsq("[Aplicacion]","Datos de la empresa")              'BUSCA EL DATO "Aplicacion" EN LA TABLA "Datos de la empresa"

=DCont("*","Boleta A")                                          ' CUENTA LA CANTIDAD DE REGISTROS DE LA TABLA "Boleta A"

¿Se puede crear campos desde una base de datos hacia otra?

La pregunta es para agregar campos en la base de datos de un cliente sin tener que estar presente en la PC, osea se le envia el archivo lo 

ejecuta y automáticamente se agreguen los campos a la base de datos en cuestion.

Public Function CrearCamposRemotamente()
Dim app As Application
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase "C:\Documents and Settings\x\Mis documentos\ACCESS 2000\Clientes.mdb"
app.DoCmd.SetWarnings False

app.DoCmd.RunSQL "ALTER TABLE CODIVA ADD COLUMN EmpresaEnvio TEXT (255), DireccionEnvio TEXT (255), CodPostalEnvio TEXT (10), " & _
                "PoblacionEnvio TEXT (150), ProvinciaEnvio TEXT (100), PaisEnvio INTEGER"

Fuente para crear Codigo de Barras

Codigo de Barras

Para que lea código de barras: hola a todos ... tengo un problema estoy realizando un sistema escolar mismo que despliega
 información en reportes dicha información se encuentra en código de barras para lo que utilizo la fuente 3of9barcode, 
el problema esta en que como lo menciona esta fuente para que la pistola del código de barras pueda reconocerla necesito 
agregar un * al principio y al final y pues no tengo ni idea de como hacerlo debido a que la información la obtengo  de la base de datos en Access entonces como le agrego al reporte que realizo en esos asteriscos...
  

Luego tenes que ir al diseño del informe donde aparece el código de barras. Ubicá el control que muestra el código y formatealo de la siguiente manera: supongamos que el control tiene como origen un campo de una tabla/consulta que se llama IdAlumno: tenés que poner en el origen ="*"&format(IdAlumno,"0000")&"*" 
Existen fuentes para imprimir codigo de barras 
3of9; Code39; EAN13; Fre3of9x; Free3of9 todas .ttf 
Las cuales utilizas poniendoles un asterisco al inicio y al final 

 

Descarga la Fuente desde;

http://www.mediafire.com/?lu9j1bvdgd493dk

 

Como ver los datos de un formulario continuo según el origen de datos o filtro

El siguiente ejemplos nos detalla como poder ver los datos de un formulario continuo en un informe.

 

Hola a todos lo que hago es lo siguiente en un informe pego los campos del Formulario continuo y sobre este informe le dejo vacio el "Origen del registro" y solo en el evento del Informe al Abrir ingreso el siguiente codigo

 

 

Private Sub Report_Open(Cancel As Integer)

On Error Resume Next

 

   

If Form_Continuo.FilterOn = True Then

        mifiltro = Form_Continuo.Filter

        Me.Report.Report.Report.RecordSource = Form_Continuo.Form.RecordSource

        Me.Report.Filter = mifiltro

        Me.Report.FilterOn = True

    Else

         Me.Report.Report.Report.RecordSource = Form_Continuo.Form.RecordSource

        Me.Report.Filter = ""

        Me.Report.FilterOn = True

    End If

End Sub

 

 

 

Descargar Ejemplo

9

 

9

 

FreeDFD

1.1 Español

FreeDFD es un editor de diagramas de flujo muy directo, que permite ver todas las acciones y depurarlas de una forma muy clara, sin complicaciones

Cuando se está trabajando en un proyecto grande o en un programa informático, es recomendable la utilización de diagramas de flujo para poder asegurarse que el trabajo se realiza de la forma correcta. En estos casos uno de los programas gratuitos que se puede utilizar es FreeDFD.

Exportar base de datos mdb a xml con MDB 2 XML

MDB 2 XML

1.0 Build 002 Inglés

Descarga MDB 2 XML gratis para convertir los archivos creados con Access en ficheros XML logrando ampliar su abanico de compatibilidad con otros programas