[Resolvido]Numeração automatica com dígito verificador e atualização de formulário

Prezados,

Estou criando um sistema de locação de equipamentos, porém, estou com dificuldades em monta a última tela. Ja montei a estrutura das tabelas consultas e formulários. No entanto no último formulários preciso atualiza-lo automaticamente ao digitar o número do contrato, incluindo as informações do fornecedor, e no subformulário as informações dos equipamentos locados conforme o contrato.
Além disto nesta mesma tela ao entrarmos o numero da Análise de Preços precisa aparecer automaticamente com base em umá numeração automatica já criada.
Alguém poderia me ajudar?
Segue o sistema modelo em anexo.
Desde já agradeço.

Boas Amelio, seja bem vindo ao Fórum.

vamos por partes..

Cite a sua primeira duvida, citando forms e objetos e o que se pretende.


Cumprimentos.

Oi Piloto, bom dia!
Obrigado pela atenção!

Bom eu já avancei bastante no projeto, mas ainda não o conclui.
No momneto estou tentando montar um formulario (ACP) com dados da tabela de Equipamentos e Contratos e que estes fiquem gravados em uma nova tabela de onde será gerado o relatório final.
Sei que dados nao devem ser replicados entre tabelas, mas neste caso é preciso pois os mesmos podem ser ajustados no último formulário.
Preciso terminar isto até amanhã mas está bem complicado.

Agradeço se puder ajudar.

Poste o exemplo citando com detalhes o que pretende para que possamos auxiliá-lo

Cumprimentos.

Piloto,

Segue o sistema de exemplo.
O que preciso é carregar os dados do formulario ACP nas tabelas "ACP" e "TBL_EquipACP" para depois gerar o relatorio "ACP".

Os dados do subformulário em ACP são preenchidos a partir da digitação do número do Contrato.

Piloto,

Conseguiu entender o que preciso?
Consegue me ajudar?


Abs,

Explique a tabela ACP e equipamentosACP...

Porque estào relarionadas e se são relacionadas porque o numero do contrato nas duas? Ja que são relacionadas o contrato basta apenas na tabela principal do relacionamento

Sim devem ser relacionadas, desde que os equipamentos cadastrados no contrato estejam salvos na tabela Equipamentos ACP.
Parece desetruturado, mas preciso dessa duplicidade pois os equipamentos e suas caracteristicas podem ser alterados na ACP.

Criei o campo duplicado, mas não deve ser necessário.

Então para um contrato pode existir n's equipamentos?

e qual a ligação entre o form ACP e o sub form?

Cumprimentos.

Piloto, obrigado pela atenção.

Sim. Um contrato pode ter N equipamentos!
A ACP é criada com base no contrato, ou seja, ao criar a ACP e digitar o Numero do contrato devem aparecer os equipamentos referentes àquele contrato.
Dentro da ACP, para cada equipamento terei que estipular um período de inicio e termino de locação e selecionar o equipamento que constará daquela ACP através de um flag.

Abraço

Seja mais especifico conforme a pergunta:\


e qual a ligação entre o form ACP e o sub form?


Cumprimentos.

Desculpe.

É o identificador da ACP.

A tabela acp registra o contrato

A tabela do subform registra o que?


Cumprimentos.

Os equipamentos que serão selecionados dentro do contrato.

Amigo..Tente me explicar para que serve na pratica o Form ACP..

Esta um pouco confuso isso.
Nele tem varias caixa de combinação e não estou entendo pra que...

Cumprimentos.

Piloto,

No Form ACP é utilizado para gerar um relatório definindo quais equipamentos de um determinado contrato foram alugados.

Por exemplo, Eu recebo um contrato com 3 equipamentos X, Y e Z que será cadastrdo através do FORM_CadContrato, nele vou especificar que empresa está alugando os equipamentos para mim e quais os equipamentos. Após cadastrar o contrato, uma terceira pessoa vai abrir o formulário ACP e digitar o número do contrato.
Ao digitar serão apresentados os itens deste contrato e uma caixa de seleção, para que possamos escolher por exemplo alugar os itens X e Z apenas.
Ao clicar no botão gerar ACP, preciso que apenas estes itens selecionados apareçam no meu relatorio para impressão e fiquem registrados como itens alugados.

