Evaluación De Productos: SIIGO

Cordial saludo, la siguiente es la evaluación correspondiente a la unidad d e aprendizaje SIIGO:Parametrización y Registro De Operaciones, la cual tiene un porcentaje del 30% de la nota definitiva y se aprobará con una mínima de 3.2.

Desarrollo:
Registra las siguientes operaciones en los documentos correspondientes, con a yuda d ela tecla imprimir pantalla copia y pega en un archivo de Word y sube los a traves de este link.

Nota: Recuerda que la empresa con la que trabajamos es Gran contribuyente.

1) La empresa elabora orden de compra solicitando 10 Juegos De Muebles y 10 de alcoba a Diseños De La costa Ltda.(Industrial  - Regimen comun), por valor de 5.000.000 y 7.000.000 respectivamente a credito.
2) La empresa al día siguiente hace efectiva la compra.
3) A los 30 dias la empresa cancela la deuda con cheque de BBVA.
4) La empresa vende 2 juegos de alcoba a Fabiola Posada por valor de 1.200.000 c/u en efectivo.
5) La empresa vende a credito 5 juegos de comedor a Hoteles De La Costa Ltda(regimen común).
6) A los 30 dias Hoteles De la Costa cancela su deuda con cheque.
7) La empresa vende 3 juegos de alcoba a Ricardo lopez por 1.300.000 c/u a credito.Intereses de Mora del 3% mensual.
8) Treinta dias despues la empresa elabora bota debito al cliente Ricardo lopez por cobro de intereses moratorios.
9) Quince dias despues el cleinte cancela su deuda con cheque.
10) Le empresa elabora  factura de venta por concepto de venta de 2 juegos ce alcoba y 3 de Muebles por
      $ 900.000 y $ 1.200.000 a crédito (30 días) a DistriMuebles De Colombia SAS. Descuento condicionado del 15% por pronto pago.
11) La empresa elabora nota crédito por concepto de pago oportuno del cliente anterior.
12) Elabora Recibo de caja por pago del cliente anterior con cheque de BanColombia.

DOBLE CONSULTA MYSQL

A veces necesiatamos realizar una doble consulta en Mysql, para esto simplemente realizamos la primera separamos con un punto y coma (;) la seguna, pero en VBA Excel no podemos guardarla en una solo variable tenemos que guardar las consultas por separado en variable sindependientes.
El siguiente ejemplo simula la accion bancaria de solicitar una consulta de saldo de acuerdo al numero de cuenta, aqui se realiza una consulta de actualización (update) y otra de selección de datos(Select).

Private Sub Consulta_Click()

Dim conexion As New ADODB.Connection

'lo mismo para el nombre del servidor, base de datos, usuario y la consulta sql

Dim miservidor, bd, user, sql, consulta As String

'el Recordset

Dim rs As ADODB.Recordset

'Estableciendo la conexión

miservidor = "127.0.0.1"

bd = "control"

user = "root"

Set conexion = New ADODB.Connection 'con esto utilizamos la conexión indicada más arriba

conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _

& ";SERVER=" & miservidor _

& ";DATABASE=" & bd _

& ";UID=" & user _

& ";OPTION=16427?"

' Se crea un objeto rs a partir de la clase RecordSet que permite transferir los datos entre Mysql y Excel 

Set rs = New ADODB.Recordset

'Consulta que actualiza el saldo del cliente descontando 1000 pesos cada vez que realice esta operación

Consulta = “UPDATE clientes set saldo = saldo – 1000 where No_cuenta =’”& TextBox1.Text & “’”

'Ejecutamos la consulta para que se actualice en Mysql

conexion.Execute Consulta

'La segunda consulta muestra en Excel los datos solicitados

sql = "SELECT No_Cuenta, fecha, hora, saldo from clientes " & _

                  "WHERE No_Cuenta = '" & TextBox1.Text & "'"

  

   rs.Open  sql, conexion

With Worksheets(1).Cells

.ClearContents

.CopyFromRecordset rs

End With

'Cerramos la conexión

On Error Resume Next

rs.Close

Set rs = Nothing

conexion.Close

Set conexion = Nothing

On Error GoTo 0

End Sub

Colocar fecha y hora actual en una tabla MySql

mysql> CREATE TABLE tabla_ejemplo ( 

    -> id varchar (12),
    -> descripcion VARCHAR(30),
    -> fecha TIMESTAMP DEFAULT NOW());
