+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Forma Resim Ekleme, Kopyalama ve Arşivleme (/konu-forma-resim-ekleme-kopyalama-ve-arsivleme.html)
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - vetaltan - 15/06/2010
ercan hocam
ellerinize sağlık,yapmış olduğunuz program çok işime yaradı.
size bir sorum olacak;
programınızda sadece jpg formatında resimler jpg olarak resim klasörü içine kaydediliyor.Acaba jpg,ico vb formatta olan resimleri bmp formatına değiştirerek kaydedebilirmiyiz.
ben acemice sizin kodlarınızda aşağıdaki değişikleri yaptım.tabiki çalışmadı
yardımcı olursanız sevinirim
Private Sub RESIM_DblClick(Cancel As Integer)
Dim ekocan As String
Dim altan As String
Dim bute As String
altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
help = "help.file" '?
If Resim.Picture = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP" Then
ekocan = "C:\Program Files\IrfanView\i_view32.exe " & StrReverse(bute) & "VETPRO08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP"
Call Shell(ekocan, 1)
Exit Sub
Else
Dim r
r = MsgBox("Hastamızın Resmi Kayıtlarımızda Bulunmamaktadır!", 32 + vbYesNo, "VetPro08 Bilgilendirme!")
If r = vbYes Then
Dim Kaynak, Hedef
Kaynak = GetOpenFile_CLT("C:\", "VetPro08-Resim Seçiniz...")
Hedef = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".bmp"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.Requery
End If
End If
End If
End Sub
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - vetaltan - 16/06/2010
değerli arkadaşlar,
mde formatında jpg resimleri form üzerinde gösteremediğim için önceki mesajda yazdığım gibi jpg yada diğer formattaki resimlerimi forma kod kullanarak bmp formatında nasıl ekleyebilirim.
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - ercansahin - 16/06/2010
Uygulamanın kodlarında yazılı *.jpg yazılı olan yerleri *.bmp ile değiştiriniz. Ancak bu durumda seçeceğiniz resimlerin bmp uzantılı olmasına dikkat etmeniz gerekecektir.
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - vetaltan - 16/06/2010
teşekkür ederim,ancak benim istediğim;seçtiğim resimlerin bmp formatı olmaması durumunda bmp olarak nasıl kaydedebilirim.
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - ozturk03 - 22/06/2010
faydalı bir paylaşım,teşekkürler.kolay gelsin
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - uzunlarbilisim - 20/11/2010
Harika