| Blog Office VBA | Blog Excel | Blog Access |
Inteligência Artificial no MS Access? Calma, ainda não.
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 ControlDoCmd.OpenForm frmName, acDesign, , , , acHiddenSet frm = Forms(frmName)Set ctrl = frm.Controls(CtrlName)With ctrlIf .OnClick = "" ThenLet .OnClick = "[Event Procedure]"End IfEnd WithLet x = frm.Module.CreateEventProc("Click", ctrl.Name)Let txt = "DoCmd.OpenReport " & Chr$(34) & "myReport" & Chr$(34) & ", acViewPreview"frm.Module.InsertLines x + 1, txtDoCmd.Close acForm, frmName, acSaveYesDoCmd.OpenForm frmName, acNormal
End Function
Tags: VBA, Access, code, script, template, programming
Nenhum comentário:
Postar um comentário