Query OK, 0 rows affected (0.03 sec)

EVALUACION DE PRODUCTOS INFORMÁTICA BÁSICA

LA PRESENTE ACTIVIDAD NOS SERVIRÁ PARA EVALUAR LAS DESTREZAS Y HABILIDADES ADQUIRIDAS DURANTE LA UNIDAD DE APRENDIZAJE: MS. WORD Y MS. POWER POINT, PRINCIPALMENTE, SE DESARROLLARÁ EN GRUPO MAX. DE 3 (TRES) ESTUDIANTES EN EL AULA DE CLASES, A PARTIR D E HOY, MIÉRCOLES 26 DE FEBRERO HASTA EL DIA VIERNES 28 DE FEBRERO 6:00 P.M, TIENE UN PORCENTAJE DEL 40% DE LA NOTA DEFINITIVA.
 DESARROLLO:
 TEMA: CREACIÓN DE EMPRESAS

•  DISEÑA EL LOGO UTILIZANDO FORMAS 
• DISEÑA LA RAZÓN SOCIAL DE LA EMPRESA (WORDART)
•  MISIÓN Y VISIÓN DE LA EMPRESA DISEÑADA EN DOS COLUMNAS
•  OBJETO SOCIAL (A QUE SE DEDICA LA EMPRESA) NORMAL fuente: arial, 12 Pts, Justificada
• INCLUYE IMÁGENES ALUSIVAS A LOS PRODUCTOS Y/O SERVICIOS QUE COMERCIALIZAN
•  ORGANIGRAMA DE LA EMPRESA(SMARTART)
•  INFORMACIÓN DE LOS EMPLEADOS(TABULACIONES)
• INVENTARIO DE PRODUCTOS Y/O SERVICIOS (BORDES Y SOMBREADO)
• FORMATO DE FACTURA DE VENTA (TABLAS)
• COMPARACIÓN MENSUAL DE VENTAS(GRÁFICOS)
• VOLANTES DE PAGO DE EMPLEADOS(COMBINACIÓN DE CORRESPONDENCIA)
• DESARROLLAR UNA PRESENTACIÓN SOBRE RESPONSABILIDAD SOCIAL DE LA EMPRESA EN POWER POINT UTILIZANDO: TEMA, ANIMACIONES, TRANSICIONES.

Nota: Todos los documentos de Word Deben Tener  Encabezado (Logo y razón Social Creado) y Pie De pagina: datos de la empresa. Dirección, Teléfono.

Guarda todos los documentos de Word y la Presentación en Power Point en una carpeta y comprime su contenido y envíalo al correo fabioortizfabio@outlook.com

CONTROL DE USUARIO VBA CON MYSQL

El siguiente ejemplo nos ilustra la manera de acceder a un userfom de VBA excel a través del usuario y la contraseña que se encuentran registradas en una tabla de la base de datos en MySsql.

Private Sub Acceso_Click()
Dim conexion As New ADODB.Connection
'lo mismo para el nombre del servidor, base de datos, usuario y la consulta sql
Dim miservidor, bd, user, sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "control"
user = "root"
Set conexion = New ADODB.Connection 'con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"

Set rs = New ADODB.Recordset

sql = "SELECT usuario, pass " & _
                "FROM Usuarios " & _
                "WHERE usuario = '" & TextBox1.Text & "'" _
                   & "AND Pass = '" & TextBox2.Text & "'"
  
    With rs
        ' Abre el recordset
        .Open sql, conexion
      
        ' Si el recordset está vacío es por que es incorrecto
        If .EOF Then
            MsgBox " El usuario o Password es incorrecto ", _
                     vbCritical, " Login incorrecto "
            ' Cierra y descarga el Recordset
           rs.Close
            Set rs = Nothing
            Exit Sub
        End If
    End With
  
    ' Cierra y descarga el Recordset
    rs.Close
    Set rs = Nothing
      
    'Cambia el Flag para que no cierre el programa con End
    OK = True
      
    ' Descarga el formulario y prosigue en el SubMain
    Unload Me
    UserForm2.Show
End Sub

TRABAJAR CON FORMULARIOS VBA EXCEL

El siguiente ejemplo muestra el uso de userform en VBA, para lo cual diseñaremos una especie de tabla de datos en Excel como la siguiente:

