{"id":448,"date":"2023-11-08T14:51:50","date_gmt":"2023-11-08T19:51:50","guid":{"rendered":"http:\/\/blog.espol.edu.ec\/sistinfo\/?p=448"},"modified":"2026-04-01T03:02:40","modified_gmt":"2026-04-01T08:02:40","slug":"formularios-eventos-registros-y-operaciones","status":"publish","type":"post","link":"https:\/\/blog.espol.edu.ec\/sistinfo\/formularios-eventos-registros-y-operaciones\/","title":{"rendered":"Formularios, eventos, registros y operaciones"},"content":{"rendered":"\n<p>Formulario: Abrir con registro nuevo:<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">Private Sub Form_Open(Cancel As Integer)\n    DoCmd.GoToRecord , , acNewRec\nEnd Sub<\/pre>\n\n\n\n<p>Registros: Buscar el \u00faltimo registro relacionado a un id. DLast()<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">Private Sub id_producto_AfterUpdate()\n    saldo_antes = DLast(\"[saldofinal]\", \"BodegaPrincipal\", \"BodegaPrincipal.[id_producto] = \" &amp; id_producto)\nEnd Sub\n<\/pre>\n\n\n\n<p>Operaciones: Validar un retiro cuando hay saldo\/existencia<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">Private Sub Retiro_AfterUpdate()\n    If existencias &lt; retiro Then\n        retiro = 0\n    End If\n    saldofinal = saldoanterior - retiro\nEnd Sub<\/pre>\n\n\n\n<p>Evento: Ejecutar consulta con click en bot\u00f3n<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">Private Sub Bt_anexar_Click()\n    If anexado = False Then\n        Me.Refresh\n        DoCmd.OpenQuery \"c_anexaordenretiro2\", , acReadOnly\n        anexado = True\n        Me.Refresh\n    End If\nEnd Sub\n<\/pre>\n\n\n\n<p>Funciones y procedimientos<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">Function <strong>saldoactualiza<\/strong>()\n    <strong>saldoactualiza<\/strong> = saldo_antes + ingreso - retiro\nEnd Function\n\nPrivate Sub id_producto_AfterUpdate()\n    saldo_antes = DLast(\"[saldo_final]\", \"Inventario\", \"Inventario.[id_producto] =\" &amp; Id_producto)\n    saldo_final = <strong>saldoactualiza<\/strong>()\nEnd Sub\n\n\nPrivate Sub ingreso_AfterUpdate()\n    saldo_final = <strong>saldoactualiza<\/strong>()\nEnd Sub\n\nPrivate Sub retiro_AfterUpdate()\n    saldo_final = <strong>saldoactualiza<\/strong>()\nEnd Sub\n<\/pre>\n\n\n\n<p>Palabras reservadas en Access VBA<\/p>\n\n\n\n<p>no se usan como nombre de campo, casilla de texto, etc:<\/p>\n\n\n\n<pre class=\"wp-block-preformatted\">valor\nvalue<\/pre>\n\n\n\n<figure class=\"wp-block-embed\"><div class=\"wp-block-embed__wrapper\">\nhttps:\/\/learn.microsoft.com\/es-es\/office\/troubleshoot\/access\/reserved-words\n<\/div><\/figure>\n\n\n\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Formulario: Abrir con registro nuevo: Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub Registros: Buscar el \u00faltimo registro relacionado a un id. DLast() Private Sub id_producto_AfterUpdate() saldo_antes = DLast(\"[saldofinal]\", \"BodegaPrincipal\", \"BodegaPrincipal.[id_producto] = \" &amp; id_producto) End Sub Operaciones: Validar un retiro cuando hay saldo\/existencia Private Sub Retiro_AfterUpdate() If existencias &lt; retiro Then [&hellip;]<\/p>\n","protected":false},"author":8043,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1843],"tags":[],"class_list":["post-448","post","type-post","status-publish","format-standard","hentry","category-actividades"],"_links":{"self":[{"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/posts\/448","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/users\/8043"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/comments?post=448"}],"version-history":[{"count":9,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/posts\/448\/revisions"}],"predecessor-version":[{"id":669,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/posts\/448\/revisions\/669"}],"wp:attachment":[{"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/media?parent=448"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/categories?post=448"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/sistinfo\/wp-json\/wp\/v2\/tags?post=448"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}