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]Sub ou Function Não Definida

    avatar
    tuliomelo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/12/2012

    [Resolvido]Sub ou Function Não Definida Empty [Resolvido]Sub ou Function Não Definida

    Mensagem  tuliomelo 14/12/2012, 02:21

    Olá, estou fazendo um código para Selecionar uma imagem e está dando esse erro.Detalhe: No Access 2003 Funciona e no 2010 Não!

    Private Sub foto_DblClick(Cancel As Integer)
    On Error GoTo e

    Dim ArquivoOrigem As String
    Dim strPastaInicial As String
    Dim ArquivoDestino As String
    Dim PastaDestino As String
    Dim fs As Object

    ArquivoOrigem = buscar(Me.Hwnd, "Inserir imagem", strPastaInicial, _
    "Arquivos (*.jpg)" & vbNullChar & "*.jpg")


    If Len(ArquivoOrigem) > 0 Then

    PastaDestino = Me.[Logo_Formularios].[Form]![Foto] & "\DBNetwork\fotos\"

    'VERIFICANDO SE A PASTA TEMP EXISTE, SE NAO CRIA------------------------------
    If Dir(PastaDestino, vbDirectory) = "" Then
    MkDir PastaDestino
    End If
    '------------------------------------------------------------------------------

    ArquivoDestino = Me.[Logo_Formularios].[Form]![Foto] & "\DBNetwork\fotos\c" & Me.[ID_Cliente] & ".jpg"

    Set fs = CreateObject("Scripting.FileSystemObject")

    'Verificando se o arquivoja existee deleta
    If fs.FileExists(ArquivoDestino) Then
    fs.DeleteFile (ArquivoDestino)
    End If

    'Copiando arquivo para pasta das fotos
    fs.CopyFile ArquivoOrigem, ArquivoDestino

    Me.UsarFoto = True
    'DoCmd.RunMacro "Empresa.ProtegerCadConsumidor"

    End If

    Exit Sub

    e:
    If Err.Number <> 0 Then
    MsgBox Err.Description, vbCritical, "Erro"
    End If

    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Sub ou Function Não Definida Empty Re: [Resolvido]Sub ou Function Não Definida

    Mensagem  Convidado 14/12/2012, 02:34

    Boa noite Tulio, seja bem vindo ao Fórum.
    Verifique a função onde se encontra.... Se é publica ou privada, se está em um módulo ou no proprio form... Disponibilize a parte referente do BD para que possamos ver.

    Cumprimentos.
    avatar
    tuliomelo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/12/2012

    [Resolvido]Sub ou Function Não Definida Empty Re: [Resolvido]Sub ou Function Não Definida

    Mensagem  tuliomelo 14/12/2012, 02:39

    Obrigado Piloto!

    É Privada e está no Form.
    avatar
    Convidado
    Convidado


    [Resolvido]Sub ou Function Não Definida Empty Re: [Resolvido]Sub ou Function Não Definida

    Mensagem  Convidado 14/12/2012, 02:47

    Manda o BD para que possamos ver.

    Cumprimentos.


    Última edição por PILOTO em 11/2/2013, 11:08, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta (MODERAÇÃO))

    Conteúdo patrocinado


    [Resolvido]Sub ou Function Não Definida Empty Re: [Resolvido]Sub ou Function Não Definida

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:23