Ingresa a VBA da clic en el menú insertar y escojes la opción de módulo y escribes lo siguiente:

La macro asociada al botón es la siguiente.

Sub main()

Load UserForm1

UserForm1.Show

End SubSub main()

Load UserForm1

UserForm1.Show

End Sub

Vamos al Editor de Visual Basic y pedimos insertar un UserForm, para ello utilizamos el menúInsertar que se encuentra en el propio Editor de Visual Basic, y luego pulsamos sobre UserForm.

Esto genera el UserForm1, que aparecerá como una zona rectangular sobre la que posteriormente iremos introduciendo diferentes elementos del Cuadro de herramientas.

Seguidamente se muestra el Cuadro de Herramientas.

Después de trabajar un rato sobre nuestro primer UserForm quedará así:

Al ejecutar el UserForm1 veremos lo siguiente.

Disponemos de la ventana de propiedades para ir cambiando algunas, como por ejemplo el rótulo que aparece en la cabecera del UserForm1. Hemos denominado al formulario 'Ficha personal'. Esto se hace modificando la propiedad Caption.

Otra ventana importante es la ventana del Proyecto. Finalmente llegaremos a manejar tres formularios, que se pueden ver en la imagen siguiente como:

• UserForm1
• UserForm2
• UserForm3

Pulsando con el botón derecho del ratón sobre el UserForm1 podemos pedir que se vea el objeto (el propio UserForm1) o que se vea el código asociado a sus botones y demás herramientas de control.

Si pedimos Ver código del UserForm1 obtendremos la siguiente ventana.

Private Sub CommandButton1_Click()

Unload UserForm1

UserForm2.Show

End Sub

Private Sub CommandButton2_Click()

Unload UserForm1

End Sub

Private Sub UserForm_Activate()

Label3.Caption = Date

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

CommandButton1.SetFocus

End Sub

 Aquí se programan todos los botones y etiquetas que utilizamos en el UserForm1.

En el desplegable de arriba, a la izquierda podemos elegir diferentes elementos como se ve en la siguiente imagen.

En el desplegable de la derecha podemos elegir diferentes eventos.

El UserForm2 es el siguiente.

El código del UserForm2 se muestra a continuación:

Private Sub CommandButton1_Click()

Unload UserForm2

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

Dim id, numero, nombre, departamento As String

Dim sueldo As Integer

id = ComboBox1.Text

numero = TextBox1.Text

nombre = TextBox2.Text

departamento = TextBox3.Text

' sueldo = Val(TextBox4.Text)

UserForm3.Label7 = ComboBox1.Text

UserForm3.Label8 = TextBox1.Text

UserForm3.Label9 = TextBox2.Text

UserForm3.Label10 = TextBox3.Text

UserForm3.Label11 = TextBox4.Text

Unload UserForm2

UserForm3.Show

End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem ("Cédula de Ciudadanía")

ComboBox1.AddItem ("Tarjeta De Identidad")

ComboBox1.AddItem ("NIT")

ComboBox1.AddItem ("Cédula de Extranjería")

End Sub

El diseño Del UserForm3 es el siguiente:

y el código utilizado fue:

Private Sub CommandButton1_Click()

Unload UserForm3

UserForm2.Show

End Sub

Private Sub CommandButton2_Click()

Worksheets("hoja1").Activate

Range("b5").Select

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Activate

Loop

ActiveCell.Offset(0, 0) = Label7

ActiveCell.Offset(0, 1) = Label8

ActiveCell.Offset(0, 2) = Label9

ActiveCell.Offset(0, 3) = Label10

ActiveCell.Offset(0, 4) = Label11

Unload UserForm3

UserForm2.Show

End Sub

y listo....

EVALUACION DE DESEMEPEÑO INFORMATICA BASICA

 LA SIGUIENTE ES LA EVALUACIÓN DE DESEMEPÑEO CORRESPONDIENTE ALA UNIDAD DE APRENDIZAJE LLAMADA INFORMATICA BASICA, LA CUAL TIENE UN PORCENTAJE DEL 40% DE LA NOTA DEFINITIVA Y SE APROBARA CON UNA MINIMA D E3.2.

LA EVALUACION ES INDIVIDUAL Y SE ANULARA EN EL CASO QUE SE SORPRENDA AL ESTUDIANTE COPIANDOSE O PIDIENDOLE AYUDA AL COMPAÑERO.

