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

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 11/3/2023, 14:04

    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 : 3818
    Registrado : 22/11/2016

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  DamascenoJr. 11/3/2023, 15:37

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 11/3/2023, 15:42

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 13/3/2023, 11:19

    UP!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim 13/3/2023, 11:57

    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

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 13/3/2023, 12:57

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

    Att Ney
    Obs (descompacte na area de trabalho)
    Anexos
    Buscar um pedido sem lançamentos AttachmentSccc.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 9 vez(es)
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

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

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 16/3/2023, 20:03

    alguma ideia gente?

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim 16/3/2023, 20:21

    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

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 16/3/2023, 20:40

    obrigado alexandre no aguardo
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

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

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 20/3/2023, 11:00

    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 : 2839
    Registrado : 13/12/2016

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Alexandre Fim 20/3/2023, 12:59

    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

    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 : 295
    Registrado : 23/05/2011

    Buscar um pedido sem lançamentos Empty Re: Buscar um pedido sem lançamentos

    Mensagem  Ney Santos 20/3/2023, 22:08

    cheers

      Data/hora atual: 1/4/2023, 09:02