MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Botão para localizar arquivos de imagens jpg ou videos mp4

    Compartilhe
    avatar
    arivaldo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 20/12/2013

    Botão para localizar arquivos de imagens jpg ou videos mp4

    Mensagem  arivaldo em 24/6/2018, 15:26

    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"
    crysostomo
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 457
    Registrado : 23/01/2018

    Re: Botão para localizar arquivos de imagens jpg ou videos mp4

    Mensagem  crysostomo em 20/2/2019, 02:10

    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

      Data/hora atual: 23/3/2019, 13:30