Skip to main content

AccessTr.neT


vba save as dialog box

vba save as dialog box

Çözüldü #1
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
Çözüldü #2
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.
.rar resimdeneme.rar (Dosya Boyutu: 137,77 KB | İndirme Sayısı: 18)
Cevapla
Çözüldü #3
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
Çözüldü #4
2. mesajdaki örneği yeniledim.
Cevapla
Çözüldü #5
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.
.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
Çözüldü #6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task