MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo Empty [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    Mensagem  m_sousa Ter Fev 16, 2021 8:04 pm

    Olá

    No código que utilizo para duplicar registos , gostaria que antes de duplicar pergunta-se se gostaria de duplicar registo. E clicando em Ok/Sim duplica-se.
    Obrigado

    Código:
    Private Sub btnDuplucar_Click()
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , "", acNewRec
    DoCmd.RunCommand acCmdPasteAppend
    End Sub


    Um bem hajam ! Saúde
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7223
    Registrado : 15/03/2013

    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo Empty Re: [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    Mensagem  ahteixeira Ter Fev 16, 2021 8:24 pm

    Olá Marco Sousa

    Não falta exemplos no forum, veja como fazer uma "Busca":
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja por exemplo
    https://www.maximoaccess.com/t8433-resolvidomsgbox-com-vbyesno

    Nota: Ajustei o título do tópico para pesqueisas de outros membros.

    Abraço
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo Empty Re: [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    Mensagem  m_sousa Ter Fev 16, 2021 9:05 pm

    Ok

    Obrigado Teixeira !

    Abraço para si também e saúde.

    Ficou assim :

    Código:
    Private Sub btnDuplucar_Click()
    If MsgBox("Deseja Duplicar Registo?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , "", acNewRec
    DoCmd.RunCommand acCmdPasteAppend
    End If
    End Sub

    Obrigado, resoilvido.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7223
    Registrado : 15/03/2013

    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo Empty Re: [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    Mensagem  ahteixeira Ter Fev 16, 2021 10:24 pm

    Olá Marco Sousa,

    Obrigado pelo retorno, o forum agradece.

    Abraço e também Saúde

    Conteúdo patrocinado

    [Resolvido]Caixa de Mensagem a confirmar Duplicar registo Empty Re: [Resolvido]Caixa de Mensagem a confirmar Duplicar registo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg Maio 17, 2021 1:15 pm