adicionando imagem

[coldcase 0]

vlw luiz, você eh 10!

 

mas ae, erro:

 

Compile error:

Sub or Function not defined

 

Private Sub Command13_Click()

CommonDialog1.InitDir = App.Path

' CommonDialog1.DefaultExt = "Figuras (*.jpg) | *.jpg")

CommonDialog1.ShowOpen

 

If CommonDialog1.FileName <> "" Then

MsgBox ("Escolha um nome para a foto")

 

 

'sendo a commondialog1 onde o usuário qual arquivo será copiado

extensao = Right(CommonDialog1.FileName, Len(CommonDialog1.FileName) - strrev(CommonDialog1.FileName, ".") + 1)

nome_do_arquivo_de_destino = "\\Ainfo_banco\BANCO_DPL\SistemaDPLver.Beta\vistorias\" & Day(Date) & Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) & "." & extensao

FileCopy CommonDialog1.FileName, nome_do_arquivo_de_destino

'salva no bd como caminho do arquivo final a variavel nome_do_arquivo_de_destino

 

End If

End Sub

o erro eu deixei sublinhado.

[Luizgrs 0]

Opa,É Instrrev e não strrev ^^Vou concertar o post lá.