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


    [Resolvido]Não está jogando foto para a pasta

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 1/2/2021, 13:57

    Bom dia colegas .
     meu sistema parou de jogar foto para a pasta mudei de versão , é alguma referencia do OpenCommDlg


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 9/2/2021, 22:09

    preciso de ajuda nesse objetivo
    Código:

    #Marcelo Davi
    On Err
    or Resume Next
      Dim strArquivo
      Dim SourceFile, DestinationFile
      strArquivo = Me.NOME_ & "--" & Me.congregacao & ".jpg"
      SourceFile = Me.Foto1 ' Define source file name.
      DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo ' aqui coloca o nome da pasta de destino, current project e a pasta raiz do sistema.
      FileCopy SourceFile, DestinationFile ' Copy source to target.
    End Sub

    Private Sub inserirfotos_Click()
     ListrArquivo2 = Me.NOME_ & ".jpg"
     strFoto = CurrentProject.Path & "\Fotos\" & strArquivo2 ' Define target file name.
     Dim s As String

    If IsNull(Me.NOME_) = True Then
        MsgBox "Para colocar a foto é necessário o nome do membro.", vbInformation, "Atenção"
        Me.NOME_.SetFocus
        Me.NOME_.BackColor = 646464

    ElseIf IsNull(Me.congregacao) = True Then
       MsgBox "É Obrigatório colocar a congregação do membro.", vbInformation, "Atenção"
        Me.congregacao.SetFocus
        Me.congregacao.BackColor = 646464
     
    Else
    s = OpenCommDlg()
    If s <> "" Then
        Foto1 = s
        Call CopiarFoto
        Foto1_AfterUpdate
            DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo

     End If
     End If
    End Sub

    Private Sub Form_Current()
        Foto1_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
     campoDaFoto.Picture = s
     If err.Number <> 0 Then campoDaFoto.Picture = ""
    On Error GoTo 0
    End Sub

    Ele sempre fala que não existe esse esse membro , sendo que existe


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4740
    Registrado : 20/04/2011

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  Silvio 10/2/2021, 11:50

    Boas...só por curiosidade...

    Checou as referências da antiga versão com a nova versão ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 10/2/2021, 13:21

    Bom dia silvo, 
    Cheguei todos as classes e módulos e referencia  , esta tudo ok


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4445
    Registrado : 06/11/2009

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  Assis 10/2/2021, 14:01

    Boa tarde

    Veja a imagem que anexo:

    [Resolvido]Não está jogando foto para a pasta Sem_t173


    .................................................................................
    *** Só sei que nada sei ***
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 10/2/2021, 16:27

    Boa tarde Assis consertei essa parte, vlw , o outro problema é que exibi a mensagem do txt_nome não existe, mas existe sim.
     já uso ela e refatorei em outros projetos e tudo funcionam nesse não. o membro (txt_nome) tem no corpo da linha do codigo.
    mesmo tirando esse linha ele não joga a foto na pasta
    como você viu na figura eu mudei o NOME_  para txt_nome  só para dar mais clareza


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 10/2/2021, 17:30

    outro tipo de problema além de não copiar a foto e jogar para a pasta insere a foto de lado e seu eu tirar o sistema do disco C a parte de inserir a foto não funciona , mas se eu levar ela para o disco ela funciona.
    meu deus , o que que eu fiz nesse projeto


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  crysostomo 12/2/2021, 20:04

    Coloco como resolvido pois o sistema para jogar foro na pasta tem que está no disco C.
    Já adaptei ele já faz anos e não sabia que era só na raiz que a parte funciona.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4445
    Registrado : 06/11/2009

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  Assis 12/2/2021, 20:33

    Boa noite

    Para estudar

    Senha = 123456
    Anexos
    [Resolvido]Não está jogando foto para a pasta AttachmentCadastroDeDados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 11 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    crysostomo gosta desta mensagem


    Conteúdo patrocinado

    [Resolvido]Não está jogando foto para a pasta Empty Re: [Resolvido]Não está jogando foto para a pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 14:24