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

    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº1

    [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.
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº2

    [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
    • Ir para o topo
    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº3

    [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.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº4

    [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...
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº5

    [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
    • Ir para o topo
    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº6

    [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.
    • Ir para o topo
    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº7

    [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.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº8

    [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...
    • Ir para o topo
    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº9

    [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
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº10

    [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

    • Ir para o topo
    Kaynan
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012
    • Mensagem nº11

    [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.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº12

    [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

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº13

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 03:20