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


2 participantes

    [Resolvido]VBA duplo click do campo Código do formulário.

    abjinfo
    abjinfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 02/07/2015

    [Resolvido]VBA duplo click do campo Código do formulário. Empty [Resolvido]VBA duplo click do campo Código do formulário.

    Mensagem  abjinfo 15/1/2022, 00:41

    Olá Pessoal!

    Estou iniciando um projeto e me deparei com dificuldades, porem procurei e obtive um exemplo do JPaulo 2009 que também não resultou positivamente.

    Peço apoio de vocês mestre em VBA.

    Vou passar o código aqui, pois o DB não subiu por exceder o tamanho mesmo compactado.

    Vamos lá:

    Tenho um formulário de Lista de Clientes que consta 3 botões (Novo, Editar e Excluir), estou com dificuldade em atribuir o código VBA para os botões Editar e Excluir.

    Editar:

    O proprio nome já diz, quero editar um determinado cadastro de Cliente para alterações a partir do Cliente selecionado na Lista.

    Código ao Clicar o botão:
    --------------------------------------------------------------------------------
    Private Sub BotaoAlterarAna_Click()
    AlterarAna
    End Sub

    Private Sub AlterarAna()
    If Not IsNull(CódigoAmn) Then
    AçãoBotão = "AlterarAna"
    stDocName = "AnamineseEditar"
    DoCmd.OpenForm stDocName, , , stLinkCriterio
    Else
    Beep
    MsgBox "Nenhum cliente foi selecionado!", vbExclamation, "Alteração"
    End If
    Exit Sub
    End Sub
    -----------------------------------------------------------------------------------
    Objetivo: Selecionar o Cliente no Formulário Lista de Clientes e abrir o formulário de Cadastro.

    Agora o Excluir como no me já define.

    Código do botão:

    --------------------------------------------------------------------------
    Private Sub BotaoExcluirAna_Click()
    If Not IsNull(CódigoAmn) Then
    If PodeExcluir Then

    GeraLog = Log("Anaminese" & Me.NomeCliente, "E", CódigoAmn)

    strSQL = "UPDATE tblAnaminese set ccativo = False WHERE CódigoAmn = " & CódigoAmn
    On Error GoTo erro
    Workspaces(0).Databases(0).Execute strSQL

    Me.Requery

    End If
    End Sub
    ---------------------------------------------------------------------------

    Fico no aguardo da ajuda de vocês, obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10762
    Registrado : 04/11/2009

    [Resolvido]VBA duplo click do campo Código do formulário. Empty Re: [Resolvido]VBA duplo click do campo Código do formulário.

    Mensagem  JPaulo 17/1/2022, 10:12

    Olá

    Qual foi o meu código de 2009 que você está a usar, se você nem defeniu qual o criterio ?

    Código:
    stLinkCriterio= ?????


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]VBA duplo click do campo Código do formulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]VBA duplo click do campo Código do formulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]VBA duplo click do campo Código do formulário. Folder_announce_new Instruções SQL como utilizar...
    abjinfo
    abjinfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 02/07/2015

    [Resolvido]VBA duplo click do campo Código do formulário. Empty Re: [Resolvido]VBA duplo click do campo Código do formulário.

    Mensagem  abjinfo 20/1/2022, 00:29

    Olá JPaulo!

    Desculpa a demora em responder.

    Bom, acho que expressei mal.

    Seu código de pesquisa é ótimo eu que não sabia adaptar ao meu projeto, mais agora eu consegui e está perfeito. Realmente eu não coloquei qual era o critério.

    Muito obrigado mesmo em responder, pois ainda tenho muito que aprender com vcs.

    Abraços.

    Conteúdo patrocinado


    [Resolvido]VBA duplo click do campo Código do formulário. Empty Re: [Resolvido]VBA duplo click do campo Código do formulário.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2022, 00:22