Como aproveitar codigo escrito no ACCESS de um botao salvar (alterar, excluir etc) em diversos outros formularios sem copiar e colar

Boa tarde, galera

A dúvida: Uso os botões SALVAR, ALTERAR, EXCLUIR e outros que se repetem com a mesma função em outros formulários do mesmo BD:

Primeira duvida: Como faço para utilizar o código digitado uma vez de um formulário e aproveitá-lo nos demais formulários (sem ser CTRL C + CTRL V).

A dificuldade: no Access consigo fazer isso, tipo puxar um “método” que escrevo o código para um botão genérico e quando preciso das funções simplesmente chamo esse método para executar no formulário novo ?

As telas abaixo/anexas ilustram e exemplificam a duvida espero que facilite,

Podem me ajudar ?

Obrigado
Adilson

Galera, alguem ai ? Ficou claro a pergunta ?

Boa tarde,

Penso que o exemplo do mestre JPaulo poderá ajudá-lo a solucionar a sua questão.

Link para download:  Botões de Navegação Personalizados

Link do tópico:   Botões de Navegação Pesonalizados

Cumprimentos

OI pcnet, obrigado pelo retorno,

Mas nao é bem isso nao, ja fiz os botoes e tem em diversos formularios, acontece que nao quero repetir o mesmo codigo (copiar e colar ) em cada formulario, preciso de um objeto encapsulado, e quando fosse fazer fazer em um novo formulario usaria aquela classe e no novo formulario faria a alguma alteração,

outra coisa o link que voce orientou (nao o do arquivo ) esta quebrado e nao abre a pagina,

valeu,

Boa tarde amigo Adilson Santos

Então percebi mal a sua dúvida, o que eu tinha percebido é que estava à procura de uma solução para não repetir a programação dos botões nos vários formulários.

O link do repositório de ficheiros indica só a origem do ficheiro que é da autoria do mestre JPaulo, mas uma vez que não está lá disponível adicionei no seu post.

Espero que alguém o possa ajudar na resolução da sua dúvida.

Cumprimentos (,")

Boa noite
Para o clique

Código:

Public Sub NovoClique(frm as form)
    frm.txtCodigo.Enabled = True
    frm.txtFornecedor.Enabled = True
    frm.txtDataCompra.Enabled = True
    frm.txtCupomFiscal.Enabled = True
    frm.txtEndereco.Enabled = False
    frm.txtCNPJ.Enabled = False   
    frm.txtFornecedor.SetFocus   
    frm.btnPrimeiro.Enabled = False
    frm.btnProximo.Enabled = False
    frm.btnAnterior.Enabled = False
    frm.btnUltimo.Enabled = False
    frm.btnExcluir.Enabled = False
    frm.btnNovo.Enabled = False
    frm.btnAlterar.Enabled = False
    frm.btnGerarNota.Enabled = False     
    frm.btnSalvar.Enabled = True               
    DoCmd.GoToRecord acForm, frm, acNewRec   
End Sub

OI Alexandre, boa tarde, obrigado pelo retorno,

Mas como ficaria o codigo , ou seja, quando eu criar um novo formulario como puxaria as informações dos botões , como escrevi nao pretendo copiar e colar e sim chamar o procedimento que faz isso automatico , fui claro ou nao ?

grato

Adilson

Amigo poderia copiar e colar o formulário e faria somente as alterações necessárias, outra forma seria criar um módulo com as funções abrir, fechar , excluir formulário só não esqueça que este módulo terá que identificar qual formulário está chamando para depois poder fazer os eventos.


Ficaria mais ou menos assim no botão :

Código:


Private Sub btn_Salvar_Click()
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
If frmCurrentForm.Name = "Formulário1" Then
Call ValidaBtn ' chama a função do seu botão

End If
If frmCurrentForm.Name <> "Formulário1" Then
MsgBox "Não possível localizar a função"
End If
End Sub


Note que este é só um exemplo básico que se for por em prática terá que levar em consideração :

Se os botões farão exatamente a mesma coisa em todos os formulários ? ou o que vai mudar de formulário para formulário se for somente comandos :
Salvar,Excluir por exemplo :

Código:


DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdDeleteRecord


São comandos que podem ser usados em qualquer formulário mas de qualquer forma terá que digitar nos formulário no mínimo call nomedasuafunçao no módulo. Não vejo necessidade nisso , a não ser que teu bd esteja com muitos formulários " acima de 150 por exemplo. Mas o caminho é este. Eu prefiro copiar e colar o formulário e fazer as alterações.