tag:blogger.com,1999:blog-43164269319134392232024-02-22T08:14:22.936-06:00Blog y Foro de AccessAula Click de Access 2019 | 2016 | 2013 | 2010 | 2007 | 2003 | Todo sobre Access | Programacion VBA 32 y 64 Bits | VB.NETARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.comBlogger143125tag:blogger.com,1999:blog-4316426931913439223.post-25404207516067645412022-08-25T08:15:00.003-05:002022-08-25T08:20:39.600-05:00CODIGO VBA GRATIS PUNTO DE VENTA EN ACCESS<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdru0Poyh4mBfpu63YECam4UKBY8WB_XHA9J3W89zHHLtrDvnyVzN2-GBcYu4TqU2ROi9JgfBxZ2x9QxY2IzqyGniMfIO-CB4_KyGViyzrdET3_bfZ0mX8g-eZ95HOy7OCcxvRp6RUlXiHFPnz4vX6NQ20AfwXuStxe5r3onnfW9j8EOlfqrNW6cDB8A/s459/modulo-ticket-2.JPG" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="459" data-original-width="367" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdru0Poyh4mBfpu63YECam4UKBY8WB_XHA9J3W89zHHLtrDvnyVzN2-GBcYu4TqU2ROi9JgfBxZ2x9QxY2IzqyGniMfIO-CB4_KyGViyzrdET3_bfZ0mX8g-eZ95HOy7OCcxvRp6RUlXiHFPnz4vX6NQ20AfwXuStxe5r3onnfW9j8EOlfqrNW6cDB8A/w512-h640/modulo-ticket-2.JPG" width="512" /></a></div><b><h3 style="text-align: center;"><b><span style="color: #2b00fe;">DESCARGA COMPLETAMENTE GRATIS CODIGO VBA DEL PUNTO DE VENTA EN ACCESS.</span></b></h3></b><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAeJhW6RFu_xC-hCiAeqOfi416bYRiAoaFQNCpGi2iXDSMStHb6Ee8_qra3FcraS_xnUsk6BhLD5P6B7A4a005Iq8JrczbjOQBHglBclYrXXD1Rkr8xl4RzvTjxUCrcZ8deSB4wAEJjTdADMpqa9jAhNotVa92RWxLQ4NW0WS_8k1MOLP2BzOm7dtRaw/s200/arrow-animated.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="84" data-original-width="200" height="84" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAeJhW6RFu_xC-hCiAeqOfi416bYRiAoaFQNCpGi2iXDSMStHb6Ee8_qra3FcraS_xnUsk6BhLD5P6B7A4a005Iq8JrczbjOQBHglBclYrXXD1Rkr8xl4RzvTjxUCrcZ8deSB4wAEJjTdADMpqa9jAhNotVa92RWxLQ4NW0WS_8k1MOLP2BzOm7dtRaw/s1600/arrow-animated.gif" width="200" /></a></div><div style="text-align: center;"><a href="https://puntodeventaenaccess.com/codigo-vba/">CODIGO VBA</a></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-69925019724363367592022-02-06T13:12:00.001-06:002022-02-06T13:22:52.868-06:00COMO USAR UN SLIDER EN ACCESS<p> </p><table cellpadding="0" cellspacing="0" class="tr-caption-container" style="float: left;"><tbody><tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/a/AVvXsEiRz2GDOFv9cyXI8mTlvy8I6X-dGCwQcJGSvjryECYk4EwYw2s1otqYw7NZuYXDUe1gMWPcCbtIPsFs71dygqih7UvgyxdMaRWC03oeDgHX3nvWosFJIbNu9tP0b-xbZONxTpCqdjA9AybO5klOwcSbnliq2FkLIB8fmi3352ZEwvpsq0lWvhpU3SLtSA=s666" style="clear: left; margin-bottom: 1em; margin-left: auto; margin-right: auto;"><img alt="Slider en Access" border="0" data-original-height="375" data-original-width="666" height="225" src="https://blogger.googleusercontent.com/img/a/AVvXsEiRz2GDOFv9cyXI8mTlvy8I6X-dGCwQcJGSvjryECYk4EwYw2s1otqYw7NZuYXDUe1gMWPcCbtIPsFs71dygqih7UvgyxdMaRWC03oeDgHX3nvWosFJIbNu9tP0b-xbZONxTpCqdjA9AybO5klOwcSbnliq2FkLIB8fmi3352ZEwvpsq0lWvhpU3SLtSA=w400-h225" title="Slider en Access" width="400" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;"><b>Control Slider en Access</b></td></tr></tbody></table><br /><p></p><p><br /></p><p><br /></p><p><br /></p><p><br /></p><p><br /></p><p><br /></p><p><br /></p><p>En este configurardor de colores basado en RGB (Red, Green, Blue) es un claro ejemplo de como podemos usar de forma practica un <b>Control Slider en Access</b>, lo unico que necesitamos es insertar este control desde los ActiveX disponibles para Access y configurar algunas de sus propiedades y eventos que indicare a continuacion.</p><p>En un formulario en vista de diseño insertaremos el control <b>Microsoft Slider Control version 6.0</b></p><p><a href="https://blogger.googleusercontent.com/img/a/AVvXsEgpAV7xCapjVvNO8f2TS3kpGJ3e_19VSOF7vYthhz0epQkV8_CtDRf48SA2Lml7-Xyb-8_-ZVst6eUsP_AFbjicBbs77SLZyEcbHZKnTwtlLdUjkuNjp_d8h3V1cdRnTMAiWcrLkXPvb1BlXGRigbsqDcPlkO7eiAroaibQz9g-QFqlO6D9Dj4fhsDzlw=s526" style="clear: left; display: inline; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img border="0" data-original-height="377" data-original-width="526" height="286" src="https://blogger.googleusercontent.com/img/a/AVvXsEgpAV7xCapjVvNO8f2TS3kpGJ3e_19VSOF7vYthhz0epQkV8_CtDRf48SA2Lml7-Xyb-8_-ZVst6eUsP_AFbjicBbs77SLZyEcbHZKnTwtlLdUjkuNjp_d8h3V1cdRnTMAiWcrLkXPvb1BlXGRigbsqDcPlkO7eiAroaibQz9g-QFqlO6D9Dj4fhsDzlw=w400-h286" width="400" /></a></p><div><br /></div>Posteriormente despues de haberlo insertador cerraremos nuestro formulario grabando dicha insercion, esto servira para <b><i>registrar correctamente el Control Slider en Access</i></b>.<div><br /></div><div>Los detalles para desarrollar este ejemplo lo dejo expuesto en este video.<br /><p><br /></p></div>
<iframe width="560" height="315" src="https://www.youtube.com/embed/xBAlEi0xRVE" title="YouTube video player" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture" allowfullscreen></iframe>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-85530259936803092102020-10-21T12:41:00.007-05:002020-10-23T14:13:56.579-05:00INSTALAR Y CONFIGURAR XAMPP y MYSQL - CREAR TU PROPIO SERVIDOR LOCAL<div></div><div>En esta sección mediante un caso practico, se explica cómo crear tu propio <b>Servidor local MySQL</b> <b>instalando y configurando XAMPP</b>.</div><p></p><p>Siguiendo este caso practico podrás montar tu propia base de datos en este Servidor y ya no depender de las limitaciones de espacio que tenemos con Access. </p><p>Así nuestros <b>Sistema de Access serán mas potentes</b> para almacenar datos de forma ilimitada.</p><p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnwXXlfsQ2Ff-eX1j5zuxRb5gUPJp-zTW8GMk1koktEEa8NwHql5uONiSHEDejydwkDtU_OyhsIgbg_uO4Fzt0fI2-YZesrxsdg2Y984gOsfmHZZZzIyiC9IfZQQeGiC3tZ7jApprlt-rm/s668/Configurar+XAMPP+en+windows.PNG" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img alt="Instalar y Configurar XAMPP MYSQL" border="0" data-original-height="434" data-original-width="668" height="208" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnwXXlfsQ2Ff-eX1j5zuxRb5gUPJp-zTW8GMk1koktEEa8NwHql5uONiSHEDejydwkDtU_OyhsIgbg_uO4Fzt0fI2-YZesrxsdg2Y984gOsfmHZZZzIyiC9IfZQQeGiC3tZ7jApprlt-rm/w320-h208/Configurar+XAMPP+en+windows.PNG" title="Instalar y Configurar XAMPP MYSQL" width="320" /></a><br /></p><p><a href="https://www.apachefriends.org/es/index.html" target="_blank">Descarga XAMPP desde su portal Oficial AQUÍ</a></p><p>Sigue este caso Practico en este Video: <u><b>Instalar y Configurar XAMPP</b></u></p>
<iframe allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="450" src="https://www.youtube.com/embed/6HeZg7IYIcQ" width="800"></iframe><div><br /></div><div>La configuracion de XAMPP para que los servicios se ejecuten automaticamente son estas:</div><div><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiB3B6Mzo8AuUIOdepp0HYx4-WT9HdncXGJC5oqhuWYopprccHRLNHzDTDe9RbFyLqV2egRoFjWO1uhiXRuD4u8dVKSZisJmlqCYhLD5r8PTLMdf0-yddgPylc6Z0u4Y1HEd2-twJJwAltd/s447/Configuracion+de+arranque+en+XAMPP.PNG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="Configuracion de XAMPP" border="0" data-original-height="447" data-original-width="360" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiB3B6Mzo8AuUIOdepp0HYx4-WT9HdncXGJC5oqhuWYopprccHRLNHzDTDe9RbFyLqV2egRoFjWO1uhiXRuD4u8dVKSZisJmlqCYhLD5r8PTLMdf0-yddgPylc6Z0u4Y1HEd2-twJJwAltd/s16000/Configuracion+de+arranque+en+XAMPP.PNG" title="Configuracion de XAMPP" /></a></div><br /><div><br /></div><span><a name='more'></a></span>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com3tag:blogger.com,1999:blog-4316426931913439223.post-24920689340272901222020-03-01T21:05:00.002-06:002020-06-03T16:07:02.758-05:00CREAR .EXE PARA SISTEMA DE INVENTARIOS Y COMPRAS | E15<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeEdXRrKEGP84mRMqkfeSYkPWeKJE9RSbM1X0hyphenhyphenMs1Ks9p4OtZ25NGPhbsFADFwiG6l2trKbRpb5bD6lQhcZLCfHmzVTmUkM2OmPxSVXaZpqQ6RZ5fI-yOvyu-5XiCZ92Sw5dpABJI3YLQ/s1600/CREAR+SISTEMA+DE+INVENTARIOS+Y+COMPRAS.EXE.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeEdXRrKEGP84mRMqkfeSYkPWeKJE9RSbM1X0hyphenhyphenMs1Ks9p4OtZ25NGPhbsFADFwiG6l2trKbRpb5bD6lQhcZLCfHmzVTmUkM2OmPxSVXaZpqQ6RZ5fI-yOvyu-5XiCZ92Sw5dpABJI3YLQ/s320/CREAR+SISTEMA+DE+INVENTARIOS+Y+COMPRAS.EXE.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta ultima entrega de este Laboratorio del <b>Sistema de Inventarios y Compras en Access</b> vamos a crear un <b>Ejecutable .EXE y un instalador</b> para nuestra Aplicación de Access.<div><br /></div><div><br />
</div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<br />
Veamos el Siguiente Video<br />
<a name='more'></a><br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/-UMonjaOpCI" width="560"></iframe>
<br />
<a href="https://aulaclick-access.blogspot.com/2020/02/crear-menu-office-en-access-sistema-de.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a><br />
<br /></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-26234568695483606822020-02-29T21:12:00.002-06:002020-06-03T16:07:16.539-05:00CREAR MENU OFFICE EN ACCESS | SISTEMA DE INVENTARIOS Y COMPRAS EN ACCESS - E14<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWNIrYQco5NNZqr2ZjLto7iJ6ioSo1OB0_idz9fk_eX9f-Byah9BAxXSuNPX4OQxda2XK1I3vARwJ5UaQTtGj1o5HhBADNQdC0c2UsuHuEeIG4kW69fBJslW6tFhaYCVud27Iors9gjN5e/s1600/PORTADA+MENU+ESTILO+OFFICE+EN+ACCESS+PARA+SISTEMA+DE+INVENTARIOS+Y+COMPRAS.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWNIrYQco5NNZqr2ZjLto7iJ6ioSo1OB0_idz9fk_eX9f-Byah9BAxXSuNPX4OQxda2XK1I3vARwJ5UaQTtGj1o5HhBADNQdC0c2UsuHuEeIG4kW69fBJslW6tFhaYCVud27Iors9gjN5e/s320/PORTADA+MENU+ESTILO+OFFICE+EN+ACCESS+PARA+SISTEMA+DE+INVENTARIOS+Y+COMPRAS.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta entrega vamos a crear un <b>Menú estilo Office para nuestro Sistema de Inventarios y Compras</b>. Ustedes podrán adecuar los menús de la forma que mejor les funcione, con las instrucciones que aquí les muestro en el vídeo.<br />
<br />
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" /></a><br />
Veamos el Vídeo de como hacerlo:<br />
<br />
<a name='more'></a><br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/veFnETdAyMw" width="560"></iframe>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u>Vamos a necesitar:</u></b><br />
<ul>
<li><span style="background-color: yellow;">Conocer sobre el tema de XML Aqui dejo una Publicacion</span></li>
</ul>
<a href="http://aulaclick-access.blogspot.com/2012/02/crear-una-cinta-ribbon-en-access-2007.html" target="_blank">http://aulaclick-access.blogspot.com/2012/02/crear-una-cinta-ribbon-en-access-2007.html</a><br />
<ul>
<li><span style="background-color: yellow;">Visual Studio 2019 , Aqui dejo los enlaces por si no lo tienen</span></li>
</ul>
<div>
<span style="background-color: white; color: #333333; font-family: "trebuchet ms", sans-serif; font-size: 14.85px;">1- Descargar Visual Studio Community en este enlace: </span><a href="https://visualstudio.microsoft.com/es/vs/" style="background-color: white; color: #771100; font-family: "trebuchet ms", sans-serif; font-size: 14.85px;" target="_blank">https://visualstudio.microsoft.com/es/vs/</a></div>
<div>
<span style="background-color: white; color: #333333; font-family: "trebuchet ms", sans-serif; font-size: 14.85px;"><span style="font-size: 14.85px;"><br /></span></span><span style="background-color: white; color: #333333; font-family: "trebuchet ms", sans-serif; font-size: 14.85px;">2- Instalar Visual Studio: Ver Video <a href="https://youtu.be/LHSycwITBnI" style="color: #771100; text-decoration-line: none;">https://youtu.be/LHSycwITBnI</a></span></div>
<div>
<ul>
<li><span style="background-color: yellow;">Esquema Office para Programa XML </span></li>
</ul>
<div>
<a href="https://mega.nz/#!0AV0jYJQ!_4szweGjyTcKMBzx8TEu7IKqHGNDIxgdZv6TSPdltUo" target="_blank">Descargar Aqui</a></div>
<div>
<br />
<a href="http://aulaclick-access.blogspot.com/2020/02/reportes-de-inventarios-y-compras-en.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <span style="font-size: xx-small;"><a href="http://aulaclick-access.blogspot.com/2020/02/crear-exe-para-sistema-de-inventarios-y.html">SIGUIENTE</a></span></div>
</div>
</div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-50464104759628465612020-02-29T13:37:00.002-06:002020-06-03T16:07:29.138-05:00REPORTES DE INVENTARIOS Y COMPRAS EN ACCESS E13<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYKwfKaDJ3-VIYSIFvYp7YRa-U0PC-Mnrsfu2aYXLKyKmP_e9eeGkHLhpfgITnHWyeH7J-Tp2PBP_qvp4Gd5BjoROUXnC7S6MX3haE3rCSlDCwn_-V4D62tiwdFD8-MtXagByVZtpUhamf/s1600/REPORTES+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS+E13.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="900" data-original-width="1600" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYKwfKaDJ3-VIYSIFvYp7YRa-U0PC-Mnrsfu2aYXLKyKmP_e9eeGkHLhpfgITnHWyeH7J-Tp2PBP_qvp4Gd5BjoROUXnC7S6MX3haE3rCSlDCwn_-V4D62tiwdFD8-MtXagByVZtpUhamf/s320/REPORTES+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS+E13.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta entrega elaboraremos 2 reportes que complementaran nuestro <b>Sistema de Inventarios y Compras en Access</b>, nuestros diseños se basaran en el Movimientos de Inventarios y también Ordenes de Compra.<br />
<br />
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
Veamos el siguiente Vídeo<br />
<br />
<a name='more'></a><br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/CoGloBSn84A" width="560"></iframe><br />
<br />
<a href="http://aulaclick-access.blogspot.com/2020/02/splash-screen-sistema-de-inventarios-y.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <span style="font-size: xx-small;"><a href="http://aulaclick-access.blogspot.com/2020/02/crear-menu-office-en-access-sistema-de.html">SIGUIENTE</a></span> </div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-48574359739422740802020-02-29T12:11:00.002-06:002020-06-03T16:07:43.526-05:00SPLASH SCREEN SISTEMA DE INVENTARIOS Y COMPRAS | ENT-12<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgalSxWM9evCIHXj5Q6xUv3X2fXhOX2uuyb3_tZkJSWcPUjBSZVfozkqW0RBy1vBl5YMisNdsNslO6nM50IPyAUtlLCkSDtLRgbrsIGljrQ2qMIcuWcabQ8BsJtXqCKa9WRcU35y2OD5ikr/s1600/SPLASH+SCREEM+SISTEMA+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgalSxWM9evCIHXj5Q6xUv3X2fXhOX2uuyb3_tZkJSWcPUjBSZVfozkqW0RBy1vBl5YMisNdsNslO6nM50IPyAUtlLCkSDtLRgbrsIGljrQ2qMIcuWcabQ8BsJtXqCKa9WRcU35y2OD5ikr/s320/SPLASH+SCREEM+SISTEMA+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta entrega realizaremos un<b> Splash Screen del Sistema de Inventarios y Compras</b>, el método es realmente sencillo y fácil de implementar, este requiere de nuestro sentido de creatividad y diseño.<br />
<br />
Solo vamos a necesitas de un formulario y una Imagen de nuestra elección para nuestra aplicación.<br />
<br />
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
En Access hay 2 eventos importantes en el diseño de este tipo de pantalla, estos son:<br />
<br />
<ul>
<li><b>Al cronómetro</b></li>
<li><b>Intervalo de cronómetro</b></li>
</ul>
<div>
<br /></div>
<div>
Veamos el siguiente Vídeo</div>
<div>
<br />
<a name='more'></a><br /></div>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/rvvnXY5OCVY" width="560"></iframe><br />
<br />
<a href="https://aulaclick-access.blogspot.com/2020/02/menu-sistema-de-inventarios-y-compras.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <a href="http://aulaclick-access.blogspot.com/2020/02/reportes-de-inventarios-y-compras-en.html"><span style="font-size: xx-small;">SIGUIENTE </span></a></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-25726979951670660792020-02-28T12:16:00.002-06:002020-06-03T16:07:55.069-05:00MENU SISTEMA DE INVENTARIOS Y COMPRAS | ENT-11<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9imbmSHg5jBnLVrE8Va3Ikxz3D8Cdk0msWeSQXYoGJiWVX7cr-ctDuFgxmrLXkg9WrSVvLTt5fuqeZLBEzo7KeNi2icr08c_paWdh2eV_esvMA6MXQ6Ef3lZViPt04FR0a4gjJnQ7bBB9/s1600/PORTADA+MENU+SISTEMA+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9imbmSHg5jBnLVrE8Va3Ikxz3D8Cdk0msWeSQXYoGJiWVX7cr-ctDuFgxmrLXkg9WrSVvLTt5fuqeZLBEzo7KeNi2icr08c_paWdh2eV_esvMA6MXQ6Ef3lZViPt04FR0a4gjJnQ7bBB9/s320/PORTADA+MENU+SISTEMA+DE+INVENTARIOS+Y+COMPRAS+EN+ACCESS.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta entrega se Diseña y crea el <b>Menú del Sistema de Inventarios y Compras en Access</b>, se utilizan 2 nuevos formularios uno de diseño y otro de navegación.<br />
<br />
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<br />
Esta sera la primer pantalla que nos aparecerá al arrancar el Sistema por lo que se requiere que contenga todos los módulos ya antes vistos.<br />
<br />
En el Siguiente Vídeo se explica su elaboración.<br />
<br />
<a name='more'></a><br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/h4OP52uTw0Q" width="560"></iframe><br />
<br />
<a href="https://aulaclick-access.blogspot.com/2019/08/ordenes-de-compra-en-access-ent-10.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <a href="https://aulaclick-access.blogspot.com/2020/02/splash-screen-sistema-de-inventarios-y.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">SIGUIENTE</a></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com2tag:blogger.com,1999:blog-4316426931913439223.post-38248020970610655022020-02-20T21:24:00.000-06:002020-02-23T11:47:43.515-06:00BORRAR REGISTROS NO CONSECUTIVOS EN ACCESSCuando necesitamos <b>Borrar registros no consecutivos en Access</b>, habitualmente lo hacemos de uno en uno, esto se debe a que el control de Subformulario no tiene la propiedad para <b>seleccionar varios registros no consecutivos </b>y solo después borrar. Sin embargo esto se puede resolver de una forma sencilla.<br />
<div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1ETPKDaOn5-E_OE5uLJy91Wr5A059aXy2GEgVEhO-tkxtN-n8dAJydl_3KkKT6LeAjb5_o1edKwk0Kb64DIrQb57PGH9wlHTQUypA-dSTgvQ8P2F6mNGd77SOt7AiJGvhnQloEZ0qSgnU/s1600/BORRAR+VARIOS+REGISTROS+EN+ACCESS.PNG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="545" data-original-width="1156" height="150" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1ETPKDaOn5-E_OE5uLJy91Wr5A059aXy2GEgVEhO-tkxtN-n8dAJydl_3KkKT6LeAjb5_o1edKwk0Kb64DIrQb57PGH9wlHTQUypA-dSTgvQ8P2F6mNGd77SOt7AiJGvhnQloEZ0qSgnU/s320/BORRAR+VARIOS+REGISTROS+EN+ACCESS.PNG" width="320" /></a></div>
<br />
<br /></div>
<div>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u><br /></u></b>
<b><u>Este Proceso lo haremos en 4 Pasos:</u></b></div>
<div style="text-align: left;">
<br />
<a name='more'></a><span style="background-color: yellow;">PASO 1</span> -Agregar un Campo Nuevo "SELECCIONAR" a la tabla que queremos realizar dicho proceso.<br />
<br />
<span style="background-color: yellow;">PASO 2</span> - Crear 2 Consultas de Acción, una de Actualización y una de Borrado de Registros para la misma tabla en cuestión.<br />
<br />
<span style="background-color: yellow;">PASO 3</span> - Llevar nuestra tabla a un Diseño de Formulario, esto creara un subformulario automáticamente.<br />
<br />
<span style="background-color: yellow;">PASO 4</span>: Crear 2 Botones para Ejecutar las Selección y Borrado de Registros<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/gPvpKBa9mwE" width="560"></iframe>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="48" data-original-width="48" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" /></a><br />
<a href="https://mega.nz/#!cRkWAIqY!z-vtVrsfw0ZVnJITh758LLn3cCQ09aorah0jtuyLj9w" target="_blank">Descargar Ejemplo Aquí</a><br />
<br /></div>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-12467299428068626082020-02-19T20:16:00.000-06:002020-02-24T11:31:32.186-06:00COMO CREAR UN EJECUTABLE (.EXE) PARA ACCESS<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBJLayzHYMijOcLMv2RSzynusyZlO7aLNU6XYXlhxove9a9UZTl1ieOeKkNxGo57RoSojnhlsT_dCPgUwy3_eiFuJHcaavngHoZr7V2W7nOijxUHaMFIcDUqK2FtMd5cs2-21gqAjtAfv5/s1600/Crear+un+EXE+Ejecutable+para+Access.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBJLayzHYMijOcLMv2RSzynusyZlO7aLNU6XYXlhxove9a9UZTl1ieOeKkNxGo57RoSojnhlsT_dCPgUwy3_eiFuJHcaavngHoZr7V2W7nOijxUHaMFIcDUqK2FtMd5cs2-21gqAjtAfv5/s320/Crear+un+EXE+Ejecutable+para+Access.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-family: "trebuchet ms" , sans-serif;">Todos sabemos que MS Access puede crear <b>ejecutables con extensión (.accde)</b> pero no un <b>ejecutable con extensión (.exe)</b> . El primero es una ejecutable nativo de Access, el segundo lo tendríamos que crear nosotros a través de otro software, por ejemplo Visual Studio.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">En esta entrega dejo los detalles de lo que necesitamos para <b>Crear un Ejecutable .exe para Access</b> en cualquier base de datos que hayamos creado, así como un Instalador <b>Setup.exe</b></span><br />
<br />
<span style="font-family: "trebuchet ms" , sans-serif;">Ver el Siguiente Vídeo</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"></span><br />
<a name='more'></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" /></a><br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="460" src="https://www.youtube.com/embed/YCepTW1esXQ" width="800"></iframe>
<br />
<br />
<br />
<span style="background-color: white; color: #333333; font-family: "trebuchet ms" , sans-serif; font-size: 14.85px;">1- Descargar Visual Studio Community en este enlace: </span><a href="https://visualstudio.microsoft.com/es/vs/" style="background-color: white; color: #771100; font-family: "Trebuchet MS", sans-serif; font-size: 14.85px; text-decoration-line: none;" target="_blank">https://visualstudio.microsoft.com/es/vs/</a><br />
<span style="color: #333333; font-family: "trebuchet ms" , sans-serif;"><span style="font-size: 14.85px;"><br /></span></span><span style="background-color: white; color: #333333; font-family: "trebuchet ms" , sans-serif; font-size: 14.85px;">2- Instalar Visual Studio: Ver Video <a href="https://youtu.be/LHSycwITBnI">https://youtu.be/LHSycwITBnI</a></span><br />
<span style="color: #333333; font-family: "trebuchet ms" , sans-serif;"><span style="font-size: 14.85px;"><br /></span></span><span style="background-color: white; color: #333333; font-family: "trebuchet ms" , sans-serif; font-size: 14.85px;">3- Descargar Ejemplo de la base de datos de Alumnos: </span><a href="https://mega.nz/#!tBFEkQ7C!cXmqi7ICNYYNFOntdWMLDni2KXhLFSDW6m5HtfDYdiU" style="background-color: white; font-family: "Trebuchet MS", sans-serif; font-size: 14.85px;" target="_blank">Descargar Aquí </a><br />
<ul style="background-color: white; color: #333333; font-size: 14.85px; line-height: 1.4; list-style-image: initial; list-style-position: initial; margin: 0.5em 0px; padding: 0px 2.5em;"><ul style="background-color: white; color: #333333; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 14.85px; line-height: 1.4; list-style-image: initial; list-style-position: initial; margin: 0.5em 0px; padding: 0px 2.5em; text-decoration-line: none;"><br /></ul>
</ul>
<br />
<span style="background-color: orange;"><i><br /></i></span>
<span style="background-color: orange;"><i><b>**Si no le Aparece Disponible esta Referencia Microsoft.Office.Interop.Access en Visual Studio: </b></i></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLGqbPgi7E9ce06RJ6uhBXyxSQHVrHArWcLtcjTEWNTjeZlx_yuzTOxeK7Boq4SJrtz6GDOOitM537s2D0i413gXCNLbMoYTRzVydyMnlCfjHIAsGfUnmviU9C4Bpw1S02Jy3gxILaAmnN/s1600/Referencia+Microsoft.Office.Interop.Access.PNG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="543" data-original-width="786" height="442" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLGqbPgi7E9ce06RJ6uhBXyxSQHVrHArWcLtcjTEWNTjeZlx_yuzTOxeK7Boq4SJrtz6GDOOitM537s2D0i413gXCNLbMoYTRzVydyMnlCfjHIAsGfUnmviU9C4Bpw1S02Jy3gxILaAmnN/s640/Referencia+Microsoft.Office.Interop.Access.PNG" width="640" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span style="background-color: orange;"><i><b><br /></b></i></span>
<span style="background-color: orange;"><i><b><br /></b></i></span>
<span style="background-color: orange;"><i><b><br /></b></i></span><br />
<span style="background-color: orange;"><i><b><br /></b></i></span>
<span style="background-color: orange;"><i><b>Instalar lo Siguiente:</b></i></span><br />
<br />
En Visual Studio ir al Menu: <b>Herramientas</b> y luego al SubMenu <b>Obtener Herramientas y Caracteristicas</b> y Seleccionar: <b>Office/SharePoint Desarrollo </b>e Instalar.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLCp4VCBcBpY7xkU084ZsnERYQ3pHkvkvT7z0RL14fOx7925z2j33jQjBQcvLpBn8-tGlcsHxXrCZSGGfAcna80rj6vIMw0ALaLiqpm5ROVfk8-t0v7ZROSicgu5J0tivDJwG9z-YpLh6Q/s1600/Instalar+Office+SharePoint+Development.PNG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1290" height="356" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLCp4VCBcBpY7xkU084ZsnERYQ3pHkvkvT7z0RL14fOx7925z2j33jQjBQcvLpBn8-tGlcsHxXrCZSGGfAcna80rj6vIMw0ALaLiqpm5ROVfk8-t0v7ZROSicgu5J0tivDJwG9z-YpLh6Q/s640/Instalar+Office+SharePoint+Development.PNG" width="640" /></a></div>
<br />
<ul style="background-color: white; color: #333333; font-size: 14.85px; line-height: 1.4; list-style-image: initial; list-style-position: initial; margin: 0.5em 0px; padding: 0px 2.5em;"><ul style="background-color: white; color: #333333; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 14.85px; line-height: 1.4; list-style-image: initial; list-style-position: initial; margin: 0.5em 0px; padding: 0px 2.5em; text-decoration-line: none;"><br /></ul>
</ul>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com7tag:blogger.com,1999:blog-4316426931913439223.post-5367192380392180252020-02-14T09:33:00.000-06:002020-02-17T10:12:58.092-06:00Invocar Funcion VBA desde una Consulta<b>Crear consultas en Access </b>que muestren un resultado múltiple es posible <b>Invocando una Función VBA</b>, esto resulta útil cuando un valor de determinada columna contiene varios resultados y estos determinan el contenido de otra columna.<br />
<br />
Pasemos a un Ejemplo:<br />
<br />
<a name='more'></a>Mediante un Consulta Determinar el Bono de Compensación que recibe un Vendedor por el monto de Ventas Mensual.<br />
<br />
Supongamos que estas son las Ventas de Roberto durante el Mes:<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUtkeY1O6SzvhzX1g7Xbk5TimY49IA7_v_4Ja90Yu_VP6YWxK3hQCzRjZRK_f1dm5OgATKXogXLYTGzsbNceygToAwrAVeKYbfqdFKd9PvArwVJma-0nKsChffYyiHXDlrHXwvUxSiZ02k/s1600/Ventas+del+Mes+2.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="709" data-original-width="575" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUtkeY1O6SzvhzX1g7Xbk5TimY49IA7_v_4Ja90Yu_VP6YWxK3hQCzRjZRK_f1dm5OgATKXogXLYTGzsbNceygToAwrAVeKYbfqdFKd9PvArwVJma-0nKsChffYyiHXDlrHXwvUxSiZ02k/s1600/Ventas+del+Mes+2.PNG" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<b style="background-color: yellow;">El total de Ventas del mes es de $27,550</b><br />
<br />
Pero los Bonos de compensación se otorgan mediante los siguientes Rangos:<br />
<br />
< $20000 --- $0<br />
>=$20000 y < $22000 --- $500<br />
>=$22000 y <$25000 --- $1500<br />
>=$25000 y <$28000 --- $2500<br />
>=$28000 y <$31000 --- $3500<br />
>=$31000 y <$35000 --- $5000<br />
>=$35000 ---- 20% de Comisión<br />
<br />
<br />
De este modo Roberto estaría recibiendo una Compensación Mensual de $2500<br />
<br />
Pero Necesitamos Crear una Consulta que Ejecute esta Valoración de Forma automática y lo haremos a través de una Función VBA que llamaremos <b style="background-color: yellow;">CalcularCompensacion</b><br />
<br />
<br />
<u style="font-weight: bold;">Pasemos al diseño de la Consulta</u> (llamar Función desde Consulta)<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjd6tBfcE_X-2C3RmY4vgKqrm0Sxkb5hwAKSx61ffqxoAHVlZivJjCow4CV_cJnQWO_nFGT69hesUXz2Npjte7xZuAHjLl1uSpVPrzEh4r7Yhk4da5YVTPZqA3Rrnw5kdX3GTmxk6pP21yw/s1600/ConsultaCompensaciones.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="470" data-original-width="1479" height="203" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjd6tBfcE_X-2C3RmY4vgKqrm0Sxkb5hwAKSx61ffqxoAHVlZivJjCow4CV_cJnQWO_nFGT69hesUXz2Npjte7xZuAHjLl1uSpVPrzEh4r7Yhk4da5YVTPZqA3Rrnw5kdX3GTmxk6pP21yw/s640/ConsultaCompensaciones.PNG" width="640" /></a></div>
<br />
<br />
<br />
<b><u>Ahora Creamos La Función CalcularCompensacion</u></b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjCjsAGP0y5RvaZ2pL8hwlHQQovuEXZyIX0p7iLnOzoeKbqa3tly5ZNtKLGCz_jtCD8__mUPJXmYBZS9RDHYKxjzs85IWO8Ka408w6wvarp4NX9h49qxPfolSMD1ZaeNMZKwN_8a6_q2CWz/s1600/Funcion+CalcularCompensacion.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="401" data-original-width="1173" height="218" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjCjsAGP0y5RvaZ2pL8hwlHQQovuEXZyIX0p7iLnOzoeKbqa3tly5ZNtKLGCz_jtCD8__mUPJXmYBZS9RDHYKxjzs85IWO8Ka408w6wvarp4NX9h49qxPfolSMD1ZaeNMZKwN_8a6_q2CWz/s640/Funcion+CalcularCompensacion.PNG" width="640" /></a></div>
<br />
<br />
<br />
Al Ejecutar la Consulta obtendremos el siguiente resultado:<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjTPtQKKjZwt-QYWKQnBG9cNkA6ajUAlkQWBC41g9Hr6Uy7pBrgd_OkZ3t063c0D49xkW8i5CkJU6cqoSmt-gt4H5XgDmUlek8213lurnOPJ3kOcK6FMnoMGw_ZGIA1Xv3cl_y8KdtnzSh/s1600/Resultado+de+Consulta+de+Compensaciones.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="364" data-original-width="713" height="326" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjTPtQKKjZwt-QYWKQnBG9cNkA6ajUAlkQWBC41g9Hr6Uy7pBrgd_OkZ3t063c0D49xkW8i5CkJU6cqoSmt-gt4H5XgDmUlek8213lurnOPJ3kOcK6FMnoMGw_ZGIA1Xv3cl_y8KdtnzSh/s640/Resultado+de+Consulta+de+Compensaciones.PNG" width="640" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<img border="0" data-original-height="48" data-original-width="48" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://mega.nz/#!pcs3jQoI!-J4NTejS3wTFTeteUMId3ABqERRULoXEUN8Jy1vcQww" target="_blank">Descargar Aquí Ejemplo</a></div>
<br />
<div class="separator" style="clear: both; text-align: left;">
<img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ChcC-hPoqCCWoF28EUyPpybWvq33UOsWCHQhJa7izxzwpdHr9_pj_ueD0P3AUkxE_8BoUDT2KF8UUJZwTU2i4ri0iSc7luXOFA47SMlL58dqABxMsBLiG-rFhPmWrslPCiZyPTvjHIF2/s1600/camera.gif" /> Ver Vídeo de Ejemplo:</div>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/ka0POt7NI6M" width="560"></iframe>
<br />
<br />ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-15619620383806879632019-09-11T09:55:00.000-05:002019-09-11T09:55:53.970-05:00Crear Atajos de Teclado en Access - AutoKeys<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjp1nQry_WQ4vAQ8-Ja_HUaub24KxfohW-95Em3Szs6AZZvdSbr2aXBDhRttpmQbu1w-Gjewum-lJZ1Vgo9YSX3jljhyphenhyphenwvmHCYV07_nlAauQV0lssuSB59qfYwoY73ldI46UmIkXR4Rl0yq/s1600/AutoKeys+en+Access+usando+Macros.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="AutoKeys en Access" border="0" data-original-height="763" data-original-width="1600" height="152" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjp1nQry_WQ4vAQ8-Ja_HUaub24KxfohW-95Em3Szs6AZZvdSbr2aXBDhRttpmQbu1w-Gjewum-lJZ1Vgo9YSX3jljhyphenhyphenwvmHCYV07_nlAauQV0lssuSB59qfYwoY73ldI46UmIkXR4Rl0yq/s320/AutoKeys+en+Access+usando+Macros.png" title="AutoKeys en Access" width="320" /></a></div>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">Puede asignar un acción o un conjunto de acciones a un método abreviado de teclado o tecla específico mediante la creación de un <b>AutoKeys</b> grupo de macros. Cuando presione el método abreviado de teclado o tecla, Microsoft Office Access realiza la acción.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">Las macros también te permitirán crear métodos abreviados de teclado. Esto es, podremos asignar a una combinación de teclas una determinada acción, a través de una macro. Sólo tendrás que seguir los siguientes pasos:</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">1. Crea una nueva macro y llámala AutoKeys.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">2. Crea una submacro por cada combinación de teclas que quieras implementar.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">3. Como nombre, cada submacro deberá contener una combinación de teclas que siga la sintaxis de la siguiente tabla:</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<br />
<a name='more'></a><h3>
<span style="background-color: white;"><span style="font-family: "trebuchet ms" , sans-serif;">Sintaxis AutoKeys métodos abreviados de teclado</span></span></h3>
<div>
<span style="background-color: white;"><span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></span></div>
<div style="background-color: white; box-sizing: border-box; color: #2f2f2f; line-height: 1.5; padding: 0px;" xmlns:antixss="urn:AntiXSSExtensions" xmlns:friendlytitlelookup="urn:FriendlyTitleLookup" xmlns:hrefappend="urn:HrefExtensions">
<span style="font-family: "trebuchet ms" , sans-serif;">La siguiente tabla muestra algunos ejemplos de métodos abreviados de teclado que se pueden escribir en la columna <span class="ocpUI" style="box-sizing: border-box; font-weight: 700;">Nombre de Macro</span> para realizar asignaciones de teclas en un <b>AutoKeys</b> grupo de macros. Estos métodos abreviados de teclado son un subconjunto de la sintaxis de la que se usa en la instrucción <span class="ocpUI" style="box-sizing: border-box; font-weight: 700;">EnviarTeclas </span>Microsoft Visual Basic.</span></div>
<div style="background-color: white; box-sizing: border-box; color: #2f2f2f; line-height: 1.5; padding: 0px;" xmlns:antixss="urn:AntiXSSExtensions" xmlns:friendlytitlelookup="urn:FriendlyTitleLookup" xmlns:hrefappend="urn:HrefExtensions">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<table class="banded flipColors" id="tblID0EBBBAAA" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-collapse: collapse; border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; color: #363636; font-size: 10px; margin-bottom: 20px; margin-top: 10px; padding: 0px; width: 768px;" xmlns:antixss="urn:AntiXSSExtensions" xmlns:friendlytitlelookup="urn:FriendlyTitleLookup" xmlns:hrefappend="urn:HrefExtensions"><thead style="box-sizing: border-box;">
<tr style="background-color: #dadada; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><th style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; background-position: initial; background-repeat: initial; background-size: initial; border: 0px; box-sizing: border-box; color: #333333; font-size: 1em; font-weight: normal; padding: 3px 10px 3px 5px; text-align: left;"><div style="box-sizing: border-box; color: #393939; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span class="ocpLegacyBold x-hidden-focus" style="box-sizing: border-box; font-weight: 700;"><span style="font-family: "trebuchet ms" , sans-serif;">Nombre de la macro</span></span></div>
</th><th style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; background-position: initial; background-repeat: initial; background-size: initial; border: 0px; box-sizing: border-box; color: #333333; font-size: 1em; font-weight: normal; padding: 3px 10px 3px 5px; text-align: left;"><div style="box-sizing: border-box; color: #393939; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span class="ocpLegacyBold" style="box-sizing: border-box; font-weight: 700;"><span style="font-family: "trebuchet ms" , sans-serif;">Método abreviado de teclado o tecla</span></span></div>
</th></tr>
</thead><tbody style="box-sizing: border-box;">
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">^ A o ^ 4</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">CTRL + A o CTRL + 4</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">{F1}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div class="x-hidden-focus" style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">F1</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">^ {F1}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">CTRL+F1</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">+ {F1}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">MAYÚS+F1</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">{INSERT}</span></div>
</td><td class="x-hidden-focus" style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">INSERTAR</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">^ {INSERTAR}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">CTRL + INSERTAR</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">+ {INSERT}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">MAYÚS+INSERT</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">{DELETE} o {DEL}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">SUPRIMIR</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">^ {DELETE} o ^ {DEL}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">CTRL+SUPR</span></div>
</td></tr>
<tr style="background-color: #f4f4f4; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); box-sizing: border-box; padding: 0px !important; vertical-align: top;"><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">+ {SUPR} o + {SUPR}</span></div>
</td><td style="box-sizing: border-box; margin: 0px; padding: 4px 10px; vertical-align: top;"><div style="box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;">
<span style="font-family: "trebuchet ms" , sans-serif;">MAYÚS + SUPR</span></div>
</td></tr>
</tbody></table>
<div style="background-color: white; box-sizing: border-box; color: #2f2f2f; font-size: 1.6em; line-height: 1.5; padding: 0px;" xmlns:antixss="urn:AntiXSSExtensions" xmlns:friendlytitlelookup="urn:FriendlyTitleLookup" xmlns:hrefappend="urn:HrefExtensions">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<span style="font-family: "trebuchet ms" , sans-serif;">Esto no significa que sólo puedas utilizar esas combinaciones. Recuerda, se trata de la sintaxis, pero podrías también utilizar {F2}, {F4}, ^{F5}, etc. Lo único que deberás tener en cuenta es que la tecla CTRL se escribirá como ^, y la tecla MAYÚS como +.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">Las teclas que contengan más de una letra deberán ir encerradas entre llaves {} para que no se confundan con combinaciones. Por ejemplo, END sería el equivalente a la combinación de teclas E+N+D, mientras que {END} equivaldría a pulsar la tecla FIN.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">4. Incluye tantas acciones como desees que se ejecuten al pulsar las teclas.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">Es recomendable que trates de comprobar que la combinación no exista ya por defecto en Access, porque le dará prioridad a tu macro. Por ejemplo, F1 ejecuta la ayuda de Access, si asignas una macro a F1 ya no dispondrás de ese práctico atajo.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">Veamos un ejemplo:</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgyRQIfArzyWXZ1rofMfPcu_9OfYm1odsXV0Xcugz32HJH_fDifYVtnCdb2f4JHCuusDA4cdgZZaF5VRaWK4j30yjVLIrDs9Kb86cPI1pIuNhj4eQKLfYmeFvkm_ztyW6RrY7cZ5JPVQkz-/s1600/Autokeys+en+Macros+de+Access+2.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Macro de Atajos en Access" border="0" data-original-height="910" data-original-width="779" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgyRQIfArzyWXZ1rofMfPcu_9OfYm1odsXV0Xcugz32HJH_fDifYVtnCdb2f4JHCuusDA4cdgZZaF5VRaWK4j30yjVLIrDs9Kb86cPI1pIuNhj4eQKLfYmeFvkm_ztyW6RrY7cZ5JPVQkz-/s1600/Autokeys+en+Macros+de+Access+2.PNG" title="Macro de Atajos en Access" /></a></div>
<br />
<br />
<span style="font-family: "trebuchet ms" , sans-serif;">En la imagen vemos cuatro submacros que nos permitirán que:</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">- Al pulsar F2 se abre el formulario de Compras</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">- Al pulsar F3 se abre el formulario de Inventarios</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">- Al pulsar F4 se abre el formulario de Ventas</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">- Al pulsar SHIFT+F12 Salir el Sistema</span>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-27988845917719831512019-08-11T12:24:00.002-05:002020-06-03T16:08:11.276-05:00ORDENES DE COMPRA EN ACCESS | ENT-10<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTIhqhyphenhyphenSlxVYdNemwyCdcRHhtWC-ooQqTd_14nRUqOnrNw98mjkcnxDvjReKnAdBAVXQ87Tt2pn5VxsCzshgz_0U0iBp3wdHOpgLuqWXBdKDDI45Uu7gaQ8tZYsAVIAZEPIANLTC5-Eznw/s1600/ORDENES+DE+COMPRA+EN+ACCESS.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTIhqhyphenhyphenSlxVYdNemwyCdcRHhtWC-ooQqTd_14nRUqOnrNw98mjkcnxDvjReKnAdBAVXQ87Tt2pn5VxsCzshgz_0U0iBp3wdHOpgLuqWXBdKDDI45Uu7gaQ8tZYsAVIAZEPIANLTC5-Eznw/s320/ORDENES+DE+COMPRA+EN+ACCESS.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-family: "trebuchet ms", sans-serif;">Ya estamos en la entrega 10 de este laboratorio Sistema de Inventarios y Compras en Access, en esta entrega se elabora el formulario de Ordenes de Compra y Detalles, para realizar esta tarea necesitamos revisar la relación de tablas en este laboratorio y ver cual sera su interacción de datos con otras tablas.</span><div><font face="trebuchet ms, sans-serif"><br /></font>
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<br />
<a name='more'></a><span style="font-family: "trebuchet ms", sans-serif;">Veamos en este vídeo la relación de las tablas afectadas y la creación de este formulario.</span><br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" /></a><span style="font-family: "trebuchet ms", sans-serif;"><br /></span><br />
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/Hh7cdrnnfbo" width="560"></iframe><br />
<br />
<br />
<a href="https://aulaclick-access.blogspot.com/2019/06/inventarios-locaciones-e-historial.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <a href="https://aulaclick-access.blogspot.com/2020/02/menu-sistema-de-inventarios-y-compras.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">SIGUIENTE</a></div></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com4tag:blogger.com,1999:blog-4316426931913439223.post-91092045059080443832019-08-10T11:43:00.003-05:002020-06-03T11:47:27.092-05:00CREAR Y AGRUPAR REPORTES EN ACCESS | MENU DE INFORMES<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghUWSMTiLvgz14ODatd2fQEfM249ZITHBnU_ya_FY7xxRI6RajMQk4X3yzh7DIxpggcOLqBcL79uxxIe6kMxXbtmFPcIW8tXUJqTkFCtQYH0Dz_djvdgKFM581ro5tG1Ag8MPbxTo_2s_v/s1600/CREAR+Y+AGRUPAR+REPORTES+EN+ACCESS+2.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghUWSMTiLvgz14ODatd2fQEfM249ZITHBnU_ya_FY7xxRI6RajMQk4X3yzh7DIxpggcOLqBcL79uxxIe6kMxXbtmFPcIW8tXUJqTkFCtQYH0Dz_djvdgKFM581ro5tG1Ag8MPbxTo_2s_v/s320/CREAR+Y+AGRUPAR+REPORTES+EN+ACCESS+2.png" width="320" /></a><span style="font-family: "trebuchet ms", sans-serif;"></span><br />
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;"><span style="font-family: "trebuchet ms", sans-serif;"><br /></span></span>
<span style="font-family: "trebuchet ms", sans-serif;">Hola Amigos de AulaClick de Access en esta publicación les traigo un método para crear y agrupar nuestros <b>Reportes en Access</b>, una de tantas formas que existen para hacerlo.</span><div><font face="trebuchet ms, sans-serif"><br /></font>
<div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje. por solo $5.99 dolares</b></font></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<a name='more'></a><span style="font-family: "trebuchet ms", sans-serif;">Les dejo >>> <a href="https://mega.nz/#!hZkWnSSa!mBbp5VHr-R4QfBoOFx2UUPUAKtWzDfXDjB64_sEyIDw" target="_blank">Aquí</a> <<< la descarga de las Tablas para esta Practica.</span><br />
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms", sans-serif;">Basados en las tablas de ALUMNOS, ESPECIALIDADES Y PROFESORES crearemos nuestros <b>INFORMES EN ACCESS</b> y los agruparemos.</span><br />
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" /></a><span style="font-family: "trebuchet ms", sans-serif;">Veamos el Siguiente Vídeo</span><br />
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms", sans-serif;"><br /></span>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/QEdKro5rYp4" width="560"></iframe></div></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-19160739855532210762019-07-10T15:02:00.000-05:002019-08-04T12:29:44.219-05:00Conectar Access con Visual Studio | Visual Basic .NET | Video Tutorial<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7Wz94oKXkqrTkanPcbK-f33ifxAf2gsiaENYhH-EoQweFaoHn36LrnB1UVvZWwTCR5J62DVLGGbdXcfSJ3-rrUAJz8CTx7PnHIHR5dZMedPEO-5AbvZgZK0stqSvqpptB4q-ltGWIW26N/s1600/MS+Access+y+Visual+Basic+.NET.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="328" data-original-width="235" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7Wz94oKXkqrTkanPcbK-f33ifxAf2gsiaENYhH-EoQweFaoHn36LrnB1UVvZWwTCR5J62DVLGGbdXcfSJ3-rrUAJz8CTx7PnHIHR5dZMedPEO-5AbvZgZK0stqSvqpptB4q-ltGWIW26N/s320/MS+Access+y+Visual+Basic+.NET.png" width="228" /></a>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">En este <b>Video Tutorial de Access y Visual Basic .NET</b> vamos a definir los pasos esenciales para crear cualquier sistema en VB.NET usando MS Access como origen de datos. Utilizaremos la Tecnología <b>ADO.NET</b> en sus 2 modalidades Conectada y Desconectada.</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;">En-listo los siguientes pasos a seguir:</span><br />
<span style="font-family: "trebuchet ms" , sans-serif;"></span><br />
<a name='more'></a><span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>
<span style="font-family: "trebuchet ms" , sans-serif;"><u><b>PREPARACION DE SOFTWARE Y CONEXION A ACCESS</b></u></span><br />
<br />
<ul>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Descargar Visual Studio Community</span></li>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/LHSycwITBnI" width="560"></iframe>
<br />
</ul>
<ul>Descargar Visual Studio Community en este enlace:</ul>
<ul>
<a href="https://visualstudio.microsoft.com/es/vs/" target="_blank">https://visualstudio.microsoft.com/es/vs/</a></ul>
<ul>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/Isr4rKZElKM" width="560"></iframe></ul>
<ul><i><span style="background-color: orange; font-family: "trebuchet ms" , sans-serif;">PROBLEMA A RESOLVER: <b>el proveedor 'microsoft.ace.oledb.12.0' no está registrado en el equipo local.</b></span></i></ul>
<ul>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear una Base de Datos de Access y la llamaremos AccessNET.accdb <b><span style="color: blue;"><a href="https://mega.nz/#!MQ13hIKK!Ym37WztS1xiNhRYmFVSREeextpSXd22uRtg72atxV10" target="_blank">Descargar </a></span></b></span><span style="color: blue; font-family: "trebuchet ms" , sans-serif;"><b><a href="https://mega.nz/#!MQ13hIKK!Ym37WztS1xiNhRYmFVSREeextpSXd22uRtg72atxV10" target="_blank">Aquí</a></b></span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Descargar Access Database Engine <span style="color: blue;"><b><a href="https://www.microsoft.com/en-my/download/details.aspx?id=13255" target="_blank">Descargar </a></b></span></span><span style="color: blue; font-family: "trebuchet ms" , sans-serif;"><b><a href="https://www.microsoft.com/en-my/download/details.aspx?id=13255" target="_blank">Aquí</a></b></span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear prueba de conexión a la base de datos AccessNET.accdb con un Dataset</span></li>
</ul>
<div>
<u style="font-family: "trebuchet ms", sans-serif;"><u style="font-family: "Trebuchet MS", sans-serif;"><b><br /></b></u></u>
<u style="font-family: "trebuchet ms", sans-serif;"><u style="font-family: "Trebuchet MS", sans-serif;"><b>¿QUE ES LA ARQUITECTURA ADO.NET?</b></u></u><br />
<ul>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Modo Conectado a Datos (OLEDB)</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Modo Desconectado a Datos (DataSets)</span></li>
</ul>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/qoxH5cuhOSg" width="560"></iframe>
<u style="font-family: "trebuchet ms", sans-serif;"><b><br /></b></u>
<u style="font-family: "trebuchet ms", sans-serif;"><b><br /></b></u></div>
<div>
<div>
<u style="font-family: "Trebuchet MS", sans-serif;"><b>MODALIDAD DE CONEXIÓN DESCONECTADA (DataSets)</b></u></div>
<div>
<u style="font-family: "Trebuchet MS", sans-serif;"><b><br /></b></u></div>
<div>
<ul>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear un DataSource en VB.NET para </span>AccessNET.accdb</li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear un Formulario Grid con Controles de Navegacion</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear un Formulario Detalle para una Tabla de Access</span></li>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/TarypDR3kyw" width="560"></iframe>
<br />
<li><span style="font-family: "trebuchet ms" , sans-serif;">Crear un Formulario y enlazar Controles con BindingSource</span></li>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/yimL1DWEWyg" width="560"></iframe>
<br />
<li><span style="font-family: "trebuchet ms" , sans-serif;">Y mas...</span></li>
</ul>
</div>
<br /></div>
<div>
<u><b style="font-family: "trebuchet ms", sans-serif;">MODALIDAD DE CONEXIÓN CONECTADA (</b><span style="font-family: "trebuchet ms" , sans-serif;"><b>Programación</b></span><b style="font-family: "trebuchet ms", sans-serif;"> OLEDB)</b></u></div>
<ul>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Mostrar Registros en Visual Basic .NET y Access</span></li>
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/I3TPtRWyRdA" width="560"></iframe>
<br />
<li><span style="font-family: "trebuchet ms" , sans-serif;">Insertar Registros en VB.NET y Access</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Eliminar Registros en VB.NET y Access</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Modificar Registros en VB.NET y Access</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">Y mas...</span></li>
</ul>
<div>
<u style="font-family: "Trebuchet MS", sans-serif;"><b><br /></b></u>
<u style="font-family: "Trebuchet MS", sans-serif;"><b><br /></b></u>
<u style="font-family: "Trebuchet MS", sans-serif;"><b><br /></b></u>
</div>
<div>
<ul>
</ul>
</div>
<br />
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com8tag:blogger.com,1999:blog-4316426931913439223.post-22027069375715821502019-07-02T22:19:00.003-05:002020-06-03T16:08:24.497-05:00CONTROL DE INVENTARIOS FIFO EN ACCESS VBA | ENT-9<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0AXj0KzjB2grc7vpiN4IohKQR7scXCEDNboYKsWZcj_kLe0maRR_RmXD08dLlLb29__KacfTKv4PgXDQqBEu1M09HDSGd4l0ZcVbv-ZbT6gNu8BCgbQfb7aXsXQ66j-3zbIlMXJBQcY7b/s1600/CONTROL+DE+INVENTARIOS+FIFO+EN+ACCESS+VBA.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0AXj0KzjB2grc7vpiN4IohKQR7scXCEDNboYKsWZcj_kLe0maRR_RmXD08dLlLb29__KacfTKv4PgXDQqBEu1M09HDSGd4l0ZcVbv-ZbT6gNu8BCgbQfb7aXsXQ66j-3zbIlMXJBQcY7b/s320/CONTROL+DE+INVENTARIOS+FIFO+EN+ACCESS+VBA.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
En esta publicación se comparten los códigos VBA en Access, para nuestro Sistema de Inventarios y Compras en Access.<br />
<br />
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
Se explica el funcionamiento lógico del Sistema enfocado a la entrega 9, se aprecia claramente el funcionamiento del control de inventarios aplicando el sistema FIFO o PEPS como también se le conoce.<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" /></a>VER VÍDEO EXPLICACIÓN<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/OIu55YuGO2E" width="560"></iframe>
<br />
<br />
Aquí les comparto los códigos, les recomiendo primero descargar el diseño de esta entrega en la anterior publicación de este laboratorio.<br />
<br />
<a name='more'></a><br />
<b>CÓDIGO DE MODULO DE INVENTARIOS</b><br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
Public MSGListado As String
'Funcion Principal de Inventarios
'Modificar el disponible de Inventario de Productos
Public Function ModificarInventarios(idInvHist As Integer) As Boolean
On Error GoTo Err:
DoCmd.SetWarnings False
Dim idProd As Integer
Dim tipoMov As String
Dim cantMov As Integer
Dim cantActual As Double
Dim cantNueva As Double
Dim idLoc As Integer
idProd = Nz(DLookup("ID_PRODUCTO", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), 0)
tipoMov = Nz(DLookup("TIPO_MOV", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), "")
cantMov = Nz(DLookup("CANT_MOV", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), 0)
cantActual = Nz(DLookup("CANT_DISP", "INVENTARIOS", "ID_PRODUCTO=" & idProd), 0)
Select Case tipoMov
Case Is = "ENTRADA"
'Modificar Capacidad UTILIZADA de LOCACIONES de Inventario
idLoc = Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC
If ModCapUtilizadaLocaciones(idLoc, cantMov, tipoMov) = False Then
MsgBox "La Capacidad disponible en esta locacion es menor a la cantidad que desea Mover. Elija otra Locacion", vbCritical + vbOKOnly
ModificarInventarios = False
Exit Function
End If
cantNueva = cantActual + cantMov
Case Is = "SALIDA"
cantNueva = cantActual - cantMov
Call DescontarInventarios(idProd, cantMov)
End Select
'Acualizar inventario DISPONIBLE
DoCmd.RunSQL "UPDATE INVENTARIOS SET CANT_DISP=" & cantNueva & " WHERE ID_PRODUCTO=" & idProd & ";"
ModificarInventarios = True
Exit Function
Err:
MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function
'Modificar la Capacidad Utilizada de LOCACIONES
Public Function ModCapUtilizadaLocaciones(idLocacion As Integer, CantModificar As Integer, tipoMovimiento As String) As Boolean
On Error GoTo Err:
DoCmd.SetWarnings False
Dim capacidadTotal As Integer 'Capacidad total del Contenedor
Dim actualCapUtiDisponible As Integer 'Actual Capacidad Utilizada Disponible
Dim CapUtilizada As Integer 'Nueva Capacidad Utilizada Disponible
Dim nuevaCapUtilizada As Integer 'Nueva Capacidad Utilizada Disponible
capacidadTotal = Nz(DLookup("CAPACIDAD", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
actualCapUtiDisponible = capacidadTotal - Nz(DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
CapUtilizada = Nz(DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
Select Case tipoMovimiento
Case Is = "ENTRADA"
If CantModificar > actualCapUtiDisponible Then
ModCapUtilizadaLocaciones = False
Exit Function
End If
nuevaCapUtilizada = CapUtilizada + CantModificar
DoCmd.RunSQL "UPDATE LOCACIONES SET CAP_UTILIZADA=" & nuevaCapUtilizada & " WHERE ID_LOC=" & idLocacion & ";"
ModCapUtilizadaLocaciones = True
Case Is = "SALIDA"
nuevaCapUtilizada = CapUtilizada - CantModificar
DoCmd.RunSQL "UPDATE LOCACIONES SET CAP_UTILIZADA=" & nuevaCapUtilizada & " WHERE ID_LOC=" & idLocacion & ";"
ModCapUtilizadaLocaciones = True
End Select
Exit Function
Err:
MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function
Public Function DescontarInventarios(idProd As Integer, cantDescontar As Integer) As Boolean
On Error GoTo Err:
Dim rst As DAO.Recordset
Dim sqlStr As String
Dim cantLocacion As Integer
Dim listadoDeLocacionesADescontar(100) As String
'Dim msgListado As String
Dim cont As Integer
cont = 0
sqlStr = "SELECT * FROM [HISTORIA_MOV] HM WHERE HM.ID_PRODUCTO=" & idProd & " AND HM.TIPO_MOV='ENTRADA'" & " ; "
Set rst = CurrentDb.OpenRecordset(sqlStr)
If rst.BOF And rst.EOF Then
DescontarInventarios = False 'No encontro ningun registro
GoTo CerrarConexion
Else
Do While Not rst.EOF
cantLocacion = rst!CANT_MOV
'========================================================
'Se ejecuta si PARCIAL ES VERDADERO
'========================================================
If rst!PARCIAL = True Then
'Cantidad a descontar es menor a locacion
If cantDescontar < rst!CANT_PARCIAL Then
rst.Edit
rst!CANT_PARCIAL = rst!CANT_PARCIAL - cantDescontar
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
rst.Update
GoTo CerrarConexion
End If
'Cantidad a descontar es igual a locacion
If cantDescontar = rst!CANT_PARCIAL Then
rst.Edit
rst!PARCIAL = False
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
rst!CANT_PARCIAL = 0
rst.Update
GoTo CerrarConexion
End If
'Cantidad a descontar es mayor a locacion
If cantDescontar > rst!CANT_PARCIAL Then
rst.Edit
'Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
rst!PARCIAL = False
Call ModCapUtilizadaLocaciones(rst!ID_LOC, rst!CANT_PARCIAL, "SALIDA")
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & rst!CANT_PARCIAL & ", Lote: " & rst!LOTE
cantDescontar = cantDescontar - rst!CANT_PARCIAL
rst!CANT_PARCIAL = 0
rst.Update
End If
End If
'========================================================
'Se ejecuta si DISPONIBLE ES VERDADERO
'========================================================
If rst!DISPONIBLE = True Then
'Cantidad a descontar es menor a locacion
If cantDescontar < cantLocacion Then
rst.Edit
rst!DISPONIBLE = False
rst!PARCIAL = True
rst!CANT_PARCIAL = cantLocacion - cantDescontar
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
rst.Update
GoTo CerrarConexion
End If
'Cantidad a descontar es igual a locacion
If cantDescontar = cantLocacion Then
rst.Edit
rst!DISPONIBLE = False
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
rst.Update
GoTo CerrarConexion
End If
'Cantidad a descontar es mayor a locacion
If cantDescontar > cantLocacion Then
rst.Edit
rst!DISPONIBLE = False
Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantLocacion, "SALIDA")
listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantLocacion & ", Lote: " & rst!LOTE
cantDescontar = cantDescontar - cantLocacion
rst.Update
End If
End If
'--------------------------------------------------------
rst.MoveNext
cont = cont + 1
Loop
End If
CerrarConexion:
MSGListado = ""
Dim i As Integer
For i = 0 To cont
MSGListado = MSGListado & listadoDeLocacionesADescontar(i) & vbCrLf
Next i
rst.Close
Set rst = Nothing
Exit Function
Err:
MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function
Public Function ObtenerListado() As String
ObtenerListado = MSGListado
End Function
</pre>
<br />
<br />
<br />
<b>CÓDIGO DE MODULO DE VALIDACIONCAMPOS</b>
<br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
Public Function CampoVacio(NomForm As Form, Cancel As Integer) As Boolean
' Codigo para impedir una accion . . . !!
' si existiese algun campo vacio
On Error GoTo Err_CampoVacio_Click
Dim campo As Control 'Variable tipo control
For Each campo In NomForm 'Abro un Bucle
' Inpido los tipos de campo que deseo recorrer para analizar
If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Or TypeOf campo Is ListBox Then
If Left(campo.Name, 2) <> "ID" And campo.Properties("Enabled") = True Then
If Not IsNull(campo) Then 'La condicion
campo.BackColor = vbWhite 'se establece fondo blanco
'De no haber campo nulo dejo correr el codigo
Else
campo.BackColor = vbYellow 'Le pongo color para diferenciarlo
campo.SetFocus
MsgBox "Para realizar esta Accion " & vbCrLf & _
"se requiere un valor para " & campo.Name _
, vbExclamation, "Campo Vacio"
Cancel = True
End
Exit Function
'Si lo encuentro, detengo el codigo, aviso con un Msgbox
'y Situo el setfocus al campo vacio
End If
End If
End If
Next campo
'Si llegamos aqui es que no consigo campos nulos
'Y ejecuto el comando (Puedes colocar cualquiera)
'Abrir form, consultas, exportar a pdf, etc....
CampoVacio = False
Exit_CampoVacio_Click: 'Tratamiento de errores
Exit Function
Err_CampoVacio_Click:
MsgBox Err.Description
Resume Exit_CampoVacio_Click
End Function
</pre>
<br />
<br />
<b>CÓDIGOS DE FORMULARIO MOVIMIENTOS DE INVENTARIOS</b><br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
Private Sub ComandoGUARDAR_Y_SALIR_Click()
On Error GoTo Err:
Dim invDisponible As Integer
'Verificar Campos Vacios en Formulario
If CampoVacio(Me.Form, 0) = False Then
'Asignar Valores a Controles
Me.ID_PRODUCTO.Value = DLookup("ID_PRODUCTO", "PRODUCTOS", "ID_PRODUCTO=" & Forms![INVENTARIOS DE PRODUCTO]!ComboBUSCAR_PRODUCTO)
Me.FECHA_MOV.Value = Date
Me.HORA_MOV.Value = Time
'========================================================
'Se ejecuta si el movimiento es una ENTRADA DE INVENTARIO
'========================================================
If Me.TIPO_MOV.Value = "ENTRADA" Then
'Guardar Registro
DoCmd.RunCommand acCmdSaveRecord
'Refrescar Formulario Principal
Forms![INVENTARIOS DE PRODUCTO].Refresh
Forms![INVENTARIOS DE PRODUCTO]![Subformulario RANGOS_INV_PRODUCTO].Requery
'Modificar Inventarios con Ultimo Movimiento registrado, pasamos como argumento el ID del movimiento generado
If ModificarInventarios(Me.ID_INV_HIST.Value) = True Then
'Salir
DoCmd.Close
Exit Sub
End If
End If
'=======================================================
'Se ejecuta si el movimiento es una SALIDA DE INVENTARIO
'=======================================================
If Me.TIPO_MOV.Value = "SALIDA" Then
'Verificar si hay suficiente Inventario
invDisponible = Nz(DLookup("CANT_DISP", "INVENTARIOS", "ID_PRODUCTO=" & Me.ID_PRODUCTO.Value), 0)
If Me.CANT_MOV.Value > invDisponible Then
MsgBox "No hay suficiente inventario de este producto para dar SALIDA. Elija una Cantidad menor", vbCritical + vbOKOnly
Exit Sub
End If
'Guardar Registro
Me.DISPONIBLE.Value = False
DoCmd.RunCommand acCmdSaveRecord
'Refrescar Formulario Principal
Forms![INVENTARIOS DE PRODUCTO].Refresh
Forms![INVENTARIOS DE PRODUCTO]![Subformulario RANGOS_INV_PRODUCTO].Requery
'Modificar Inventarios con Ultimo Movimiento registrado, pasamos como argumento el ID del movimiento generado
If ModificarInventarios(Me.ID_INV_HIST.Value) = True Then
'Salir
DoCmd.Close
End If
'Abrir Reporte de listado de partes
DoCmd.OpenReport "LISTADO", acViewPreview
End If
'---------------------------------------------------------
End If
Exit Sub
Err:
MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Sub
Private Sub ComboBoxID_LOC_AfterUpdate()
On Error GoTo Err:
'Mostrar Capacidad de Locacion
Dim capacidad As Integer
Dim utilizada As Integer
Dim tipoMov As String
tipoMov = Me.TIPO_MOV.Value
If tipoMov = "ENTRADA" Then
capacidad = DLookup("CAPACIDAD", "LOCACIONES", "ID_LOC=" & Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC)
utilizada = DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC)
Me.LabelCAPACIDAD.Caption = "Capacidad Disponible: " & capacidad - utilizada
End If
Exit Sub
Err:
MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Sub
Private Sub Form_Load()
'Mostrar Nombre el Producto
Me.LabelPRODUCTO.Caption = DLookup("NOMBRE_PRODUCTO", "PRODUCTOS", "ID_PRODUCTO=" & Forms![INVENTARIOS DE PRODUCTO]!ComboBUSCAR_PRODUCTO)
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.LabelCAPACIDAD.Caption = ""
End Sub
Private Sub TIPO_MOV_AfterUpdate()
Dim tipoMov As String
tipoMov = Me.TIPO_MOV.Value
'ACTIVAR/DESACTIVAR CONTROLES
If tipoMov = "SALIDA" Then
Me.LOTE.Enabled = False
Me.CADUCIDAD.Enabled = False
Me.ComboBoxID_LOC.Enabled = False
Else
Me.LOTE.Enabled = True
Me.CADUCIDAD.Enabled = True
Me.ComboBoxID_LOC.Enabled = True
End If
End Sub
</pre>
<br />
<br />
<b>CÓDIGOS DE FORMULARIO INVENTARIOS DE PRODUCTO</b><br />
<br />
<br />
<pre class="brush:vb;">Option Compare Database
Private Sub Form_Load()
DoCmd.Maximize
DoCmd.GoToRecord , , acFirst
End Sub
</pre>
<br />
<br />
<br />
<a href="http://aulaclick-access.blogspot.com/2019/06/inventarios-locaciones-e-historial.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small; text-decoration-line: none;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small; text-decoration-line: none;">INDICE</a> <span style="font-size: xx-small;"><a href="https://aulaclick-access.blogspot.com/2019/08/ordenes-de-compra-en-access-ent-10.html">SIGUIENTE</a></span></div>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com1tag:blogger.com,1999:blog-4316426931913439223.post-82124536011497920542019-06-26T21:06:00.001-05:002019-06-26T21:06:59.661-05:00Funcion Environ() en Access | Variables de Entorno de Windows<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLZ_JqTbUeeuLyuYiNB4NoZMA_ZIZN8KAYmZuc9SWyeXGGQDZRbvZj-_Z2tZrRjGKjCfO85rIgIn3v-T-3ahrfvPT7y7BXQOPF9lnYJ1WZepgTZ84wfl7OyT_qIFiARapqN7wPt6gPtPHv/s1600/FUNCION+ENVIRON+EN+ACCESS+VBA.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLZ_JqTbUeeuLyuYiNB4NoZMA_ZIZN8KAYmZuc9SWyeXGGQDZRbvZj-_Z2tZrRjGKjCfO85rIgIn3v-T-3ahrfvPT7y7BXQOPF9lnYJ1WZepgTZ84wfl7OyT_qIFiARapqN7wPt6gPtPHv/s320/FUNCION+ENVIRON+EN+ACCESS+VBA.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Todas aquellas ocasiones cuando necesitamos saber algunas condiciones de entorno de nuestro Sistema Operativo desde un Sistema en Access, por ejemplo mostrar el Nombre el Usuario (<b>USERNAME</b>) que esta activo en Windows ó el Nombre de nuestra Computadora (<b>COMPUTERNAME</b>) ó saber si nuestro procesador es 64 bits (<b>PROCESSOR_ARCHITECTURE</b>), lo primero que pensaríamos es que necesitamos incluir alguna API de Windows en nuestro código VBA para ver estos valores...<br />
<br />
<a name='more'></a><br />
<br />
<span style="background-color: yellow;">Pues la verdad NO ES NECESARIO</span>. Ya que <b>Microsoft Access nos provee de una Función llamada Environ()</b> que nos proporciona los valores de estas <i>Variables de Entorno de Windows</i>, sin utilizar código muy complejo.<br />
<br />
<b><u>Las Variables de Entorno que podemos consultar pueden ser como estas:</u></b><br />
<br />
<span style="color: black; font-family: "calibri";"></span><br />
<table bgcolor="#ffffff" border="1" cellspacing="0"><caption><b>EJEMPLOS DE VARIABLES DE ENTORNO</b></caption>
<thead>
<tr>
<th bgcolor="#c0c0c0" bordercolor="#000000"><span style="color: black; font-family: "calibri"; font-size: 11pt;">VARIABLES ENVIRON</span></th>
</tr>
</thead>
<tbody>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">LLUSERSPROFILE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">APPDATA</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">AVENGINE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">CLIENTNAME</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">CommonProgramFiles</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">COMPUTERNAME</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">ComSpec</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">FP_NO_HOST_CHECK</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">HOMEDRIVE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">HOMEPATH</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">INCLUDE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">INOCULAN</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">LIB</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">LOGONSERVER</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">NUMBER_OF_PROCESSORS</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">OS</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">Path</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">PATHEXT</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">PROCESSOR_ARCHITECTURE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">PROCESSOR_IDENTIFIER</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">PROCESSOR_LEVEL</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">PROCESSOR_REVISION</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">ProgramFiles</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">SESSIONNAME</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">SystemDrive</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">SystemRoot</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">TEMP</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">TMP</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">USERDOMAIN</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">USERNAME</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">USERPROFILE</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">VS71COMNTOOLS</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">WecVersionForRosebud.FF0</span></td>
</tr>
<tr valign="TOP">
<td bordercolor="#e7e6e6"><span style="color: black; font-family: "calibri"; font-size: 11pt;">windir</span></td>
</tr>
</tbody>
<tfoot></tfoot>
</table>
<br />
<br />
Veamos un Ejemplo VBA, consultemos el <b>Nombre de nuestra Computadora usando la función Environ()</b><br />
<br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
'MUESTRA EL NOMBRE DEL USUARIO DEL SISTEMA
Private Sub Comando4_Click()
Dim i As Integer
Dim stEnviron As String
For i = 1 To 100
stEnviron = Environ(i)
If InStr(stEnviron, "USERNAME") Then
MsgBox Environ(i)
Exit For
End If
Next
End Sub
'ENLISTA TODAS LAS VARIABLES DE ENTORNO DISPONIBLES EN EL SISTEMA
Private Sub Command0_Click()
Dim i As Integer
Dim stEnviron As String
For i = 1 To 100
stEnviron = Environ(i)
If Len(stEnviron) > 0 Then
Me.List1.AddItem (Environ(i))
Else
Exit For
End If
Next
End Sub
'MUESTRA EL NOMBRE DE LA COMPUTADORA
Private Sub Command3_Click()
Dim i As Integer
Dim stEnviron As String
For i = 1 To 100
stEnviron = Environ(i)
If InStr(stEnviron, "COMPUTERNAME") Then
MsgBox Environ(i)
Exit For
End If
Next
End Sub
</pre>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" /></a></div>
<br />
Ver Video Explicacion<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/TWYbYzoUnM8" width="560"></iframe>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-35703978230021439282019-06-25T20:05:00.002-05:002019-06-25T20:21:57.259-05:00Crear Splash Screen en Access | Usando un Timer<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQrDsExBR6O8_gkBim-x9eMZ1T8OSGMtb-bysudlptzYe2haa7cngSPl9na_lYDXpc2YxDg-feTzjpk1SsJkEHHfs_luTyUD0uSNMJF3ujYWYayhjYymUilvhFkcyIZORZ1QmULWYpMJ3v/s1600/Crear+un+Splash+Screen+en+Access.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQrDsExBR6O8_gkBim-x9eMZ1T8OSGMtb-bysudlptzYe2haa7cngSPl9na_lYDXpc2YxDg-feTzjpk1SsJkEHHfs_luTyUD0uSNMJF3ujYWYayhjYymUilvhFkcyIZORZ1QmULWYpMJ3v/s320/Crear+un+Splash+Screen+en+Access.png" width="320" /></a>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Los <i><b>Formularios Splash en Access</b></i> ó <b><i>Splash Screen</i></b> como muchos le conocen son utilizados en las Aplicaciones al iniciarse, estas incluyen por lo general información del Sistema, que puede incluir:<br />
<ul>
<li>Nombre del Sistema</li>
<li>Logotipo de la Empresa</li>
<li>Versión</li>
<li>Año de Publicación</li>
<li>Y alguna especie de animación de progreso, que indique que se esta iniciando el Sistema</li>
</ul>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<b><u>Los Controles que Incluye este formulario son los Siguientes:</u></b></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<ul>
<li>BoxVISTA</li>
<li>LabelTITULO</li>
<li>Picture (incrustada en Formulario)</li>
<li>LabelVERSION</li>
</ul>
<div>
<b><u>Las propiedades importantes de este Formulario son:</u></b></div>
<div>
<ul>
<li>Emergente: SI</li>
<li>Modal: SI</li>
<li>Estilo de Borde: NINGUNO</li>
<li>Auto Centrado: SI</li>
</ul>
</div>
<div>
<br /></div>
<br />
<div>
<span style="background-color: yellow;"><b>Este el código VBA de Pantalla de BIENVENIDA</b></span><br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
Dim contador As Integer
Private Sub Form_Open(Cancel As Integer)
fAccessWindow "Hide", False, False
contador = 0
End Sub
Private Sub Form_Timer()
contador = contador + 1
If contador = 100 Then
DoCmd.Close
DoCmd.OpenForm "VENTANA DE APLICACION", acNormal
End If
End Sub
</pre>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" /></a><br />
Aquí les dejo el Vídeo de su Funcionamiento<br />
<br />
<br /></div>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/cGmZBK5vQCM" width="560"></iframe>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com1tag:blogger.com,1999:blog-4316426931913439223.post-20131927276097138632019-06-23T12:37:00.002-05:002020-06-03T16:09:40.076-05:00INVENTARIOS, LOCACIONES E HISTORIAL | ENTREGA 9 | Diseño<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhl6aZPkTXiq_6ROHIedzqdH4yBfQ-is96k92OLFheJXgo5yPsAHk19TWmaNaQ_yzBTPyUG2s0JKi5cEdwDcrmOlmnQLB_ToTcb6qTfX32ER0k_0ZTkSwE42oatqevhzq798Qt2Z9tbuaYH/s1600/FORMULARIO+DE+INVENTARIOS%252C+LOCACIONES%252C+HISTORIAL.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhl6aZPkTXiq_6ROHIedzqdH4yBfQ-is96k92OLFheJXgo5yPsAHk19TWmaNaQ_yzBTPyUG2s0JKi5cEdwDcrmOlmnQLB_ToTcb6qTfX32ER0k_0ZTkSwE42oatqevhzq798Qt2Z9tbuaYH/s320/FORMULARIO+DE+INVENTARIOS%252C+LOCACIONES%252C+HISTORIAL.png" width="320" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Continuando con el Laboratorio de <b>Sistema de Inventario y Compras</b>, ahora en la entrega 9 veremos la parte de diseño, en la siguiente publicación veremos la parte de programación VBA para la funcionalidad del formulario.<br />
<div>
<br /></div><div><br /></div>
<div><div><font face="trebuchet ms, sans-serif" size="4"><b style="background-color: #fce8b2;">Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares</b></font></div><div><br /></div></div><div><br /></div><div>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top">
<input name="cmd" type="hidden" value="_s-xclick" />
<input name="hosted_button_id" type="hidden" value="43B2PS7EGG7QA" />
<input alt="PayPal, la forma más segura y rápida de pagar en línea." border="0" name="submit" src="https://www.paypalobjects.com/es_XC/MX/i/btn/btn_buynowCC_LG.gif" type="image" />
<img alt="" border="0" height="1" src="https://www.paypalobjects.com/es_XC/i/scr/pixel.gif" width="1" />
</form>
<div>
<br />
Los objetos que se crean en esta entrega son lo siguientes:<br />
<br />
<a name='more'></a><br />
<br />
<br />
<ul>
<li>CONSULTA: MOVIMIENTOS DE INVENTARIOS</li>
<li>CONSULTA: RANGOS_INV_PRODUCTO</li>
<li>FORMULARIO: INVENTARIOS DE PRODUCTO</li>
<li>FORMULARIO: MOVIMIENTOS DE INVENTARIOS</li>
<li>SUBFORMULARIO: Subformulario MOVIMIENTOS DE INVENTARIOS</li>
<li>SUBFORMULARIO: Subformulario RANGOS_INV_PRODUCTO</li>
</ul>
<div>
<br /></div>
<div>
<br /></div>
<div>
<br /></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPl-CB1n82c0IpqDxLKwZ6mC3F1kPblwQdmexWCC1fMkYUknOMaifRLVl935X84E1rWJCWxz16_MRdI1HcFRkrOqmug3A0sPIxfd5AUv6lB2IZUKRRazHGyStxON8xZlwSZrWBL9GyT10l/s1600/SISTEMA+DE+INVENTARIOS+Y+COMPRAS+-+ENTREGA+9.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="162" data-original-width="308" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPl-CB1n82c0IpqDxLKwZ6mC3F1kPblwQdmexWCC1fMkYUknOMaifRLVl935X84E1rWJCWxz16_MRdI1HcFRkrOqmug3A0sPIxfd5AUv6lB2IZUKRRazHGyStxON8xZlwSZrWBL9GyT10l/s1600/SISTEMA+DE+INVENTARIOS+Y+COMPRAS+-+ENTREGA+9.png" /></a></div>
<br />
<br />
En esta entrega se usan los diferente <b>Tipos de Origen de Datos</b> en los objeto arriba mencionados:<br />
<br />
<ul>
<li>Dynaset</li>
<li>Archivo Snapshot</li>
<li>Dynaset (Actualizaciones incoherentes)</li>
</ul>
<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="48" data-original-width="48" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" /></a>Aquí les deja la descarga que incluye los objetos de esta entrada:<br />
<a href="https://mega.nz/#!pY02VILZ!uHFYk1bLk8_LVIoO8II3-w40lOpeIAyX79Zl226Fm9k" target="_blank">Descargar Aquí</a><br />
<br />
<br />
<br />
<img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi45V5L-9FAjGk55oyikaY9O5GW17MIRfgF34lII7vdv-xqeQquEYNs0HBb1cnocIUfV4hAvbSYW1OxLyWW7uWrmZnW0xtXd0LDErrggMxR9LcFA5AEWAcmDvy_jspX2JfQFmGsGuHAVQ-q/s1600/camera.gif" />Les explico los detalles en el siguiente Vídeo:<br />
<br />
<br />
<br />
<br /></div>
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/NMsFqCB2OCw" width="560"></iframe>
<br />
<br />
<a href="http://aulaclick-access.blogspot.com/2018/11/entrega-8-metodos-de-envio-sistema-de.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">ANTERIOR</a><span style="background-color: white; color: #333333; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;"> </span><a href="http://aulaclick-access.blogspot.com/2013/08/sistema-de-inventarios-y-compras-paso.html" style="background-color: white; color: #771000; font-family: arial, tahoma, helvetica, freesans, sans-serif; font-size: xx-small;">INDICE</a> <span style="font-size: xx-small;"><a href="http://aulaclick-access.blogspot.com/2019/07/control-de-inventarios-fifo-en-access.html">SIGUIENTE</a></span>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com3tag:blogger.com,1999:blog-4316426931913439223.post-61453985128548350902019-06-19T15:06:00.002-05:002019-06-23T14:09:23.451-05:00INCLUIR GOOGLE MAPS EN ACCESS<br />
<div class="separator" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: center;">
<img border="0" data-original-height="851" data-original-width="1600" height="169" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpNlldd7KjT6U7-FSWFB9nExkUjilFYOhxWR0qjyElwzljZ46P9HDDAu9u77XHAmkCiEsFHmPYRBgoyt9TjfyTyJejhjJ5fb1fKuZE8OP7fm-wtUQqC88Gb4W_NQyzd9h8uzXMXATS2huC/s320/Access+and+Google+Maps.png" width="320" /></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Una de las grandes inquietudes al momento de llevar un registro de direcciones de clientes, proveedores, etc. es la tarea de localizarlos en algún mapa para estimar si es posible entregar un pedido o llevarlo, para esto nos sirve <b>google maps</b>, que como ya sabemos lo accedemos en Internet.<br />
<br />
La idea aquí es aprovechar los datos que ya tenemos de nuestros clientes o proveedores, para construir un <i><u>cadena de búsqueda </u></i>en el <b>WebBrowser de Access</b>. algo así como esto:<br />
<br />
<a name='more'></a><br /><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYwJ4yyIgYOLbdMsGdLfJ21_X9lh_SeDUBaRXzKQe6Y1sgCuiFz-f8EIbB95DyFxR3CB5mYq1-V96Cot_NRT51KCQj6Nfsb24g9-pGDJzKjZ_0g5rcJkfiCL2w4hAwWav5Ioe1jMMdx1O4/s1600/USAR+GOOGLE+MAPS+EN+ACCESS.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="1280" height="360" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYwJ4yyIgYOLbdMsGdLfJ21_X9lh_SeDUBaRXzKQe6Y1sgCuiFz-f8EIbB95DyFxR3CB5mYq1-V96Cot_NRT51KCQj6Nfsb24g9-pGDJzKjZ_0g5rcJkfiCL2w4hAwWav5Ioe1jMMdx1O4/s640/USAR+GOOGLE+MAPS+EN+ACCESS.png" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<br />
Para pedirle a <b><u>Google Maps</u></b> que nos muestre una ubicación, necesitamos indicarlo a través de una cadena de búsqueda que principalmente consta de 2 partes:<br />
<br />
<br />
<ul>
<li>URL de Google Maps : "https://www.google.com/maps/search/?api=1&query=" </li>
<li>Cadena de Búsqueda : "Sitio Conocido o direccion de busqueda"</li>
</ul>
<div>
<br /></div>
<div>
<b style="background-color: yellow;">Codigo VBA del Ejemplo:</b></div>
<br />
<br />
<pre class="brush:vb;">Option Compare Database
Option Explicit
'Variables de Accion
Dim URL As String
Dim mapaURL As String
Private Sub CommandIR_URL_Click()
mapaURL = "https://www.google.com/maps/search/?api=1&query=" & Me.TextCALLE & "%2C" & _
Me.TextCALLENUM & "%2C" & Me.TextCOLONIA & _
"%2C" & Me.TextCIUDAD & "%2C" & Me.TextESTADO & _
"%2C" & Me.TextPAIS & "%2C" & Me.TextCODIGOPOSTAL
Me.WebBrowserPERSONAL.Object.Navigate mapaURL
Me.WebBrowserPERSONAL.Requery
End Sub
Private Sub Form_Open(Cancel As Integer)
URL = "www.google.com/maps"
WebBrowserPERSONAL.Object.Navigate URL
End Sub
</pre>
<br />
<br />
<span style="background-color: yellow;"><b>Observación</b><b>:</b></span><br />
<br />
Note que la <b>Cadena de Busqueda</b> es compuesta por los valores de los textboxs que están en el formulario concatenados con <span style="background-color: yellow;">"%2C"</span>, que es traducida como una coma en los datos de la búsqueda.<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMvvilBA_mp1oGxIrEb3Sb2MaDvO8dorvgXVU4GsYshn3jvg4MD8FoOzTKG2lUHVGtj-6LBUjpGa_SuK0UfykCTJZ-6GCt6arimjEgLnhRsYm2-Kd_kjlb2wMvONC7U7Ijbq_rdTx3Fkr3/s1600/camara.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMvvilBA_mp1oGxIrEb3Sb2MaDvO8dorvgXVU4GsYshn3jvg4MD8FoOzTKG2lUHVGtj-6LBUjpGa_SuK0UfykCTJZ-6GCt6arimjEgLnhRsYm2-Kd_kjlb2wMvONC7U7Ijbq_rdTx3Fkr3/s1600/camara.jpg" /></a>Ver Video:<br />
<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/lvHmmx1JC6k" width="560"></iframe>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com6tag:blogger.com,1999:blog-4316426931913439223.post-60174792033806788892019-06-18T18:44:00.000-05:002019-06-23T14:09:54.257-05:00CREAR NAVEGADOR WEB CON ACCESS<br />
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="float: left; margin-right: 1em; text-align: left;"><tbody>
<tr><td style="text-align: center;"><img alt="Navegador Web desde Microsoft Access" border="0" data-original-height="452" data-original-width="828" height="173" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNDvnjvlyISVjUDjoCmlXh0whAPgtZUhOtmq4xYJJqeQpiwecrT8Ap_sLw8YWaIArVgMkLMdCgZ8pqUBiaXtvYk80K862HtpyZIyRe7bXYKpJJMSL2BJzPzYUWwGip-uD25Dvnusye0_KM/s320/WEB+DESDE+ACCESS.PNG" style="margin-left: auto; margin-right: auto;" title="Navegador Web desde Microsoft Access" width="320" /></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Navegador Web desde Access</td></tr>
</tbody></table>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Pues bien como ya muchos sabemos <b>Access también tiene con control Web Browser</b> para visualizar paginas web, aunque este control carezca de muchas funcionalidades a las que estamos acostumbrados, cierto es también que nos aporta cierta factibilidad de uso desde un Sistema desarrollado en Access.<br />
<br />
<b style="background-color: yellow;">Veamos un Ejemplo:</b><br />
<br />
Vamos a desarrollar un visor o navegador web en un formulario de Access.<br />
<br />
<a name='more'></a><br /><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<img border="0" data-original-height="614" data-original-width="1049" height="374" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEQw19hmGjxomAdFOI-Yk6E0rqGUia3yMWPbY_s4PI1jSjT9XGwrHnnIcCqlXQyVqZVwFrAFRJQYJfGMNleL4hQIiN8EoC5GMMqMChW9wX3EOivC2Zv0T9Iinf1wav2I_x4718t6mn9FDG/s640/NAVEGADOR+WEB+DESDE+ACCESS_2.PNG" width="640" /></div>
<br />
<br />
<br />
<span style="background-color: yellow;"><b>Estos son los códigos de los controles:</b></span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<pre class="brush:vb;">Option Compare Database
Option Explicit
'Variables de Accion
Dim urlANTERIOR As String
Dim urlPOSTERIOR As String
Dim urlACTUAL As String
Private Sub CommandANTERIOR_Click()
urlPOSTERIOR = urlACTUAL
Me.TextURL = urlANTERIOR
Me.WebBrowserPERSONAL.Object.Navigate urlANTERIOR
Me.WebBrowserPERSONAL.Requery
Me.CommandPOSTERIOR.Enabled = True
End Sub
Private Sub CommandIR_URL_Click()
urlANTERIOR = urlACTUAL
urlACTUAL = Me.TextURL
Me.WebBrowserPERSONAL.Object.Navigate urlACTUAL
Me.WebBrowserPERSONAL.Requery
Me.CommandANTERIOR.Enabled = True
End Sub
Private Sub CommandPOSTERIOR_Click()
urlANTERIOR = Me.TextURL
Me.TextURL = urlPOSTERIOR
Me.WebBrowserPERSONAL.Object.Navigate urlPOSTERIOR
Me.WebBrowserPERSONAL.Requery
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim URL As String
URL = "www.google.com"
Me.TextURL = URL
WebBrowserPERSONAL.Object.Navigate URL
urlACTUAL = URL
End Sub
</pre>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ChcC-hPoqCCWoF28EUyPpybWvq33UOsWCHQhJa7izxzwpdHr9_pj_ueD0P3AUkxE_8BoUDT2KF8UUJZwTU2i4ri0iSc7luXOFA47SMlL58dqABxMsBLiG-rFhPmWrslPCiZyPTvjHIF2/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ChcC-hPoqCCWoF28EUyPpybWvq33UOsWCHQhJa7izxzwpdHr9_pj_ueD0P3AUkxE_8BoUDT2KF8UUJZwTU2i4ri0iSc7luXOFA47SMlL58dqABxMsBLiG-rFhPmWrslPCiZyPTvjHIF2/s1600/camera.gif" /></a><b style="background-color: yellow;">Aqui el Video de la Explicacion:</b><br />
<br />
<br />
<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/0FieOT_lLXE" width="560"></iframe>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-30268980875472107042019-06-17T22:11:00.000-05:002019-06-17T22:22:05.071-05:00Funcion Shell (ejecutar) en Access<img border="0" data-original-height="720" data-original-width="1280" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiUQAt9nOl4B359nKO7zNf1wSOoZxNGirJtCgqOiMK5tMIybDQ2Kswxpf1k4sdwC4Py2WwG9U0BSSGa5r7IS3yS9Bpdq73IuD3gYjHDFtcwb78uUScKvKc1AwG9Py9wZrPJk9HBd8cf0OK/s320/FUNCION+SHELL+ACCESS.png" style="text-align: center;" width="320" /><br />
<br />
<br />
Muchas de las veces hemos deseado <b>Ejecutar </b>un programa externo a nuestro Sistema de Access, pues bien existe una función que permite tal tarea su nombre es <b>Shell </b>, esta función de Access <i>permite ejecutar programas externos</i> con solo indicar algunos parámetros que les indicare a continuación.<br />
<br />
<b style="background-color: yellow;"></b><br />
<a name='more'></a><b style="background-color: yellow;"><br /></b>
<b style="background-color: yellow;"><br /></b>
<b style="background-color: yellow;"><br /></b>
<b style="background-color: yellow;">Sintaxis:</b><br />
<br />
Shell ( ruta de acceso [, estiloVentana ] )<br />
<br />
La sintaxis de la función Shell tiene los siguientes argumentos:<br />
<br />
<b><u>Ruta del Acceso:</u></b><br />
<br />
Obligatorio. Variant (Cadena). Nombre de ejecutar el programa y los argumentos requeridos o modificadores línea de comandos; puede incluir el directorio o la carpeta y la unidad. En Macintosh, puede usar la función MacID para especificar la firma de la aplicación en lugar de su nombre. En el ejemplo siguiente se utiliza la firma de Microsoft Word: Shell MacID("MSWD")<br />
<br />
<u><b>WindowStyle</b></u>:<br />
<br />
Opcional. Variant (Entero) correspondiente al estilo de la ventana en la que se ejecutará el programa. Si se omite estiloVentana , el programa se inicia minimizado con el foco. En el sistema Macintosh (System 7.0 o posterior), estiloVentana determina únicamente si la aplicación obtiene el foco cuando se ejecuta.<br />
<br />
<span style="background-color: white; color: #2f2f2f; font-family: "segoe ui" , "segoe ui web" , "segoe ui symbol" , , "helvetica neue" , "bbalpha sans" , "s60 sans" , "arial" , sans-serif; font-size: 16px;">La </span><span class="ocpLegacyBold" style="background-color: white; box-sizing: border-box; color: #2f2f2f; font-family: "segoe ui" , "segoe ui web" , "segoe ui symbol" , , "helvetica neue" , "bbalpha sans" , "s60 sans" , "arial" , sans-serif; font-size: 16px; font-weight: 700;"><i class="ocpItalic" style="box-sizing: border-box;">windowstyle</i></span><span style="background-color: white; color: #2f2f2f; font-family: "segoe ui" , "segoe ui web" , "segoe ui symbol" , , "helvetica neue" , "bbalpha sans" , "s60 sans" , "arial" , sans-serif; font-size: 16px;"> argumento con nombre tiene estos valores:</span><br />
<span style="background-color: white; color: #2f2f2f; font-family: "segoe ui" , "segoe ui web" , "segoe ui symbol" , , "helvetica neue" , "bbalpha sans" , "s60 sans" , "arial" , sans-serif; font-size: 16px;"><br /></span>
<br />
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; width: 669px;">
<colgroup><col style="mso-width-alt: 6180; mso-width-source: userset; width: 127pt;" width="169"></col>
<col style="mso-width-alt: 1828; mso-width-source: userset; width: 38pt;" width="50"></col>
<col style="mso-width-alt: 16457; mso-width-source: userset; width: 338pt;" width="450"></col>
</colgroup><tbody>
<tr height="23" style="height: 17.25pt;">
<td class="xl65" height="23" style="height: 17.25pt; width: 127pt;" width="169"><b>Constante</b></td>
<td class="xl65" style="width: 38pt;" width="50"><b>Valor</b></td>
<td class="xl65" style="width: 338pt;" width="450"><b>Descripción</b></td>
</tr>
<tr height="45" style="box-sizing: border-box; height: 33.75pt;">
<td class="xl67" height="45" style="border-top: none; box-sizing: border-box; height: 33.75pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbHide</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">0</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana está oculta y el
foco pasa a la ventana oculta. La constante <span class="font6">vbHide</span><span class="font5"> no es aplicable a las plataformas Macintosh.</span></td>
</tr>
<tr height="45" style="box-sizing: border-box; height: 33.75pt;">
<td class="xl67" height="45" style="border-top: none; box-sizing: border-box; height: 33.75pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbNormalFocus</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">1</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana tiene el foco y
se restaura a su tamaño y posición originales.</td>
</tr>
<tr height="23" style="box-sizing: border-box; height: 17.25pt;">
<td class="xl67" height="23" style="border-top: none; box-sizing: border-box; height: 17.25pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbMinimizedFocus</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">2</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana se muestra como
un icono con el foco.</td>
</tr>
<tr height="23" style="box-sizing: border-box; height: 17.25pt;">
<td class="xl67" height="23" style="border-top: none; box-sizing: border-box; height: 17.25pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbMaximizedFocus</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">3</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana está maximizada
con el foco.</td>
</tr>
<tr height="45" style="box-sizing: border-box; height: 33.75pt;">
<td class="xl67" height="45" style="border-top: none; box-sizing: border-box; height: 33.75pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbNormalNoFocus</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">4</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana se restaura a su
tamaño y posición más recientes. La ventana activa permanece activa.</td>
</tr>
<tr height="45" style="box-sizing: border-box; height: 33.75pt;">
<td class="xl67" height="45" style="border-top: none; box-sizing: border-box; height: 33.75pt; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 127pt;" width="169">vbMinimizedNoFocus</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 38pt;" width="50">6</td>
<td class="xl66" style="border-top: none; box-sizing: border-box; margin-right: 0px; padding-bottom: 4px; padding-top: 4px; width: 338pt;" width="450">Ventana se muestra como
un icono. La ventana activa permanece activa.</td>
</tr>
</tbody></table>
<br />
<div>
<div>
<b style="background-color: yellow;">Comentarios:</b></div>
<div>
<br /></div>
<div>
Si la función Shell ejecuta correctamente el archivo, devuelve el identificador de tarea del programa iniciado. Identificador de la tarea es un número exclusivo que identifica el programa. Si la función Shell no puede iniciar el programa especificado, se produce un error.</div>
<div>
<br /></div>
<div>
En Macintosh, vbNormalFocus, vbMinimizedFocusy vbMaximizedFocus todos colocar la aplicación en primer plano; vbHide, vbNoFocusy vbMinimizeFocus todos colocar la aplicación en segundo plano.</div>
</div>
<div>
<br /></div>
<div>
<b style="background-color: yellow;">Ejemplo:</b></div>
<div>
<br /></div>
<div>
<div>
Este ejemplo usa la función Shell para ejecutar una aplicación especificada por el usuario. En MacIntosh, el nombre de unidad predeterminado es "HD" y partes de la ruta de acceso están separadas por coma. Asimismo, deberá especificar carpetas de Macintosh en lugar de \Windows.<br />
<br />
CODIGO VBA<br />
<br /></div>
<div>
</div>
<pre class="brush:vb;">'Abre la aplicacion de calculadora de windows
'Especificando 1 como segundo argumento
'Abre la aplicacion en medida normal
'nos da el enfoque
Dim RetVal as Variant
' Ejecutar las Calculadora de Windows
RetVal = Shell("C:\WINDOWS\SYSTEM32\CALC.EXE", 1)
'C:\WINDOWS\SYSTEM32\NOTEPAD.EXE
'C:\WINDOWS\SYSTEM32\MSPAINT.EXE
</pre>
</div>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ChcC-hPoqCCWoF28EUyPpybWvq33UOsWCHQhJa7izxzwpdHr9_pj_ueD0P3AUkxE_8BoUDT2KF8UUJZwTU2i4ri0iSc7luXOFA47SMlL58dqABxMsBLiG-rFhPmWrslPCiZyPTvjHIF2/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ChcC-hPoqCCWoF28EUyPpybWvq33UOsWCHQhJa7izxzwpdHr9_pj_ueD0P3AUkxE_8BoUDT2KF8UUJZwTU2i4ri0iSc7luXOFA47SMlL58dqABxMsBLiG-rFhPmWrslPCiZyPTvjHIF2/s1600/camera.gif" /></a>Ver el siguiente Vídeo<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/sbtmBjnubVI" width="560"></iframe>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-17316689860882788002019-06-15T11:39:00.000-05:002019-06-23T14:10:17.524-05:00Cambiar propiedades a TextBox en Access<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi96WKlpkeEwaWBvQ_lBB_izzyx6ZYIg6ZDu-cvpa7Lcp-QSmoeXH5LlPI3aoqJrIpCpTQpbAwtLKipJnbcaQTCZxsmvpRLL3F2XRtlZ_COJMKWTBOJ7vCzOefUNtCnT0HUAhw8m5x7JcYr/s1600/CAMBIAR+PROPIEDADES+A+TEXTBOX+EN+ACCESS.PNG" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img border="0" data-original-height="722" data-original-width="1282" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi96WKlpkeEwaWBvQ_lBB_izzyx6ZYIg6ZDu-cvpa7Lcp-QSmoeXH5LlPI3aoqJrIpCpTQpbAwtLKipJnbcaQTCZxsmvpRLL3F2XRtlZ_COJMKWTBOJ7vCzOefUNtCnT0HUAhw8m5x7JcYr/s320/CAMBIAR+PROPIEDADES+A+TEXTBOX+EN+ACCESS.PNG" width="320" /></a><br />
<br />
<br />
<br />
<br />
En esta Vídeo Practica protegeremos nuestros controles TextBox a través de la propiedad ENABLE o HABILITADO usando Código VBA y Macros en Access.<br />
<br />
<br />
<a name='more'></a><br /><br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" /></a>Les invito a ver el siguiente Video:<br />
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/zFqZdzHtlXI" width="560"></iframe>ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-35372172406008927202019-06-14T11:11:00.001-05:002019-06-23T14:10:47.313-05:00VER IMPRESORAS EN ACCESS EN UN COMBOBOX<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkCE5v4g1O3cYYPLLiDCIH-7hCWSmGHwFyg5U9-iKQI6I05KBDj4v3heEIOrsm3Ww1AkvWYJwD6oHFxDoRi5xI1ZJ3ApbvMFFdy0GnqGFjlyrbINnRUwzrM59wcTjgAC_umL1YugHM8X0d/s1600/IMG_20190614_075033.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="720" data-original-width="960" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkCE5v4g1O3cYYPLLiDCIH-7hCWSmGHwFyg5U9-iKQI6I05KBDj4v3heEIOrsm3Ww1AkvWYJwD6oHFxDoRi5xI1ZJ3ApbvMFFdy0GnqGFjlyrbINnRUwzrM59wcTjgAC_umL1YugHM8X0d/s320/IMG_20190614_075033.jpg" width="320" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Para llevar a cabo esta practica, utilizaremos la <b>Coleccion Printers</b> del <b>Objeto Application</b> en MS Access.<br />
<br />
Llenaremos un combobox con un listado de impresoras disponibles en nuestra PC, utilizaremos codigo VBA.<br />
<br />
<a name='more'></a><br /><br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsiE7YZfjH71WnxgLkhSV7-0UejizmgX5NvEY2tuYbU18BOQ8Z0iCG6PZKGzOnCNnBLOoLEV4nx8SzETgGjhMf8GTlTarfYxljYSTDwUsCjSXNbHI2KP_zoNtKnGbzmQVEA9zKbpdZoEos/s1600/camera.gif" /></a>Les invito a ver el siguiente video:
<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/je3VSJTv_JU" width="560"></iframe>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0tag:blogger.com,1999:blog-4316426931913439223.post-22123708759528565732018-11-14T20:49:00.000-06:002018-11-15T11:07:35.858-06:00Variables Temporales vs Variables Locales en AccessEn las Macros de Access podemos utilizar 2 distintas variables para nuestra programación. <b>Las Variables Temporales y las Variables Locales</b>, el dilema es cuando utilizar cada una una de ellas. Aquí les explico las diferencias y la utilidad de este tipos de variables.<br />
<br />
<br />
<table cellpadding="0" cellspacing="0" class="tr-caption-container" style="float: left; margin-right: 1em; text-align: left;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9lU47-ImOJPYs_00nXwx89-xgV9YdV3uGTZbhrRmaYgx20GOmpO1zf0ZLcXZxOcKWwX_UVl_nXZbI1Zc2o1to41nQtN5VX6P-SW-Ypz67DCWvAO_ggT07Ed13ImFhfTXuhotP4OrgqhW6/s1600/Variables+Temporales+vs+Variables+Locales+en+Access.png" imageanchor="1" style="clear: left; margin-bottom: 1em; margin-left: auto; margin-right: auto;"><img border="0" data-original-height="335" data-original-width="632" height="211" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9lU47-ImOJPYs_00nXwx89-xgV9YdV3uGTZbhrRmaYgx20GOmpO1zf0ZLcXZxOcKWwX_UVl_nXZbI1Zc2o1to41nQtN5VX6P-SW-Ypz67DCWvAO_ggT07Ed13ImFhfTXuhotP4OrgqhW6/s400/Variables+Temporales+vs+Variables+Locales+en+Access.png" width="400" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Variables Temporales y Locales en Access</td></tr>
</tbody></table>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div>
<br /></div>
<div>
<a name='more'></a><div class="separator" style="clear: both; text-align: center;">
</div>
<div style="text-align: left;">
Todas la variables tiene un Alcance o Dominio, en particular las Temporales y Locales también lo tienen:</div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
Una Variable Temporal.- Puede contener su valor en toda la aplicación mientras este abierta. Puede utilizarse en todas macros, formularios, reportes, consultas, módulos vba. </div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
Una Variable Local.- Solo puede ser utilizada dentro de la macro donde se ha definido, fuera de ella esta no tiene alcance.</div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
Existe un sin embargo: Todas esta variable pueden ser eliminadas en cualquier momento, invocando una macro para remover estas variables.</div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBSytHPcTW0Yb_SgMymspE6eOhDnHeTNgThW8EUBQltD49Ej3Wyyrsh4qwtklmUpq9XDZ9YPHPZ8xGi7HXE3-hzDlu8IOEloj01y4xVT8u-9Gv7oAo1o-nD6ZP9NLS4JSwrdZI7J6hOLBZ/s1600/VARIABLES+TEMPORALES+Y+LOCALES+EN+ACCESS.PNG" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" data-original-height="715" data-original-width="1271" height="360" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBSytHPcTW0Yb_SgMymspE6eOhDnHeTNgThW8EUBQltD49Ej3Wyyrsh4qwtklmUpq9XDZ9YPHPZ8xGi7HXE3-hzDlu8IOEloj01y4xVT8u-9Gv7oAo1o-nD6ZP9NLS4JSwrdZI7J6hOLBZ/s640/VARIABLES+TEMPORALES+Y+LOCALES+EN+ACCESS.PNG" width="640" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ejemplo de Variables Temporales y Locales en Access</td></tr>
</tbody></table>
<br /></div>
<h3 style="text-align: left;">
Variables Temporales</h3>
<div style="text-align: left;">
Definición:</div>
<div style="text-align: left;">
<ul>
<li>Utilice la Macro: <b>DefinirVariableTemporal</b> y en la expresión coloque el valor que desea asignar o control del formulario que contenga dicho valor.</li>
</ul>
<div>
<br /></div>
<h3>
Variables Locales</h3>
<div>
Definición:</div>
<div>
<ul>
<li>Utilice la Macro: <b>DefinirVariableLocal</b> y en la expresión coloque el valor que desea asignar o control del formulario que contenga dicho valor.</li>
</ul>
<div>
<br /></div>
<h3>
Remover Variables</h3>
</div>
<div>
Definición:</div>
<div>
<br /></div>
<div>
<ul>
<li>Utilice la Macro: <b>QuitarVariableTemporal</b> y especifique el nombre de la variable temporal que desee quitar.</li>
</ul>
<div>
Ejemplo:</div>
</div>
<div>
<br /></div>
<div>
<br /></div>
<h3>
Remover todas las Variables</h3>
<div>
Definición:</div>
<div>
<br /></div>
<div>
<ul>
<li>Utilice la Macro: <b>QuitarTodasLasVariablesTemporales</b>.</li>
</ul>
<div>
<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYtg7g4iV9C9Ydj3mRiMlREqlwjl4Ff-nO_1Q9wijQY729vAZkhNLLagiEXLULu4IqHV1HJAnkW9iZpz2gKkqV4D7Xe18ZaSwRHmLNZXB36zZ8cSZVTRkdw3CbvRIcrvtGa7iNIDVr6oeq/s1600/camera.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="33" data-original-width="37" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYtg7g4iV9C9Ydj3mRiMlREqlwjl4Ff-nO_1Q9wijQY729vAZkhNLLagiEXLULu4IqHV1HJAnkW9iZpz2gKkqV4D7Xe18ZaSwRHmLNZXB36zZ8cSZVTRkdw3CbvRIcrvtGa7iNIDVr6oeq/s1600/camera.gif" /></a>Ver Vídeo de Demostración<br />
<br />
<iframe allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/9J2d1sQwQp4" width="560"></iframe>
</div>
</div>
<div>
<br /></div>
<div>
<div class="separator" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: center;">
<img border="0" data-original-height="48" data-original-width="48" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6G3u6umhqQi8vEWpTGj6vs42txwQqxtdx8sgq4lKtuC14yYRo-qcc3J_U7CRvbx9TYh4quSqL0lWrZZ3Hr5fX9A6jrTAN5iJ5Rq1wrS6pcFNTmBWvWgPQhEW5bthdMZMhcoupZ4mKBSxq/s1600/descargar+codigo.png" /></div>
<a href="https://mega.nz/#!YQNQ3QCa!5SIjMjGeIIzxPe53wMXFIAYkCoFnOIEzy96EwEypyEw" target="_blank">Descargar Ejemplo Aquí</a></div>
</div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9lU47-ImOJPYs_00nXwx89-xgV9YdV3uGTZbhrRmaYgx20GOmpO1zf0ZLcXZxOcKWwX_UVl_nXZbI1Zc2o1to41nQtN5VX6P-SW-Ypz67DCWvAO_ggT07Ed13ImFhfTXuhotP4OrgqhW6/s1600/Variables+Temporales+vs+Variables+Locales+en+Access.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br /></a></div>
ARTURO CHAPAhttp://www.blogger.com/profile/01603561400469082175noreply@blogger.com0