Dosya Yolu

[ahmedummu]

Merhaba arkadaşlar

Commandbutton yardımı ile aşağıdaki kod ile userform üzerindeki image1'e resim geliyor. Fakat resmi Tekxbox1'de yazılı olan isim ile aşağıdaki kodda ki resimler klasörüne kopyalaması gerekiyor.

resimyolu = ThisWorkbook.Path \ resimler & "\"

resimyolu = ThisWorkbook.Path & "\" BU HALİ İLE SORUN YOK ÇALIŞIYOR ama resmi resimler klasörüne değilde çalışma sayfasının olduğu klasörün içine kopyalıyor.

Aşağıya Commandbutton içindeki kodların hepsini kopyalıyorum.

On Local Error Resume Next
Dim deger As Long
deger = Image1.Picture
If deger > 0 Then
MsgBox (TextBox1.Value & "'nin resmi zaten eklenmiş"), 56, "Resim Ekle"
Exit Sub
End If

Dim Pencere As FileDialog, resim As String
Set Pencere = Application.FileDialog(msoFileDialogFilePicker)
With Pencere
.Filters.Clear
.Filters.Add "Resim Dosyaları", "*.bmp; *.jpg; *.jpeg; *.wmf", 1
If .Show = -1 Then
For Each p In .SelectedItems
resimyolu = ThisWorkbook.Path \ resimler & "\"
resimadı = TextBox1.Text
VBA.FileSystem.FileCopy p, resimyolu & resimadı & "." & "jpg"
Image1.Picture = LoadPicture(resimyolu & resimadı & "." & "jpg")
Next p
Else
MsgBox "Resim seçmediniz.   ", vbInformation, "Resim Seç"
End If
End With
resim = vbNullString
p = vbNullString
Set Pencere = Nothing

Yani resimler adlı klasör olmazsa çalışma dosyasının olduğu klasörün içine resmi Textbox1'in değerine göre isimlendirip oraya kopyalıyor. Kişiyi çağırdığımızda resmide geliyor. Bir sorun olmadan çalışıyor. Benim yapmak istediğim Çalışma dosyasının bulunduğu klasörün içindeki resimler dosyasına kopyalaması. Yardımcı olursanız sevinirim.

 

[Haluk]

Merhaba;

resimyolu = ThisWorkbook.Path \ resimler & "\"

yerine,

resimyolu = ThisWorkbook.Path & "\" & resimler & "\"

dener misiniz?

 

[ahmedummu]

Haluk bey ilginize teşekkür ederim. Ama yine çalışma sayfasının bulunduğu klasörün içine kopyalıyor.

 

[Orion1]

Deneyiniz.

resimyolu = ThisWorkbook.Path & "\resimler\"

 

[ahmedummu]

Çalıştı Haluk bey. Çok teşekkür ederim.

 

[Haluk]

Herhalde Evren Beye teşekkür ettiniz. Ben "resimler" ifadesini tanımlanmış bir değişken sanmıştım.

 

[ahmedummu]

Birşey daha sormak istiyorum.

Verilerimi Access'e kaydediyorum. Örneğin personelin hafta içindeki boş günü girilmesi gerekiyor. Boş günü olmayanların, verinin girildiği textbox'u boş bırakıyorum ve kaydediyorum. Kaydederken bir sorun çıkmıyor ama kişinin bilgilerini textboxlara alırken Access'in boş olan alanlarında "İnvalid use of null" diye hata veriyor. Yardımcı olursanız sevinirim.

 

[ahmedummu]

Evet yeni gördüm cevabınızı, adı yazmıyor ama "Orion1" isimli kişi cevap vermiş. Orion1 size ve yardımcı olan herkese teşekkür ederim.

 

[Orion1]

Evet yeni gördüm cevabınızı, adı yazmıyor ama "Orion1" isimli kişi cevap vermiş. Orion1 size ve yardımcı olan herkese teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[Orion1]

kaydederken boş textbox boş ise ve alan metin ise tire işareti olarak kaydedin.

 

[ahmedummu]

Teşekkürler Çalışıyor.

 

[Orion1]

Teşekkürler Çalışıyor.

Rica ederim . İyi çalışmalar.