Entendi.. Amanha verei isto pra ti

Cumprimentos.

Piloto,

Muito obrigado pela atenção e por tentar ajudar.
Consegui fazer mais algumas atualizações no sistema.
Prefere que eu envie esta versão pra vc?

Claro.. Aguardo.

Piloto,

Segue o banco.

vamos la....

O Cadastro de contratos tem por base duas tabelas:
TBL_Contrato
TBL_EquipContrato

E onde está a relação da mesma com o Form ACP e suas tabelas, pois o Form ACP é baseado nas tabelas:
ACP
TBL_EquipACP

Oras se cadastra o Contrado na tabela contrato.. como deseja pesquisá-lo no Form ACP sendo que o mesmo é baseado em outra tabela?


Cumprimentos.

Piloto,

Mas é exatamente isso que não estou conseguindo fazer, mesmo criando o relacionamento através da variável IdContrto no formulário ACP eu não consegui.
Eu preciso que o formulário ACP exiba as informações do contrato que estão nas tabelas "TBL_Contrato e TBL_EquipContrato" e guarde nas tabelas "ACP e TBL_EquipACP" apenas os itens que forem selecionados através do botão checkbox.
Estou estudando e lendo tudo, principalmente aqui no site, mas realmente não estou conseguindo fazer esta função.

E o pior que já precisava ter finalizado este sistema.

Se puder me orientar com mais detalhes, inclusive na programação da checkbox eu agradeceria.

Abraços,

Amigão.. Não há necessidade a meu ver das tabelas ACP e EquiACP

Utilize apenas as tabelas Contrato e equipContrato... E utilize o formulário ACP baseado nestas tabelas, consultado o contrato.. pode marcar ou desmarcar as chkbox...
e no relatório filtro para exibir apenas os contratos cuja chkbox estejam marcadas...

Creio que é isso que necessita

Do jeito que está, está simplesmente duplicando dados sem necessidade.

Cumprimentos.

Detalhes...

Não há necessidade da TBL_FormContrato... se voce já tem a tabela fornecedores não precisa dela...

Sob minha ótica apenas necessita das tabelas:

TBL_Fornecedores
TBL_Contratos
TBL_EquipContrato.

O que está ocorrendo é que está duplicando dados sem necessidade..
Se estas 3 tabelas forem relacionadas... Uma consulta pode fazer o que deseja...

Cumprimentos.

Piloto,

Estou tentando fazer conforme sua orientação, mas não posso descartar a tabela ACP, pois nela eu tenho informações exclusivas que não estão na tabela TBL_Contrato e TBL_EquipContrato.

Abraço.

Isso que estou falando... se tem essas informacoes.. basta uma consulta entre as duas tabelas.. não precisa da ACP

Cumprimentos.

Piloto,

O que estou dizendo é que preciso da tabela ACP sim, pois os dados do Numero da ACP, Natureza, Projeto, Prazo de Entrega, Cond Pagamento, etc... só existem na tabela ACP, portanto não posso descartá-la como disse.

O que estou tentando fazer é vincular a tabela "ACP" com as tabelas "TBL_Contrato e TBL_EquipContrato".
É esse o seu entendimento?

OK... faremos como deseja...
o que deseja é ao selecionar um contrato da TBL_Contrato, preencher os campos equivallentes na tabela ACP.... e quais equipamentos da TBL_EquipContrato. serão colocados na tblEquipContratoACP?

Cumprimentos.

Piloto, boa noite!

O que preciso é que ao digitar o número do contrato no formulário ACP, os campos equivalentes sejam preenchidos.
No sistema de exemplo que postei isto está sendo feito.

O que falta é fazer com que apenas os itens selecionados na checkbox sejam gravados na tabela tblEquipACP e que estes apareçam no relatório que será impresso por ACP.