LA EVALUACION TIEN EUNA DURACION DE 30 MINUTOS, UNA VEZ FINALICES ENVIALO AL CORREO FABIOORTIZFABIO@OUTLOOK.COM

                                                             EXAMEN A

EXAMEN B:



EXAMEN C:

CREA UN DIAGRAMA O MAPA CONCEPTUAL SOBRE LA CLASIFICACION DE LOS IMPUESTOS EN COLOMBIA.

ACTIVIDAD TABLAS

Ejercicios Tablas

Ejercicio 1

Crear la siguiente tabla.
Guardarla en un documento llamado ejercicio 1  en el Mis Documentos.

AYUDA

1. Emplear la opciones de combinar y dividir celdas.
2. El texto de la primera fila está centrado tanto vertical como horizontalmente.
3. Cada grupo de "Excelente, Bueno, Regular y Malo", está formado por dos columnas y cuatro filas.

Ejercicio 2

1. Crear un nuevo documento llamado ejercicio 2 en Mis Docuemntos.
2. Escribir en la primera página una lista de nombres separadas por puntos y comas, similar a la de la imagen siguiente:
3. Crear una tabla con los datos anteriores

Ejercicio 3

Copiar la tabla del ejercicio anterior y ordenarla alfabéticamente por la columna nombre.

AYUDA

1. Seleccionar toda la tabla
2. Comprobar que la opción encabezados está activada para que no ordene la primera fila.

Ejercicio 4

Con la opción de Dibujar tabla conseguir que una copia de la tabla del ejercicio anterior adquiera el siguiente aspecto

NOTA

Una tabla como la de la imagen no se puede ordenar.

Ejercicio 5

Crear la siguiente tabla en la cual las celdas de la columna Total son calculadas.

ACTUALIZAR DATOS MYSQL

Doble clic en el botón de Actualizar

Sub Actualizar_Clic(  )
Dim conexion As New ADODB.Connection
'Lo mismo para el nombre del servidor en este caso estoy empleando una versión en local
Dim miservidor,bd,user,sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "directorio"
user = "root"
Set conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"
Set rs = New ADODB.Recordset
sql = "UPDATE Example set " & _
                 "nombre='" & TextBox2.Text & _
                 "',apellido='" & Me.TextBox3.Text & _
                 "' where id='" & TextBox1.Text & "'"

    conexion.Execute sql

    conexion.Close

    Set cn = Nothing
End Sub

ELIMINAR DATOS DESDE VBA EXCEL A MYSQL

Programemos el botón de Eliminar

Private Sub Eliminar_Click()
Dim conexion As New ADODB.Connection
'Lo mismo para el nombre del servidor en este caso estoy empleando una versión en local
Dim miservidor,bd,user,sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "directorio"
user = "root"
Set conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"

Set rs = New ADODB.Recordset

    sql = "DELETE FROM Example WHERE id='" & TextBox1.Text & "'"

    conexion.Execute sql

    conexion.Close

    Set conexion = Nothing
End Sub

CONEXIÓN BASE DE DATOS DESDE VBA A MYSQL

Siguiendo con las conexiones a bases de datos el turno ahora es para Mysql, desde 

VBA Excel podemos conectarnos a esta base de datos y realizar las operaciones básicas de Insertar, mostrar, Eliminar y actualizar registros.

Ingresa a Ms. excel y presiona la combinación Alt + F11, o desde el menú programador escoja Visual basic.

vaya al menú Insertar desde VBA y escoja UserForm, y diseña el siguiente formulario con los respectivos controles:

• 3 etiquetas
• 3 Cuadros de Texto
• 4 Botones de comando

No se te olvide incluir la referencia Microsoft activex Data object 2.8 desde el menú herramientas

Doble clic en el botón de Insertar

Private Sub Insertar_Click()
Dim conexion As New ADODB.Connection
'Lo mismo para el nombre del servidor, la base de datos, el usuario y la consulta
Dim miservidor,bd,user, sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "directorio"
user = "root"
Set conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"

Set rs = New ADODB.Recordset
sql = "insert into example (id,nombre, apellido) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"

    conexion.Execute sql

    conexion.Close

    Set conexion = Nothing
End Sub

CONEXION MYSQL DESDE VBA EXCEL 2010

Para conectarse a una base de datos Mysql Desde VBA Excel por lo general, casi siempre efectuámos los mismos pasos:

