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

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.

Olá

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

Código:

stLinkCriterio= ?????

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.