[Resolvido]Finalizar uma OS

Ola amigos tenho essa sistema de ordem de serviço que o Alexandre elaborou,oque gostaria era de achar um jeito de fazer o fechamento da OS,o cliente vem buscar o aparelho consertado,me paga e ao clicar em um botão esse aparelho va pra outro formulario de aparelhos entregues.

Boa noiite Kayna.
Para ser mais rapido para você e para nós coloque somente a parte do sistema que você quer, não anexa o sistema todo.
No seu caso é você fazer é:

Código:

Dim DB As Database
Dim sSQL    As String
    Set DB = CurrentDb
        sSQL = "INSERT INTO Nome da sua tabela"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  nome do campo da tanela"
        sSQL = sSQL & ")"
      aqui coloca o nome do campo do formulario que voce quer
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & (Me.txtnome.Value) & "'"
  sSQL = sSQL & ")"
        DB.Execute sSQL
        Me.Requery

Kaynan,

Mandei nova versão do sistema no teu e-mail.

O Cadastro de Ordem de Serviço ficou assim:


E os cadastros de Equipamentos e Manutenções ficaram separados

- Equipamentos:



- Manutenções


OBS: Para cadastrar manutenção, é necessário selecionar o equipamento na listbox de equipamentos, para relacionar a manutenção ao equipamento

É isso

Att,

Alexandre Fim

Bom dia Alexandre teria como me enviar uma copia tb?

Fcamara,depois com permissão do Alexandre colocamos uma cópia pros amigos,e desde já dizendo ta ficando perfeito esse sistema.

Senhores,

Segue versão final do SysOS, a quem se interessar.

Valeu

Att

Alexandre Fim

Perfeito Alexandre,sempre prestativo com a gente,obrigado por tudo ai,valeu irmão.