- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Resim urlsini kaydedebiliyorum ama güncelle dediğimde sayfaya resim gelmiyor yardımcı olursanız çok dua ederim....
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Resim Getirme
- Konbuyu başlatan aslanemin20
- Başlangıç tarihi
- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Arkadaş Şu forumda yardım edebilecek bir Allahın kulu yok mu?
- Katılım
- 11 Mart 2005
- Mesajlar
- 3,202
- Excel Vers. ve Dili
- Office 2013 İngilizce
PersonelGüncelle prosedürüne aşağıdaki kodları ekler misiniz
Kod:
.......................
........................................
Dosya = ""
Dosya = frmpersonel.txtresim.Value
If Dosya = "" Then Exit Sub
frmpersonel.img.Picture = LoadPicture(Dosya)
frmpersonel.Show- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Çok Teşekkür ederim Allah Sizden Razı Olsun.....
- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Denedim ama olmadı excel olarak yollayabilir Deniz valla çok dua ederim size. Uzun süredir resim eklemeyi araştiriyorum bir türlü yapamadım
- Katılım
- 11 Mart 2005
- Mesajlar
- 3,202
- Excel Vers. ve Dili
- Office 2013 İngilizce
Bende gayet güzel çalışıyor,
Kod:
Sub PersonelGüncelle()
frmpersonel.TxtDosyano.Value = Lstpersonel.List(Lstpersonel.ListIndex, 0)
frmpersonel.TxtSicilno.Value = Lstpersonel.List(Lstpersonel.ListIndex, 1)
frmpersonel.TxtTc.Value = Lstpersonel.List(Lstpersonel.ListIndex, 2)
frmpersonel.TxtAdı.Value = Lstpersonel.List(Lstpersonel.ListIndex, 3)
frmpersonel.CmbÜnvanı.Value = Lstpersonel.List(Lstpersonel.ListIndex, 4)
frmpersonel.CmbGörev.Value = Lstpersonel.List(Lstpersonel.ListIndex, 5)
frmpersonel.DTBurada.Value = Lstpersonel.List(Lstpersonel.ListIndex, 6)
frmpersonel.TxtAdres.Value = Lstpersonel.List(Lstpersonel.ListIndex, 7)
frmpersonel.TxtEvtel.Value = Lstpersonel.List(Lstpersonel.ListIndex, 8)
frmpersonel.TxtCeptel.Value = Lstpersonel.List(Lstpersonel.ListIndex, 9)
frmpersonel.TxtKan.Value = Lstpersonel.List(Lstpersonel.ListIndex, 10)
frmpersonel.TxtPersonel.Value = Lstpersonel.List(Lstpersonel.ListIndex, 11)
frmpersonel.Txtİban.Value = Lstpersonel.List(Lstpersonel.ListIndex, 12)
frmpersonel.dtilk.Value = Lstpersonel.List(Lstpersonel.ListIndex, 13)
frmpersonel.TxtGecenYil.Value = Lstpersonel.List(Lstpersonel.ListIndex, 14)
frmpersonel.TxtBuyil.Value = Lstpersonel.List(Lstpersonel.ListIndex, 15)
frmpersonel.TxtKullandığı.Value = Lstpersonel.List(Lstpersonel.ListIndex, 16)
frmpersonel.Txtkalan.Value = Lstpersonel.List(Lstpersonel.ListIndex, 17)
frmpersonel.txtresim.Value = Lstpersonel.List(Lstpersonel.ListIndex, 18)
Dosya = ""
Dosya = frmpersonel.txtresim.Value
If Dosya = "" Then Exit Sub
frmpersonel.img.Picture = LoadPicture(Dosya)
frmpersonel.Show
End Sub- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Çok Teşekkür ederim emeğinize sağlık tek sıkıntı resimi 90 derece yan olarak getiriyor... Bunu çözmenin bir yolu var mı?
- Katılım
- 8 Ocak 2023
- Mesajlar
- 10
- Excel Vers. ve Dili
- Türkçe
Sayenizde biz de bir şeyler öğreniyoruz? Allah Razı Olsun!!!