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]Buscar um pedido sem lançamentos

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Sáb 11 Mar 2023, 11:04 am

    Bom dia amigos!
    Gostaria de saber se alguem saberia se e possivel avisar o usuario quer uma ordem de serviço esta em branco.
    Explicando:
    Estou criando um pequeno sistema para salao de beleza, ocorre que pode acontecer que assim que o pedido( ordem ) for aberto,
    a Funcionaria pare pra fazer alguma coisa( atender o telefone , ou dar atençao a um cliente).
    nesse momento alguem tabem entar no sistema e cria um novo pedido.
    Queria que o sistema avisa-se que a ordem n.º tal esta aberta sem nehum lançamento e a abrisse a tal ordem com isso nao ficasse aquela ordem perdida e em branco.( ressaltando tenho um codigo que abre um detrminda ordem informando seu numero, é usada quando vao fazer o pagamento do pedio)
    gostaria de usar ese codigo pra mostar o pedido( ordem 0em branco
    abaixo meu codigo para abrir o pedido quando informado o N.º
    ************************************************************
    Private Sub TxCodigo_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    Set rs = OpenForSeek("tbl_vendas")
    rs.Index = "idCodigo"
    rs.Seek "=", Me!TxCodigo
    If Not rs.NoMatch Then
    rs.Edit
    Me!TxCodigo = rs("Codigo")
    Me.TxtComanda = rs("Comanda")
    cboCliente = rs("Cliente")
    txCabelereiro = rs("Cabelereiro")
    Me.TxtSoma = rs("vltotal")
    Me.CsFinal = rs("Finalizado")

    Me.TXFPagamento = rs("Forma Pagamento")

    Me.Comando34.enabled = True
    End If
    Me.lstProdutos.Requery
    Call SomaListBox
    End Sub
    '**************************************************************
    Espero ter explicado bem.
    Desde ja agrdeço sugestoes pois nao faço ideia de como fazer esse procedimento.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  DamascenoJr. Sáb 11 Mar 2023, 12:37 pm

    Tópico retirado da sala de repositório de exemplos por não ser um exemplo pronto para estudo. Tópico colocado em sala de dúvida por ser uma dúvida.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Ney Santos gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Sáb 11 Mar 2023, 12:42 pm

    Obrigado Damasceno, nao tinha me atentado a isso, estava procurrando algo parecido e como nao encontrei resolvi postar.
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Seg 13 Mar 2023, 8:19 am

    UP!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim Seg 13 Mar 2023, 8:57 am

    Bom dia Ney,

    Por gentileza, compartilhe uma copia do seu bd, somente os objetos envolvidos no problema, para análise e solução.

    Obrigado

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Buscar um pedido sem lançamentos Setinf11
    Sistemas e Tecnologia Ltda
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Seg 13 Mar 2023, 9:57 am

    Bom dia Alexandre. conforme solicitado segue o bd dos arquivos envolvidos.

    Att Ney
    Obs (descompacte na area de trabalho)
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Qui 16 Mar 2023, 5:03 pm

    alguma ideia gente?

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim Qui 16 Mar 2023, 5:21 pm

    Ney,

    To vendo o sistema e o formulario de vendas está um pouco confuso.
    Vou fazer uns ajustes e também criar um alerta ao usuário sobre pedidos abertos.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Buscar um pedido sem lançamentos Setinf11
    Sistemas e Tecnologia Ltda
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Qui 16 Mar 2023, 5:40 pm

    obrigado alexandre no aguardo

    Ney Santos gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Seg 20 Mar 2023, 8:00 am

    Bom dia Sr Alexandre conseguiu verificar alguma coisa?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim Seg 20 Mar 2023, 9:59 am

    Bom dia Ney,
    Sim, estou vendo ainda.
    O formulário está confuso e tomei a liberdade de criar um novo e também uma tela de pesquisa.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Buscar um pedido sem lançamentos Setinf11
    Sistemas e Tecnologia Ltda
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Seg 20 Mar 2023, 7:08 pm

    cheers


    Última edição por Ney Santos em Seg 10 Abr 2023, 10:30 pm, editado 1 vez(es) (Motivo da edição : Resolvido)

    Ney Santos gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Ney Santos Seg 10 Abr 2023, 10:31 pm

    resolvido com a ajuda do Sr Alexandre
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim Ter 11 Abr 2023, 12:55 am

    Valeu Ney,
    O fórum agradece.

    Sucesso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Buscar um pedido sem lançamentos Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Buscar um pedido sem lançamentos Empty Re: [Resolvido]Buscar um pedido sem lançamentos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qua 22 maio 2024, 8:17 pm