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


2 participantes

    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    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: 22/11/2024, 07:01