Ok Amanha vejo isto pra ti

Cumprimentos.

Oi Piloto,

Obrigado pela ajuda até aqui.
Tentei fazer conforme falou, utilizando uma consulta, mas não consegui fazer de uma forma que me atenda, pois se precisar alterar algum dado da consulta, acabo alterando o que foi definido no contrato.

Eu farei para ti conforme voce falou.. mas farei amanha.. hoje não estou muito bem.

Abraços.

Ok.... Adiciona o numero do contrato no form ACP, preenche o nome da empresa...
Quer que adicione os equipamentos da TBL_EquipContrato na TBL_EquipACP....
Quais equipamentos? os que estão com a chkbox marcadas ou desmarcadas?

Como é isso?

Cumprimentos.

Ao adicionar o número do contrato no form ACP, devem aparecer todos os itens do contrato com a checkbox desmarcada, ou seja, os equipamentos estão relacionados ao contrato.

Um contrato pode estar relacionado a várias ACPs desde que estas ACPs não possuam os mesmos equipamentos.

Por exemplo:
Digamos que eu tenha o contrato 123 com os equipamentos A, B e C.

Eu posso gerar 3 ACPs sendo que em cada uma delas vou ter apenas 1 equipamento, ou posso gerar 1 ACP com os 3 equipamentos.

Portanto à medida que eu gerar uma ACP o equipamento marcado na chkbox deveria ser adicionado na TBL_EquipACP.

Fui claro ou compliquei? rs

Então que tal fazermos assim...
Se cria um ACP clica em um botão abre uma lista com os equipamentos do contrato ao selecionar um na lista, lanca ele no subform, nao ficando este mais disponivel na lista...

Que tal?

Piloto,

Infelizmente, preciso que seja feito da forma que falei.
É possível?

Amigo.. o que falei acima é exatamente como falou no entanto mais eficaz...

Suponha que o contrato 123 tenha os equipamentos A,B e C

Como escolher qual equipamento inserir no ACP????

Por isso sugeri a lista... ai voce escolhe o A, o B ou o C...

Suponha que gerou o ACP X... inseriu o equipamento A.
Ao gernar o ACP Y na lista so estará disponivel o equipamento B e C

Entendeu?

Cumprimentos.

Eu entendi sim Piloto.

Faremos o seguinte, se puder faça desta forma q depois eu tento adaptar.
Estou precisando disto pronto amanha funcionando e aceito da forma que puder ajudar.

Obrigado.

As informacoes NumCR e Projeto serão insresidas pelo usuário ou estão na tanela contrato?

Cum\pimentos.

Sim serão inseridas assim como a data de inicio e Fim da locação do equipamento.

Abra o Form ACP, selecione um contrato na Caixa de combinação... depois clique no botão Inserir Equip.

Observe que so exibirá os esquipamentos do contrato... De um duplo click em um dos equipamentos, a chkBox será marcada na TBL_EquipContrato, e este equipamento não estará disponível na próxima vez que abrir a lista, ao dar o duplo click, o equipamento será colocado na TBL_EquipAcp... fiz para incluir apenas dois campos...
O Campo idACP e Equipamento... adicione mais quantos desejar.

Cumprimentos.

Obrigado pela ajuda Piloto!

Vou testar e após dou o tópico com resolvido.

Abs,

Piloto,

Fazendo desta forma funciona, mas, se eu tiver um contrato com 15 itens por exemplo, terei de clicar 15 vezes no botão "Inserir Equip." e dar mais 15 duplo cliks.
Por isso estou tentando fazer com chkbox.
Vou continuar tentando.

Mesmo assim obrigado!

Calma amigão.. está apressado... So não se tem jeito pra morte...

Que tal uma listBox de múltipla selecão onde se seleciona um ou mais ítens e insere apenas os selecionados?

Ja pensou?

Quer tentar ai?.. Caso não consiga avise-me que faremos.

Abraços.

Piloto, desculpe, mas apressado não!
Estou desesperado mesmo!
Preciso apresentar este sistema funcionando amanha, por isso a urgência!

