vba save as dialog box
Tarih
18/08/2010 01:46
Konu Sahibi
vetaltan
Yorumlar
12
Okunma
3050
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Arkadaşlar
hazırlamış olduğum programda bilgisayar içinde herhangi bir klasöre daha önce kaydedilmiş, *.jpg formatında olan resimlerden birini seçerek ona otomatik isim vererek istediğim herhangi bir klasöre ?.bmp formatına çevirerek kaydetmek istiyorum.
forumlardan okuduğum kadarıyla save as dialoguyla yapılabiliyor.

bu konuda bilgisi olan yardımcı olabilecek biri varmı acaba

not;filecopy yöntemiyle resmin ismini değiştirebildim ancak uzantısını değiştiremedim.
aşağıdaki kodlarla uzantıları değiştiremedim
uzantılar aynı kalırsa çalışıyor ama bmp yerine jpg yazdığım zaman bozuluyor,kayıt yapıyor ancak *.jpg.bmp şeklinde kaydediyor
Private Sub RESIM_DblClick(Cancel As Integer)



Dim ekocan As String
Dim altan As String
Dim bute As String
Dim help
Dim r

altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
help = "help.file" '?
If RESIM.Picture = StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".BMP" Then


ekocan = "C:\Program Files\IrfanView\i_view32.exe " & StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".BMP"
Call Shell(ekocan, 1)
Exit Sub
Else

r = MsgBox("Çalışan Resmi Kayıtlarımızda Bulunmamaktadır" & Chr(13) & "Eklemek İstermisiniz!", 32 + vbYesNo, "Access Bilgilendirme!")


If r = vbYes Then

Dim Kaynak, Hedef
Kaynak = GetOpenFile_CLT("C:\", "Access-Resim Seçiniz...")

Hedef = StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".jpg" 'burada jpg yapmaya izin vermiyor,
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.Requery
End If


End If

End If
End Sub

***yöntemiyle başaramadım****



vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.030
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:35
Çözüldü 
Bu saatte doğrumu anladım bilmiyorum ama,

ekteki örnek seçtiğin jpg uzantılı resmi uygulama ile aynı dizindeki resim klasörüne gif formatında kaydeder.

uygulama coskun_cakal'ın bir sorunusan verdiğim cevaptaki örneğin düzenlenmiş halidir.


Ek Dosyalar
.rar   resimdeneme.rar (Dosya Boyutu: 137,77 KB / İndirme Sayısı: 18)
Cevapla


vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Sn.sledgeab

Forumdan bahsettiğiniz resimdene .rar'ı daha önce bulup denemek istemiştim ama ne yazıkki benim Access versiyonum 2000 olduğu için açamamıştım.Bu nedenle tekrar foruma yazdım.Sanırım resimdene.rar ofis 2010 versiyonu ,2010 bulup programı açmaya çalışacağım.
İlginize teşekkürler
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.030
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:35
Çözüldü 
2. mesajdaki örneği yeniledim.
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.978
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,17:57
Çözüldü 
Dosyanın içinden çıkan IrfanView programını masaüstü vs. bir konuma kurun. Daha sonra programın tam adresini Access Vba Editörü içinde Form kodlarında en üst taraftaki değişken içeriği ile değiştirin. Aynı zamanda RAR dosyasının içinde yer alan resimler klasörünüde istediğiniz bir konuma kopyalayıp tam adresini az önceki yerin altındaki Temppic değişkenlerine yapıştırın.


Ek Dosyalar
.rar   Resim_Formatini_Degistir.rar (Dosya Boyutu: 1,69 MB / İndirme Sayısı: 20)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.978
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,17:57
Çözüldü 
Sayın vetaltan konu hakkında geri dönüşünüzü bekliyoruz. Lütfen açtığınız konuyu takip ediniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya