VBA Access - Escrevendo código VBA com o VBA - Writing VBA-Code with VBA

| Blog Office VBA | Blog Excel | Blog Access |


Inteligência Artificial no MS Access? Calma, ainda não.

Apenas um código que permitirá que criemos módulo completos em nossas aplicações a partir de outras aplicações. Como? 

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post. 

Simples, dê uma olhada no código a seguir (Ahh, e não menospreze a sua simplicidade):

Public Function Write_Code (ByVal frmName As String, ByVal CtrlName As String)

Dim frm As Form, x, txt As String, ctrl As Control

DoCmd.OpenForm frmName, acDesign, , , , acHidden

Set frm = Forms(frmName)

Set ctrl = frm.Controls(CtrlName)

With ctrl

    If .OnClick = "" Then

       Let .OnClick = "[Event Procedure]"

    End If

End With

Let x = frm.Module.CreateEventProc("Click", ctrl.Name)

Let txt = "DoCmd.OpenReport " & Chr$(34) & "myReport" & Chr$(34) & ", acViewPreview"

frm.Module.InsertLines x + 1, txt

DoCmd.Close acForm, frmName, acSaveYes

DoCmd.OpenForm frmName, acNormal

End Function

Tags: VBA, Access, code, script, template, programming

Inspiration: