AccessTr.neT

Tam Versiyon: vba save as dialog box
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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****



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.
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
2. mesajdaki örneği yeniledim.
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.
Sayın vetaltan konu hakkında geri dönüşünüzü bekliyoruz. Lütfen açtığınız konuyu takip ediniz.
Sayfalar: 1 2 3