1. Debemos crear el espacio de trabajo, donde debemos especificar a Excel el motor que se precisa para hacer la conexión al gestor de bases de datos.
2. Tenemos que marcar las referencias específicas para que Excel la carge y la tenga disponible en su biblioteca.
3. Preparamos las variables para:

• la conexión
• servidor
• usuario
• contraseña
• nombre de la base con la que trabajar
• las tablas y campos en su caso.

Una vez tratado los datos, es decir ejecutada la petición, cerrarmos la conexión y vaciamos las variables objeto.
Bien en el caso que nos ocupa y, atendiendo al primer punto, debemos cargar la referencia a la librería Microsoft Active X Data Objects 2.8.

Lo más probable es que no tenga descargado los drivers para la conexión con MySQL. Para ello vaya a esta dirección “MySQL ODBC 3.51 Driver”. Le aconsejo que escoga Windows (x86, 32-bit), MSI Installer Connector-ODBC  para 32-bit y en caso de 64 Windows (x86, 64-bit), MSI Installer Connector-ODBC. Una vez descargadodoble clic en el MSI y escoga instalación típica.Una vez terminada la instalación, puede verificar la misma en Panel de Control>Herramientas Administrativas>Orígenes de datos ODBC. Clic en la pestaña Drivers y búsquelo en la lista:

A continuación le expongo comentado el código para volcar los datos de una base de datos de MySQL a Excel.  En el ejemplo la base que se ha empleado se llama “Colegio” y la tabla “Estudiantes”. Se ha utilizado un servidor local, con lo que la dirección del host es 127.0.0.1.

‘Para empezar y como paso previo cargamos la referencia a la librería Microsoft Active X Data Objects 2.x
‘Se presupone instalado el driver MySQL ODBC 3.51
‘Comenzando


Sub MySQLVBAExcel()

'variable para la conexión

Dim conexion As New ADODB.Connection

'idem para el nombre del servidor en este caso estoy empleando una versión en local

Dim miservidor,bd, user,sql As String

'el Recordset

Dim rs As ADODB.Recordset

'Estableciendo la conexión

miservidor = "127.0.0.1"

bd = "Colegio"

user = "root"

Set conexion = New ADODB.Connection 'con esto utilizamos la conexión indicada más arriba

conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"


Set rs = New ADODB.Recordset

sql = "SELECT * FROM Estudiantes"

rs.Open sql, conexion, adOpenStatic

With Worksheets(1).Cells

.ClearContents

.CopyFromRecordset rs

End With

'Cerramos la conexión

On Error Resume Next

rs.Close

Set rs = Nothing

conexion.Close

Set conexion = Nothing

On Error GoTo 0

End Sub

Explicación  rs.Open sql, conexion, adOpenStatic. Quisiera comentarla un poco. El objeto Recordset es el interface entre los datos obtenidos de nuestras consultas sobre las tablas y nuestras páginas excel. Representa una tabla organizada en filas (registros) y columnas (campos). La propiedades y métodos de Recordsets pasan por entender el funcionamiento de otros dos objetos claves:

SMARTART MS. WORD 2010

SMARTART MS WORD 2010

TABLAS EN WORD

Una tabla está formada por celdas o casillas, agrupadas por filas y columnas. En cada celda se puede insertar texto, números o gráficos.
Las tablas permiten organizar la información en filas y columnas, de forma que se pueden realizar operaciones y tratamientos sobre los datos. Por ejemplo, obtener el valor medio de una columna u ordenar una lista de nombres.
Otra utilidad de las tablas es su uso para mejorar el diseño de los documentos ya que facilitan la distribución de los textos y gráficos contenidos en sus casillas. Esta característica se emplea sobre todo en la construcción de páginas Web para Internet aunque no está recomendado, ya que en HTML hay otras posibilidades de maquetación más apropiadas.

Las tablas son una forma de organizar los datos mucho más potente que utilizando las tabulaciones u otros métodos.

Crear tablas

Para crear una tabla accedemos siempre desde la pestaña Insertar > grupo Tablas > botón Tabla. Allí encontraremos las tres posibles formas de crear tablas:

1. Una de las formas es utilizar la cuadrícula que simula una tabla. Cada cuadrado representa una celda y al pasar el ratón sobre ella se coloreará en naranja la selección que realicemos. Al hacer clic confirmamos que la selección se ha realizado y se inserta la tabla en el documento. En el ejemplo de la imagen estaríamos creando una tabla de 3x3.

