MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

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

    avatar
    arivaldo
    Intermediário
    Intermediário

    Respeito às regras : 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 Empty Botão para localizar arquivos de imagens jpg ou videos mp4

    Mensagem  arivaldo 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
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

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

    Mensagem  crysostomo 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: 13/6/2021, 00:18