sabemos que para anexar os arquivos podemos usar os botões do access "icone parecido com clipe" - gostaria de substituir estes controles, quero criar um botão para inserir os anexos, quero tambem, limitar o numero de anexos por registro para "1"
2 participantes
Botão para localizar arquivos de imagens jpg ou videos mp4
arivaldo- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 57
Registrado : 20/12/2013
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
nesse codigo ele ja é limitado por uma foto, caso queira mais foto é so colocar mais controle de imagem
- Código:
rivate Sub inserirfotos_Click()
Dim s As String
s = OpenCommDlg()
If s <> "" Then
foto = s
foto_AfterUpdate
End If
End Sub
Private Sub Form_Current()
foto_AfterUpdate
End Sub
Private Sub foto_AfterUpdate()
Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub
» Ajuda para apagar os arquivos salvos na galeria de imagens do access
» Pesquisar texto contido em arquivos do word, podendo selecionar varios arquivos para pesquisa
» VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados
» Pesquisar texto contido em arquivos do word, podendo selecionar varios arquivos para pesquisa.
» Um template parecido com aqueles gerados para os arquivos de help, arquivos chm
» Pesquisar texto contido em arquivos do word, podendo selecionar varios arquivos para pesquisa
» VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados
» Pesquisar texto contido em arquivos do word, podendo selecionar varios arquivos para pesquisa.
» Um template parecido com aqueles gerados para os arquivos de help, arquivos chm