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]Abrindo o cadastro diferente

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Abrindo o cadastro diferente

    Mensagem  jamesacdc 11/5/2012, 20:41

    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?
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 11/5/2012, 21:04


    Olá

    Deve funcionar com codCliente:

    Private Sub Comando12_Click()
    DoCmd.OpenForm "formCadastroClientes", acNormal, , "codCliente = Me!codCliente"
    End Sub

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 11/5/2012, 21:15

    ta pedindo pra eu digitar Me!CodCliente
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 11/5/2012, 21:31


    Me!codCliente
    Considerei que este campo existe no formulário e que é Número.
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 11/5/2012, 21:32

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


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 11/5/2012, 21:38


    Parece que está tudo correto.
    Se funcionava com Nome, devia funcionar com codCliente e abrindo no registro exclusivo.

    scratch
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 11/5/2012, 21:43

    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
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 11/5/2012, 21:49


    Tente substituir
    Me!codCliente
    por
    Forms!NomeDoFormulário!codCliente

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 14/5/2012, 02:03

    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..
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 14/5/2012, 02:23

    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


    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 14/5/2012, 03:53

    Obrigado pela resposta Balem,

    Mas resolvi com essa função:



    Aqui

    Norberto, muito obrigado pelo apoio Very Happy
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 14/5/2012, 04:00


    Bom que resolveu,
    mas fiquei na dúvida, pois o tópico do link em mais que um código.

    Que tal colar aí o código que usou...
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 14/5/2012, 04:39

    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
    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 14/5/2012, 04:52


    Me expressei mal...
    Quiz dizer o código que você usou no seu aplicativo.
    Ou seja, como ficou.

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  jamesacdc 15/5/2012, 20:15

    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

    avatar
    Convidad
    Convidado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Convidad 15/5/2012, 20:28



    DoCmd.OpenForm "formCadastroClientes", , , "codCliente = Forms!NomeDoFormulário!codCliente"

    funciona aqui da mesma forma que

    DoCmd.OpenForm "formCadastroClientes", , , "codCliente=" & Me.codCliente


    E vc declarou as variáveis, mas não as usou.

    Conteúdo patrocinado


    [Resolvido]Abrindo o cadastro diferente Empty Re: [Resolvido]Abrindo o cadastro diferente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 22:53