Bom dia.
Tenho um código que baixei daqui do fórum e apresenta o seguinte erro: ao copiar o nome do arquivo para a pasta aparece o erro do próprio Access para depurar quando o nome do arquivo aparece com símbolos (*/?!).
É um banco de dados de cadastro de CDs de músicas e cada título é o nome do arquivo da foto e sempre aparece símbolos como os citados acima.
Na verdade é uma mensagem importante que deveria ser incorporada ao código para abrir arquivo.
Tentei criar a mensagem própria mas deu erro.
Segue o código original.
Private Sub btInsere_Click()
'By ToPBr 2010
'Adicionar foto a registro e copiar arquivo de foto para pasta do bd
If IsNull(Me.Titulo) = True Then
MsgBox "Para inserir a foto será necessário informar o nome do título", vbInformation, "Aviso"
DoCmd.CancelEvent
Me.Titulo.SetFocus
Else
Dim strCaminho As String, strPastaInicial As String
Dim CopiaSegura As Object
Dim Caminho As String
Dim fso As Object
Dim cam As String
strPastaInicial = "C:\Documents and Settings\Juliano\Meus documentos\Banco de CDS\LocalFotos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
cam = CurrentProject.Path & "\CopiaFotos\" ' Caminho do bd mais a pasta fotos
' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, cam & Me.Codigo.Value & Me.Titulo.Value & ".jpg"
Me.LocalFotos = cam & Me.Codigo.Value & Me.Titulo.Value & ".jpg"
Me.img.Picture = Me.LocalFotos
End If
End If ' fim do if que verifica campos Título e Codigo
End Sub
Em vermelho indica o bloco de cópia do arquivo para a pasta.
Uso o Access 2007
Obrigado!
Tenho um código que baixei daqui do fórum e apresenta o seguinte erro: ao copiar o nome do arquivo para a pasta aparece o erro do próprio Access para depurar quando o nome do arquivo aparece com símbolos (*/?!).
É um banco de dados de cadastro de CDs de músicas e cada título é o nome do arquivo da foto e sempre aparece símbolos como os citados acima.
Na verdade é uma mensagem importante que deveria ser incorporada ao código para abrir arquivo.
Tentei criar a mensagem própria mas deu erro.
Segue o código original.
Private Sub btInsere_Click()
'By ToPBr 2010
'Adicionar foto a registro e copiar arquivo de foto para pasta do bd
If IsNull(Me.Titulo) = True Then
MsgBox "Para inserir a foto será necessário informar o nome do título", vbInformation, "Aviso"
DoCmd.CancelEvent
Me.Titulo.SetFocus
Else
Dim strCaminho As String, strPastaInicial As String
Dim CopiaSegura As Object
Dim Caminho As String
Dim fso As Object
Dim cam As String
strPastaInicial = "C:\Documents and Settings\Juliano\Meus documentos\Banco de CDS\LocalFotos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
cam = CurrentProject.Path & "\CopiaFotos\" ' Caminho do bd mais a pasta fotos
' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, cam & Me.Codigo.Value & Me.Titulo.Value & ".jpg"
Me.LocalFotos = cam & Me.Codigo.Value & Me.Titulo.Value & ".jpg"
Me.img.Picture = Me.LocalFotos
End If
End If ' fim do if que verifica campos Título e Codigo
End Sub
Em vermelho indica o bloco de cópia do arquivo para a pasta.
Uso o Access 2007
Obrigado!
Última edição por julianovv em 13/10/2016, 16:07, editado 2 vez(es)