Boa tarde, Pessoal!
Estou com projeto em andamento, tenho um Frm_Cad_Equipamentos com Listbox onde eu queria dar dois clicks em um arquivo na Listbox e jogar ele para os campos acima para edição, estou usando um código pegado aqui no fórum que já uso em outro Frm_Emprestimo e funciona perfeitamente, mais no Frm_Cad_Equipamentos da erro, o código é:
Pessoal essa parte do Duplo click eu consegui resolver vendo uma outra postagem aqui mesmo no forum:
Private Sub ListBox_Equip_DblClick(Cancel As Integer)
Me.Filter = "[Npatri] = " & Me.ListBox_Equip.Column(0) & ""
Me.FilterOn = True
Me.Requery
End Sub
Esse código acima ficou assim agora:
Private Sub ListBox_Equip_DblClick(Cancel As Integer)
Me.Filter = "[Npatri] = '" & Me.ListBox_Equip.Column(0) & "'"
Me.FilterOn = True
Me.Requery
End Sub
Agora preciso de filtro para filtrar o campo “NPatri” do SubFrm_DetalheEmprestimo esse campo “NPatri” é a chave primaria da Tbl_PRINCIPAL_CAD_EQUIPAMENTOS.
Tambem preciso de um código para verificar se o número de patrimônio do equipamento, representado pelo campo “NPatri” no SubFrm_DetalheEmprestimo não aceite um NPatri que esteja com um empréstimo não finalizado.
Segue meu Projeto e prints das telhas que preciso.
Link para baixar meu projeto: https://drive.google.com/drive/folders/1Myyd6mMeirsq1pdwM6YOCuqL9lASM-pF?usp=sharing
Estou com projeto em andamento, tenho um Frm_Cad_Equipamentos com Listbox onde eu queria dar dois clicks em um arquivo na Listbox e jogar ele para os campos acima para edição, estou usando um código pegado aqui no fórum que já uso em outro Frm_Emprestimo e funciona perfeitamente, mais no Frm_Cad_Equipamentos da erro, o código é:
Pessoal essa parte do Duplo click eu consegui resolver vendo uma outra postagem aqui mesmo no forum:
Private Sub ListBox_Equip_DblClick(Cancel As Integer)
Me.Filter = "[Npatri] = " & Me.ListBox_Equip.Column(0) & ""
Me.FilterOn = True
Me.Requery
End Sub
Esse código acima ficou assim agora:
Private Sub ListBox_Equip_DblClick(Cancel As Integer)
Me.Filter = "[Npatri] = '" & Me.ListBox_Equip.Column(0) & "'"
Me.FilterOn = True
Me.Requery
End Sub
Agora preciso de filtro para filtrar o campo “NPatri” do SubFrm_DetalheEmprestimo esse campo “NPatri” é a chave primaria da Tbl_PRINCIPAL_CAD_EQUIPAMENTOS.
Tambem preciso de um código para verificar se o número de patrimônio do equipamento, representado pelo campo “NPatri” no SubFrm_DetalheEmprestimo não aceite um NPatri que esteja com um empréstimo não finalizado.
Segue meu Projeto e prints das telhas que preciso.
Link para baixar meu projeto: https://drive.google.com/drive/folders/1Myyd6mMeirsq1pdwM6YOCuqL9lASM-pF?usp=sharing
- Anexos
- BANCO_DADOS_INFO_CONSTRUCAO.zip
- Meu Banco de dados em construção
- Você não tem permissão para fazer download dos arquivos anexados.
- (1.4 Mb) Baixado 35 vez(es)