Skip to main content

Linha do tempo de Função upload multi attchements

Licença atual: CC BY-SA 3.0

13 eventos
quando alternar formato o que por licença comentário
3/07/2015 às 16:21 comentário adicionado Frederico Oliveira (pt.stackoverflow.com/questions/72684/…)
3/07/2015 às 16:01 comentário adicionado Lucio Rubens Faça um tour para entender como o StackOverflow funciona. Mas para aceitar basta clicar no ícone ao lado da resposta
3/07/2015 às 15:40 comentário adicionado Frederico Oliveira Como faço para "aceitar a resposta"?
3/07/2015 às 15:37 comentário adicionado Lucio Rubens E por favor, marca como "aceito" a resposta, para ajudar outros usuários com o mesmo problema!
3/07/2015 às 15:37 comentário adicionado Lucio Rubens O ideal é você criar uma nova pergunta, postando seu código atual.. Pois a dúvida dessa pergunta foi sobre o erro no objeto. @FredericoOliveira
3/07/2015 às 15:35 comentário adicionado Frederico Oliveira Será que me pode ajudar a fazer com que esta função suporte multi selecção e carregar até 8 anexos com a mesma função. Falta apenas esse pequeno pormenor para estar resolvida a minha questão.
3/07/2015 às 15:33 comentário adicionado Frederico Oliveira Este é o resto do codigo 'CODIGO DE COLOCAÇÃO DE ANEXO EM FORMULÁRIO Selectfile = .SelectedItems(1) Me.Anexo412.DefaultPicture = Selectfile Else MsgBox "Clicou no botão cancelar ao escolher imagem." Exit Function End If Set Fd = Nothing End With End Function
3/07/2015 às 15:32 comentário adicionado Frederico Oliveira @ Lúcio Rubens 'FILE DIALOG OPENS UPLOAD PANEL Private Sub Comando715_Click() Call Selectfile End Sub 'FUNÇÃO CAIXA DE SELEÇÃO Public Function Selectfile() As String Dim Fd As FileDialog Dim Filtro As FileDialogFilters Set Fd = Application.FileDialog(msoFileDialogOpen) With Fd 'FILTRO DE IMAGENS Set Filtro = .Filters With Filtro .Clear .Add "Imagens", ".jpeg;.jpg" End With 'NÃO PERMITIR MULTI-SELEÇÃO .AllowMultiSelect = False 'DEFINE O NOME DA CAIXA DE SELEÇÃO .Title = " Por favor introduza as fotos da peça" If .Show = True Then
3/07/2015 às 15:29 comentário adicionado Frederico Oliveira Obrigado já esta exportar para o campo definido. O codigo actual é:
3/07/2015 às 15:17 comentário adicionado Lucio Rubens Você precisa adicionar o anexo selecionado a alguma propriedade do obejto Anexo412. Lista completa de propriedades aqui. Provavelmente é a FilelName. Ficaria assim: Me.Anexo412.FileName = Selectfile
3/07/2015 às 14:36 comentário adicionado Frederico Oliveira O ficheiro que estou a tentar carregar no Anexo412 é um ficheiro .jpeg, como posso restringir o tipo de ficheiros que posso seleccionar, para não seleccione ficheiros de tipos que sejam indevidos?
3/07/2015 às 14:31 comentário adicionado Frederico Oliveira Resolveu esse problemas contudo aparece um outro erro que passo a colocar cá. Me.Anexo412 = Selectfile O erro especificado é: Erro em tempo de execuçã '438': O objeto não aceita esta propriedade ou método
3/07/2015 às 13:31 histórico respondeu Lucio Rubens CC BY-SA 3.0