Eis:

Cumprimentos.

Piloto,

Sei que está me ajudando, mas, desta forma nao funciona.

Vamos supor que eu selecione um equipamento por engano... eu não tenho como exclui-lo da ACP e caso eu delete a linha ele não volta para a lista como um equipamento nao utilizado.

Outro ponto é que a cada vez que abro o formulário ACP, as ACPs já preenchidas nao aparecem.

Existe a possibilidade de fazer utilizando a chkBox?

Você tem conhecimento pra fazer desta forma?

Amigo... Utilizando as checkBox como?

Ao inserir um numero de contrato adicionar os equipamentos com a chkbox marcadas ou desmarcadas?

Vamos supor que eu selecione um equipamento por engano... eu não tenho
como exclui-lo da ACP e caso eu delete a linha ele não volta para a
lista como um equipamento nao utilizado.

Se selecionar um equipamento por engano... caso deletar a linha na ACP, da pra fazer aparecer na lista sim...

Sobre abrir o formulário acp.. não aparece as acp's preenchidas? como assim?


Cumprimentos.

A questão de não exibir as ACP's geradas es tava na configuração do teu form. Ele estava configurado para apenas entrada de dados.

Para resolver isto basta ir em propriedades, aba dados, entrada de dados = não.

Criei uma caixa de combinação para busca de ACP's geradas com o seguinte código no evento após atualizar:

Private Sub cboBusca_AfterUpdate()
On Error Resume Next
  ' Localizar o registo que corresponde ao controlo.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NumContrato] = " & Str(Nz(Me.cboBusca.Column(0), 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Quanto a deletar o registro e voltar o mesmo para a lista , transformei o subform DTSHEET_EquipACP do modo padrão Folha de dados para formulário contínuo, e código ao apertar tecla identificando se foi a tecla del, caso positivo atualiza a TBL_EquipContrato para limpar a chkbox:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
    CurrentDb.Execute "UPDATE TBL_EquipContrato set SelectItem = 0 WHERE IdContrato = " & Me.IdContrato & " And Identificador = '" & Me.TBL_Equipamentos_Identificador & "'"
    KeyCode = 0
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
End If
End Sub

Cumprimentos.

Para isso inseri mais alguns campos no registro da TBL_EquipACP para identificar o registro a ser atualizado na chkbox na TBL_EquipContrato:

Private Sub btnInserir_Click()
Dim StrIDACP As Long
Dim lngEquip As String
Dim Linha As String
    StrIDACP = Forms!ACP!txtIDAcp
    For ncount = 0 To Me.lstEquip.ListCount - 1
        If Me.lstEquip.Selected(ncount) Then
            lngEquip = Me.lstEquip.Column(2, ncount)
            CurrentDb.Execute "insert into TBL_EquipACP (idACP, Equipamento, IdContrato, TBL_Equipamentos_Identificador) values (""" & StrIDACP & """ , """ & lngEquip & """, """ & Me.lstEquip.Column(3) & """, """ & Me.lstEquip.Column(1) & """)"
            CurrentDb.Execute "UPDATE TBL_EquipContrato set SelectItem =1 WHERE IdContrato = " & Me.lstEquip.Column(1) & " And Identificador = '" & Me.lstEquip.Column(3, ncount) & "'"
        End If
    Next
Me.lstEquip.Requery
Forms!ACP.CONST_Contrato.Form.Requery
DoCmd.Close
End Sub

Piloto,

Antes de tudo muto obrigado, estou começando a entender e caminhar melhor.

Mas estou com algumas dúvidas ainda. Na TBL_EquipACP tenho que inserir automaticamente todos os campos DtInício e DtFim, são os unicos serão preenchidos no subformulario EquipACP.
Neste caso basta eu alterar o comando Private Sub btnInserir_Click()??

Além disto, não consegui compreender qual a função da chkBox agora, já que os dados já são inseridos no registro da TBL_EquipACP.
Pelo meu entendimento nao preciso mais deste campo, correto?