[Resolvido]Erro na copia do arquivo

Tenho um comando que realiza a copia de um arquivo

Private Sub Comando0_Click()
DoCmd.Close acForm, "Frm_Image"
fMakeBackup (Me.strOrigem), (Me.strDestino)
End Sub

MODULO

Function fMakeBackup(wOrigem, wDestino) As Boolean

Dim strMsg As String
Dim tshFileOp As SHFILEOPSTRUCT
Dim lngRet As Long
Dim strSaveFile As String
Dim lngFlags As Long
Const cERR_USER_CANCEL = vbObjectError + 1
Const cERR_DB_EXCLUSIVE = vbObjectError + 2
On Local Error GoTo fMakeBackup_Err

If fDBExclusive = True Then err.Raise cERR_DB_EXCLUSIVE

strMsg = "Você tem certeza que quer fazer a cópia?"

If MsgBox(strMsg, vbQuestion + vbYesNo, "Confirme !") = vbNo Then err.Raise cERR_USER_CANCEL

lngFlags = FOF_SIMPLEPROGRESS Or _
FOF_FILESONLY Or _
FOF_RENAMEONCOLLISION

strSaveFile = CurrentDb.Name

With tshFileOp
.wFunc = FO_COPY
.hwnd = hWndAccessApp
.pFrom = wOrigem & vbNullChar
.pTo = wDestino & vbNullChar
.fFlags = lngFlags
End With
lngRet = apiSHFileOperation(tshFileOp)
fMakeBackup = (lngRet = 0)

fMakeBackup_End:
Exit Function
fMakeBackup_Err:
fMakeBackup = False
Select Case err.Number
Case cERR_USER_CANCEL:
'do nothing
Case cERR_DB_EXCLUSIVE:
MsgBox "The current database " & vbCrLf & CurrentDb.Name & vbCrLf & _
vbCrLf & "is opened exclusively. Please reopen in shared mode" & _
" and try again.", vbCritical + vbOKOnly, "Database copy failed"
Case Else:
strMsg = "Error Information..." & vbCrLf & vbCrLf
strMsg = strMsg & "Function: fMakeBackup" & vbCrLf
strMsg = strMsg & "Description: " & err.Description & vbCrLf
strMsg = strMsg & "Error #: " & Format$(err.Number) & vbCrLf
MsgBox strMsg, vbInformation, "fMakeBackup"
End Select
Resume fMakeBackup_EndEnd Function


Mas na hora que clico em copiar da erro no access
Detalhe do problema

Nome do Evento de Problema: APPCRASH
Nome do Aplicativo: MSACCESS.EXE
Versão do Aplicativo: 12.0.6535.5005
Carimbo de Data/Hora do Aplicativo: 4bf5c550
Nome do Módulo de Falhas: KERNELBASE.dll
Versão do Módulo de Falhas: 6.1.7600.16385
Carimbo de Data/Hora do Módulo de Falhas: 4a5bdbdf
Código de Exceção: c0000005
Deslocamento de Exceção: 0002f7cc
Versão do sistema operacional: 6.1.7600.2.0.0.256.1
Identificação da Localidade: 1046


Testei inclusive um modelo Copiar/Mover do nosso amigo Vieira..
Deu o mesmo erro

Que tal retirar o Me.?

fMakeBackup (strOrigem), (strDestino)

A Aplicação Crash, caput na hora de realizar a cópia.

Caput?????? o que siginifica isso?

Sabe aquele aplicativo seu Vieira.. Copiar/Mover, voce havia me enviado logo que entrei no forum...
Deu o mesmo erro.. uma vez...
entei outra vez e copiou

Caput significa crash,pronto. Estava a tentar dizer que alguma coisa de anormal estava a passar-se, para dar erro com os 2.

Amigão.. Deu o erro.. apareceu a tela de solucao on-line...
Deixei prosseguir a busca pela solucao on-line
Ele salvou uma cópia ...

Retirei os ME como o criquio aconselhou...

Abri novamente o aplictivo e funcionou...

Agora so nao posso dizer se foi pelo me ou se pela solucao on-line do acces...

Agora esta Ok

Grato

É que você estava usando o Me. em variáveis, não era isso? O Me. é usado para referenciar controles dentro de um formulário ou referenciar o próprio formulário. O Me. é muito útil quando, por exemplo, temos um campo de nome Usuário dentro de um formulário e tiver tambem um campo com mesmo nome na tabela referenciado dentro desse formulário. Usando o Me.Usuário, o Access conseguirá diferenciar que você está se referindo ao campo que está dentro do formulário e não ao campo da tabela.

Em realidade amigão, o me ali se referia a campo no form.. StrOrigem e strDestino são campos do form onde armazeno os caminhos...

Esse codigo eu retirei de um exemplo ja consagrado.. na net..

realmente nao sei o motivo do erro.

Pode ate ter sido algo no access mesmo. pois testei um exemplo diferente do vieria e deu o memso erro..

Vai saber..
Misterios do Access..

Obrigado

O que interessa é que resolveu. Abraço.