[Resolvido]Abrindo o cadastro diferente

Boa tarde,

Tenho um formulario e num campo digito o nome do cliente, e no subformulario eh listado estes clientes, alguns possuem nomes iguais.

Em cima dos campos do subformulario existe um botao transparente para abrir o formulario com o cadastro completo destes clientes..

Código:



Private Sub Comando12_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "formCadastroClientes"

stLinkCriteria = "[Nome]=" & "'" & Me![Nome] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


soh que quando dois clientes tem nomes iguais ele abre o mesmo cadastro pros dois, tentei colocar apenas a codCliente e mudar p integer mas sem sucesso, alguem tem uma dica?

ta pedindo pra eu digitar Me!CodCliente

É isso mesmo, é o nome do campo do formulario, e o nome do campo da tabela e sim, um numero

Pois eh muito estranho.. mas com esse codigo q tu passou coloquei denovo o nome e nao funcionou, pediu pra digitar o nome..

no caso do codigo eu digito o codigo e abre o cadastro do codigo que digitei... isso eh mt estranho heheh

Boa noite Norberto,

Agora nao deu erro nenhum mas quando clico pra abrir o cadastro ele abre em branco.. fiz com o nome mas sem sucesso..

Tiago

Creio que com digitação do nome não irá funcionar devido aos homônimos.
O ideal é fazer uma combobox com o idCliente e nome.
Para facilitar, no repositório tem um exemplo meu chamado localiza, onde a medida que se digita vai aparecendo os nomes.
Assim, além de poder escolher o cliente que tiver o mesmo nome (nesse caso seria melhor colocar mais uma coluna na combo que diferencie esses registros), pode usar o idCliente, como argumento para abrir o formulário.

Pelo que entendi, o subformulário que tem o botão transparente é contínuo, se for isso, a linha tem que estar selecionada, só que você clica na linha e seleciona e quando clica no botão, tira a seleção da linha.
Solução: colocar um botão no formulário continuo (aparecerá um botão para cada linha)
Exemplo: no mesmo local que o outro que citei, chama-se parcelas/mensalidades.

Abraços

Obrigado pela resposta Balem,

Mas resolvi com essa função:



Aqui

Norberto, muito obrigado pelo apoio

Esse aqui

Código:



Private Sub bt_agendar_atendimento_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "FrmAgendarCliente"
strFilter = "CodigoCliente=Forms!FrmAgendarCLiente!CodigoCliente"
DoCmd.OpenForm "FrmAgendarCliente", , , "CodigoCliente=" & Me.CodigoCliente


abs

Ah sim, o código final ficou assim:

Código:



Private Sub Comando12_Click()
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "formCadastroClientes"

stLinkCriteria = "codCliente=Forms!formCadastroClientes!codCliente"
DoCmd.OpenForm "formCadastroClientes", , , "codCliente=" & Me.codCliente
End Sub