vba save as dialog box - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: vba save as dialog box (/konu-vba-save-as-dialog-box.html) |
vba save as dialog box - vetaltan - 18/08/2010 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**** Cvp: vba save as dialog box - ozanakkaya - 18/08/2010 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. Cvp: vba save as dialog box - vetaltan - 18/08/2010 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 Cvp: vba save as dialog box - ozanakkaya - 18/08/2010 2. mesajdaki örneği yeniledim. Cvp: vba save as dialog box - alpeki99 - 18/08/2010 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. Cvp: vba save as dialog box - alpeki99 - 19/08/2010 Sayın vetaltan konu hakkında geri dönüşünüzü bekliyoruz. Lütfen açtığınız konuyu takip ediniz. |