MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 30/07/2016

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

    Mensagem  AdilsonSantos em 1/12/2019, 17:08

    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
    Anexos
    Como aproveitar codigo escrito no ACCESS de um botao salvar (alterar, excluir etc) em diversos outros formularios sem copiar e colar Attachment8 Como aproveitar codigo do botao salvar (alterar, excluir etc) no codigo para outros formularios.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (97 Kb) Baixado 11 vez(es)
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 30/07/2016

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

    Mensagem  AdilsonSantos em 3/12/2019, 19:16

    Galera, alguem ai ? Ficou claro a pergunta ?
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

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

    Mensagem  pcnet em 4/12/2019, 14:47

    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
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 30/07/2016

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

    Mensagem  AdilsonSantos em 4/12/2019, 16:10

    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,
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

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

    Mensagem  pcnet em 4/12/2019, 16:58

    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 (,")
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 4/12/2019, 23:09

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 30/07/2016

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

    Mensagem  AdilsonSantos em 5/12/2019, 17:21

    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
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 08/09/2012

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

    Mensagem  Maicon em 5/12/2019, 18:32

    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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 1/12/2020, 18:41