2. La segunda opción es haciendo clic en Insertar Tabla. Se abre una ventana que permite especificar el número de filas y columnas para la tabla.
3. La tercera opción es usar el vínculo Dibujar Tabla. El cursor tomará forma de lápiz y simplemente iremos dibujando las líneas que la formarán. Esta opción es más lenta, pero puede resultar muy útil para crear tablas irregulares o para retocar tablas ya existentes.

Para retocar una tabla dibujando sus bordes deberemos situarnos en ella. De este modo veremos que disponemos de una pestaña de Herramientas de tabla. En su pestaña Diseño > grupo Bordes, encontraremos las herramientas que nos ayudarán a dar el diseño deseado a la tabla.

Podemos elegir el estilo, grosor y color del borde y el cursor tomará forma de pluma para que modifiquemos el diseño de los bordes de la tabla.
Si quremos modificar la estructura de la tabla iremos a la pestaña de Herramientas de tabla > Presentación > grupo Dibujar, y a continuación pulsar sobre Dibujar tabla .

Si nos equivocamos podemos utilizar la herramienta Borrador, que cambiará el dibujo del cursor y nos permitirá eliminar cualquier línea de la tabla simplemente haciendo clic sobre ella.

Para practicar estas operaciones puedes realizar este ejercicio paso a paso: Crear tabla

Anidar tablas

Una característica de las tablas es que se pueden anidar. Es decir, se puede crear una tabla dentro de otra. De esta forma podremos configurar una de forma independiente a la otra. Lo único que deberemos tener en cuenta es que, si eliminamos la tabla principal, también se eliminará su contenido, y ésto incluye las tablas anidadas que podamos haber creado.
¿Cómo se hace? Simplemente hay que colocar el cursor en la celda que queramos e insertar otra tabla.

GRÁFICOS EN MS. WORD

CREAR GRÁFICOS

Para elaborar Gráficos en Word, seguimos los siguientes pasos:

1. Nos ubicamos en el botón Insertar de la barra de herramientas

2. Identificamos el icono Gráfico

3. Pulsamos este botón y automáticamente se abre la ventana de opciones conteniendo todos los diferentes tipos de gráficos que Word posee prediseñados

4. Una vez seleccionado el tipo de gráfico, en la hoja de trabajo aparecera insertado un gráfico con información de base. En este caso se ha seleccionado un tipo de gráfico Circular

5. Se abrirá simultaneamente una hoja en excel que muestra los datos base sobre los cuales se ha creado el gráfico

6. En esta hoja de excel podremos actualizar la información con los datos que queremos mostrar en el gráfico. En el ejemplo nos referiremos a datos de Ingresos en cada uno de los cuatro trimestres.

7. Una vez actualizada la información en la hoja de excel, aparecerá en nuestra hoja de trabajo el gráfico con los datos correspondientes.

MÁS SOBRE GRÁFICOS

Una vez realizado nuestro gráfico, también podemos realizarle otros cambios, de acuerdo a lo que deseamos presentar.

Tomemos como ejemplo el gráfico presentado a continuación:

Si observamos la barra de herramientas se habrá abierto una nueva viñeta denominada Herramientas de gráficos. En ella se encontraran las opciones para editar nuestro gráfico.

Por ejemplo si lo que quisieramos cambiar es el diseño del gráfico, identificamos la viñeta correspondiente en la barra de herramientas: Diseño

Y nos ubicamos en la sección Diseños de gráfico, donde aparecerán las opciones que tenemos con el tipo de gráfico que estamos utilizando

Seleccionamos una de estas opciones, por ejemplo una en la que aparezcan en el gráfico los valores porcentuales para cada una de las series

En nuestra hoja de trabajo visualizaremos el gráfico con los nuevos cambios que hemos incluído. Observar que muestra los porcentajes para cada uno de los trimestres.

Si quisieramos editar los datos, ya sea porque nos hemos equivocado en digitar la información o simplemente actualizar los datos al registro actual en un momento del tiempo. Pulsamos el ícono Editar datos, se abrirá la hoja de excel con la cual se ha realizado el gráfico y se podrá editar la información.

ACTUALIZAR DATOS

Programa el botón de Actualizar


