Olá, amigos, estou fazendo um sisteminha em ACCESS, e estou com uma dúvida. Preciso selecionar uma imagem jpg, converter em bmp e inserir no campo tipo objeto ole da minha tabela.
Tentei o código abaixo, mas não sei qual o comando colocar para fazer isso:
Private Sub Selecionar_Click() Call BrowsingWindow End Sub
Sub BrowsingWindow()
Dim Dlg As FileDialog Dim txtFilePath As String Dim varFile As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker) With Dlg .Title = "Selecione uma imagem para salvar" .AllowMultiSelect = False If .Show = True Then
For Each varFile In .SelectedItems txtFilePath = varFile Next
'aqui preciso que a extensão da imagem selecionada seja renomeada de .jpg para .bmp e que seja inserida no campo IMG da tabela.
Else Exit Sub End If End With
End Sub
Editado por Edilson Santiago A pergunta não estava bem explicada
Pergunta
Edilson Santiago
Olá, amigos, estou fazendo um sisteminha em ACCESS, e estou com uma dúvida. Preciso selecionar uma imagem jpg, converter em bmp e inserir no campo tipo objeto ole da minha tabela.
Tentei o código abaixo, mas não sei qual o comando colocar para fazer isso:
Private Sub Selecionar_Click()
Editado por Edilson SantiagoCall BrowsingWindow
End Sub
Sub BrowsingWindow()
Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Selecione uma imagem para salvar"
.AllowMultiSelect = False
If .Show = True Then
For Each varFile In .SelectedItems
txtFilePath = varFile
Next
'aqui preciso que a extensão da imagem selecionada seja renomeada de .jpg para .bmp e que seja inserida no campo IMG da tabela.
Else
Exit Sub
End If
End With
End Sub
A pergunta não estava bem explicada
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.