Alyson Ronnan Martins

Membros
  • Content Count

    251
  • Joined

  • Last visited

Community Reputation

0 Neutro

2 Followers

About Alyson Ronnan Martins

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Boa noite. @Ana.Paula Supondo que tenha entendi tudo esse comando pesquisar executa seguinte linha: fDados_PCP iLin Sendo o comando responsável por trazer as imagens imagens. Olhando esse comando não vi comando para carregar a imagem, somente os textos, por isso não aparece foto quando você faz a pesquisa: Function fDados_PCP(iLinha As Long) 'Carrega dados txtposicao.Value = Cells(iLinha, "A").Text txtboxcodigoprod.Value = Cells(iLinha, "B").Text txtboxdescricao.Value = Cells(iLinha, "C").Text txtboxex1.Value = Cells(iLinha, "D").Text txtboxex2.Value = Cells(iLinha, "E").Text txtboxex3.Value = Cells(iLinha, "F").Text txtboxex4.Value = Cells(iLinha, "G").Text txtboxex5.Value = Cells(iLinha, "H").Text txtboxex6.Value = Cells(iLinha, "I").Text txtboxex7.Value = Cells(iLinha, "J").Text txtboxex8.Value = Cells(iLinha, "K").Text txtboxex9.Value = Cells(iLinha, "L").Text txtboxex10.Value = Cells(iLinha, "M").Text txtboxvari1.Value = Cells(iLinha, "N").Text txtboxvari2.Value = Cells(iLinha, "O").Text txtboxvari3.Value = Cells(iLinha, "P").Text txtboxvari4.Value = Cells(iLinha, "Q").Text txtboxvari5.Value = Cells(iLinha, "R").Text txtboxvari6.Value = Cells(iLinha, "S").Text End Function Como você informou que o endereço responsável pela foto estava na coluna "T" e esse comando acima não carrega essa coluna, presumo que seu código falta o "LoadPicture" na coluna "T" frmPrincipal.Image1.Picture = LoadPicture(Cells(iLinha, "T").Text) Ficando no final assim: Function fDados_PCP(iLinha As Long) 'Carrega dados txtposicao.Value = Cells(iLinha, "A").Text txtboxcodigoprod.Value = Cells(iLinha, "B").Text txtboxdescricao.Value = Cells(iLinha, "C").Text txtboxex1.Value = Cells(iLinha, "D").Text txtboxex2.Value = Cells(iLinha, "E").Text txtboxex3.Value = Cells(iLinha, "F").Text txtboxex4.Value = Cells(iLinha, "G").Text txtboxex5.Value = Cells(iLinha, "H").Text txtboxex6.Value = Cells(iLinha, "I").Text txtboxex7.Value = Cells(iLinha, "J").Text txtboxex8.Value = Cells(iLinha, "K").Text txtboxex9.Value = Cells(iLinha, "L").Text txtboxex10.Value = Cells(iLinha, "M").Text txtboxvari1.Value = Cells(iLinha, "N").Text txtboxvari2.Value = Cells(iLinha, "O").Text txtboxvari3.Value = Cells(iLinha, "P").Text txtboxvari4.Value = Cells(iLinha, "Q").Text txtboxvari5.Value = Cells(iLinha, "R").Text txtboxvari6.Value = Cells(iLinha, "S").Text 'Carregar imagem frmPrincipal.Image1.Picture = LoadPicture(Cells(iLinha, "T").Text) End Function Olha como ficou o código com a alteração nessa
  2. @Ana.Paula manda somente a parte que não esta funcionando como deveria
  3. Eu mudei uma coisa no seu código de puxar a foto. Private Sub cmdimagem_Click() Dim Figura As Office.FileDialog Set Figura = Application.FileDialog(msoFileDialogFilePicker) With Figura AllowMultiSelect = False Title = "Selecione a imagem." .Filters.Add "imagem JPG", "*.jpg *" If Figura.Show = True Then Selecao = Figura.SelectedItems.Item(1) frmPrincipal.Image1.Picture = LoadPicture(Selecao) End If End With End Sub Esse é a alteração. Private Sub cmdimagem_Click() Dim Figura As Office.FileDialog Set Figura = Application.FileDialog(msoFileDialogFilePicker) With Figura 'Aqui ponto antes dos comandos '----------------------------- .AllowMultiSelect = False .Title = "Selecione a imagem." '---------------- 'Fim da alteração .Filters.Add "imagem JPG", "*.jpg *" If Figura.Show = True Then Selecao = Figura.SelectedItems.Item(1) frmPrincipal.Image1.Picture = LoadPicture(Selecao) End If End With
  4. Tem como manda um print ou a planilha para analisar?
  5. @raulsoaresmelo Boa noite. Também não consegui. Tenta importar essas informações via VBA, o excel puxando do access,para pegar essas informações.
  6. @wolfguardia Boa noite. manda um print se seu formulário para mostra mais ou menos aonde tem que alterar o formulário para passa essa informação para tabela. Sendo que essa informação pode ser passada direto por macrou ou pelo formulário mesmo, mais teria que dar uma olhada na tela dele.
  7. @landeirapeixotoBoa noite. No excel usamos o Se para fazer uma lógica que esta querendo. No Access usamos o IFF para fazer isso. Então seria assim: =IIf([PaísRegião]="Itália", "Italiano", "Outro idioma") Estou no aguardo.
  8. @lucianocmoraesBoa noite. Acho que seja erro de formula ou calculo. Poderia enviar um print da consulta que esta criando o "relatório". Estou no aguardo.
  9. @RafaelseginforBoa noite. poderia mandar prints de algumas telas que você elaborou?
  10. @SandroAlvesDFBoa noite. Caso esteja familiarizado com o Excel pode fazer isso usando apenas uma formulá "SE" que no access é chamada como IFF. Fonte: https://support.office.com/pt-br/article/função-iif-32436ecf-c629-48a3-9900-647539c764e3 Caso não responde para melhor ajudar você no aguardo.
  11. @Anselmo lima Boa noite. É dessa maneira?
  12. @df_87Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?
  13. @Rodrigo MZ Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?
  14. @Anderson7991 Boa noite. Tenta mudar isso: shtDados.Cells(linha, "A").value = fotopasta
  15. @F4b1nh0 Boa noite. Teria com mandar um print para entender melhor?