Private Sub CommandButton4_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    sql = "UPDATE Estudiantes set " & _
                 "nombre='" & TextBox2.Text & _
                 "',apellido='" & Me.TextBox3.Text & _
                 "' where id='" & TextBox1.Text & "'"

    cn.Execute sql

    cn.Close

    Set cn = Nothing
End Sub

ELIMINAR DATOS

Private Sub Eliminar_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    sql = "DELETE FROM Estudiantes WHERE id='" & TextBox1.Text & "'"

    cn.Execute sql

    cn.Close

    Set cn = Nothing
End Sub

MOSTRAR DATOS DE UNA TABLA DE ACCESS A LA CUADRICULA D EEXCEL

La idea es poder visualizar los datos que se encuentran en una tabla de una base de datos dela cuadricula de  Access a la cuadricula de Excel.

Programa el botón de consultar con el siguiente código.

Private Sub CommandButton2_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With

    sql = "select * from estudiantes"

    rs.Open sql, cn

    Range("C1").CopyFromRecordset rs

    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing

End Sub

INSERTAR DATOS DESDE VBA EXCEL A MS.ACCESS

VBA Excel es un apoderosa herramienta que inclusive puede insertar datos desde un Userform a una tabla de una base de datos de Ms. access.

Ingresa a Excel y presiona la combinación Alt + F11:
Diseña un UserForm o formulario como el siguiente:

Vaya al menú Herramientas /Referencias/ Microsoft ActiveX data Objects 2.8

programa el botón de Insertar con el siguiente código VBA

Private Sub CommandButton1_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    sql = "insert into estudiantes (id,nombre, apellido) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"

    cn.Execute sql

    cn.Close

    Set cn = Nothing
End Sub

CONSULTAS MULTITABLAS

Composición interna natural

Consiste en una proyección sobre un producto cartesiano restringido. Es decir, sólo elegimos determinadas columnas de ambas tablas, en lugar de seleccionar todas.

Podemos hacer esto a partir de una composición general, eligiendo todas las columnas menos las repetidas:

mysql> SELECT personas2.id,nombre,fecha,numero 
    -> FROM personas2, telefonos2
    -> WHERE personas2.id=telefonos2.id;
+----+-----------+------------+-----------+
| id | nombre    | fecha      | numero    |
+----+-----------+------------+-----------+
|  1 | Fulanito  | 1956-12-14 | 123456789 |
|  1 | Fulanito  | 1956-12-14 | 145654854 |
|  1 | Fulanito  | 1956-12-14 | 152452545 |
|  2 | Menganito | 1975-10-15 | 254254254 |
|  4 | Fusganita | 1976-08-25 | 456545654 |
|  4 | Fusganita | 1976-08-25 | 441415414 |
+----+-----------+------------+-----------+
6 rows in set (0.00 sec)

mysql>

Como la columna id existe en ambas tablas estamos obligados a usar el nombre completo para esta columna. En este caso hemos optado por personas2.id, pero hubiese sido igual usar telefonos2.id.

También podemos definir alias para las tablas, y conseguir una consulta más compacta:

mysql> SELECT t1.id,nombre,fecha,numero
    -> FROM personas2 AS t1, telefonos2 AS t2
    -> WHERE t1.id=t2.id;

Por supuesto, podemos usar JOIN y ON en lugar de la coma y WHERE:

mysql> SELECT t1.id,nombre,fecha,numero
    -> FROM personas2 AS t1 JOIN telefonos2 AS t2
    -> ON t1.id=t2.id;

Pero tenemos una sintaxis alternativa mucho mejor para hacer composiciones internas naturales:

referencia_tabla NATURAL JOIN referencia_tabla

Por ejemplo:

mysql> SELECT * FROM personas2 NATURAL JOIN telefonos2;
+----+-----------+------------+-----------+
| id | nombre    | fecha      | numero    |
+----+-----------+------------+-----------+
|  1 | Fulanito  | 1956-12-14 | 123456789 |
|  1 | Fulanito  | 1956-12-14 | 145654854 |
|  1 | Fulanito  | 1956-12-14 | 152452545 |
|  2 | Menganito | 1975-10-15 | 254254254 |
|  4 | Fusganita | 1976-08-25 | 456545654 |
|  4 | Fusganita | 1976-08-25 | 441415414 |
+----+-----------+------------+-----------+
6 rows in set (0.02 sec)

mysql>