Alyson Ronnan Martins

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

@Ana.Paula manda somente a parte que não esta funcionando como deveria

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

Tem como manda um print ou a planilha para analisar?

@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.

@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.

@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.

@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.

@RafaelseginforBoa noite. poderia mandar prints de algumas telas que você elaborou?

@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.

@Anselmo lima Boa noite. É dessa maneira?

@df_87Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?

@Rodrigo MZ Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?

@Anderson7991 Boa noite. Tenta mudar isso: shtDados.Cells(linha, "A").value = fotopasta

@F4b1nh0 Boa noite. Teria com mandar um print para entender melhor?