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 |