[Resolvido]Buscar um pedido sem lançamentos

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.

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.

Obrigado Damasceno, nao tinha me atentado a isso, estava procurrando algo parecido e como nao encontrei resolvi postar.

UP!

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

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

Att Ney
Obs (descompacte na area de trabalho)

alguma ideia gente?

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

obrigado alexandre no aguardo

Bom dia Sr Alexandre conseguiu verificar alguma coisa?

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

resolvido com a ajuda do Sr Alexandre

Valeu Ney,
O fórum agradece.

Sucesso

Att,

Alexandre Fim