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

Inline image 1
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: 

Nenhum comentário:

Postar um comentário

diHITT - Notícias