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


3 participantes

    [Resolvido]Abrir na opção selecionada

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 6/9/2023, 19:35

    Ola pessoal,gostaria que neste exemplo,no form "frmClienteLocaliza_1" eu clicasse 2vzs no cliente e abrisse o form "frmOrdServico" no cliente escolhido.
    Ja tentei alguns códigos mas quando abre abre vazios.
    Alguém poderia dar uma olhadinha pra mim.
    Abçs.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Marcelo David 7/9/2023, 21:14

    Fala Kaynan!
    No caso, um cliente só tem uma ordem de serviço?


    .................................................................................
    [Resolvido]Abrir na opção selecionada Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir na opção selecionada Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir na opção selecionada Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir na opção selecionada Marcel11
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 7/9/2023, 21:28

    Opaa,Marcelo o cliente pode ter varias ordem de serviço.
    hoje ele pode trazer uma aparelho pra conserto,como da li 3 ou 4 dias trazer outro.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  JPaulo 8/9/2023, 17:30

    Código:
    Private Sub NomeFantasia_DblClick(Cancel As Integer)
        DoCmd.OpenForm "frmOrdServico"
        Forms("frmOrdServico").Form.DataEntry = False
        Forms("frmOrdServico").Form.Filter = "[id_cli]=" & Me.[id_cli].value
        Forms("frmOrdServico").Form.FilterOn = True
    End Sub


    .................................................................................
    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]Abrir na opção selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir na opção selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir na opção selecionada Folder_announce_new Instruções SQL como utilizar...
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Marcelo David 8/9/2023, 17:54

    O que não entendi é que você tem o formulário e ordem e serviço que apresenta uma OS. Então, estando em um cliente, qual OS das que o cliente tem deve ser aberta?

    No entanto, veja a solução do JPaulo.


    .................................................................................
    [Resolvido]Abrir na opção selecionada Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir na opção selecionada Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir na opção selecionada Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir na opção selecionada Marcel11
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 8/9/2023, 19:40

    Boa tarde JPaulo com esse código eu clico 2vzs o cliente aparece e apaga no mesmo instante,não fica preenchido os campos do cliente.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 10/9/2023, 03:39

    Ola Marcelo,no bd original tenho outros formularios que fazem dar certo,o que quero é só isso mesmo.
    O código do JPaulo,só da uma piscadinha mas não mantém o cadastro.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  JPaulo 10/9/2023, 15:13

    Amigão repare bem no titulo do tópico que você abriu:
    Abrir form na opção selecionada

    Ora a instrução que passei faz isso mesmo, usando o form.filter

    Agora se você quer abrir o form OS num novo registro e já preenchido na opção selecionada, é outra coisa.

    Em que ficamos ?


    .................................................................................
    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]Abrir na opção selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir na opção selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir na opção selecionada Folder_announce_new Instruções SQL como utilizar...
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 10/9/2023, 17:46

    Opa JPaulo eu quero é como vc disse mesmo, ao clicar no cliente abrir uma nova OS com o cliente ja preenchido
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  JPaulo 11/9/2023, 10:34

    Código:
    Private Sub NomeFantasia_DblClick(Cancel As Integer)
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim strSQL As String

    On Error Resume Next

            strSQL = "SELECT * FROM cnsLocalizaRegistro_1 WHERE id_cli = " & Me.id_cli.value
            
    DoCmd.OpenForm "frmOrdServico", acNormal, , , acFormAdd
    Forms("frmOrdServico").Form.DataEntry = False
    Forms!frmOrdServico.Form.Recordset.AddNew

            Set db = CurrentDb
            Set rs = db.OpenRecordset(strSQL)
            If Not rs.BOF Then
                Forms!frmOrdServico.Form!id_cli = rs("id_cli")
            End If
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
    End Sub


    .................................................................................
    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]Abrir na opção selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir na opção selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir na opção selecionada Folder_announce_new Instruções SQL como utilizar...

    arakaki1 gosta desta mensagem

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Kaynan 11/9/2023, 13:31

    Grande JPaulo,muito obrigado por mais essa,valeu mesmo, cheers do jeito que precisava.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  JPaulo 11/9/2023, 13:43

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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]Abrir na opção selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir na opção selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir na opção selecionada Folder_announce_new Instruções SQL como utilizar...

    arakaki1 gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Abrir na opção selecionada Empty Re: [Resolvido]Abrir na opção selecionada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:32