Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Personel Formundan Arşiv formuna resim göndermek.

fascioğlu
fascioğlu
Access Cevaplanmış Soruları
15
3927

Personel Formundan Arşiv formuna resim göndermek.

#7
fascioğlu
(yunusotel)
fascioğlu
Bul
Aktif Üye*
Adı Soyadı: Fa.... Aş....
Yaşı: 69
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 18/05/2022,17:45
Yorumları: 1.016
Konuları: 203
Kayıt Tarihi: 18/09/2010
Teşekkür Puanı: 176
Mesleğiniz: Emekli_Turizm
Sayın Yorum70
İlginiz için teşekkür ederim,Örneğiniz inceleyeceğim.Ayrıca resimlerin depolandığı yer hakkında bilgilendirirseniz memnun olurum.
NotLolikkat ederseniz adım Fescioğlu değil Fascioğlu.
Saygılarımla.
Son Düzenleme: 09/10/2015, 23:36, Düzenleyen: fascioğlu.
Cevapla
#8
yorum70
Aktif Üye
yorum70
Bul
Aktif Üye*
Adı Soyadı: Ay.... Şa....
Yaşı: 53
Konum: Adıyaman
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2020,16:00
Yorumları: 1.253
Konuları: 157
Kayıt Tarihi: 08/10/2010
Teşekkür Puanı: 71
Mesleğiniz: Kamu
Program bir klasörde olsun, içinde ise resim adında bir klasör eklerseniz, programa eklediğiniz resimler bu klasörde tutulur.

Benim konuda; Frm_Personel de ATAMASI YAPILAN butonuna bastığınızda aktif personeli Frm_tayinolanpersonel formuna resmiyle birlikte atacaktır. Bunun için Frm_Personelde ki resimle ilgili çerçeve, resim metin kutusunın aynı ve frm_personeldeki geçerli olduğunda kodları frm_tayinolanpersonel formunda da olmalı. Sizde ki Frm_PERSONELARŞİV gibi.Mantık aynı.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#9
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 54
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
sayın fascioglu,

her ne kadar sayın yorum70 bey tarafından paylaşımda bulunmuş olsalar da (bu arada,kendilerine katkılarından ve katılımcı olmalarından dolayı teşekkürler),

Alıntı:Sayın Atoz112,

Hocam cevabınızda yazdığınız gibi Resimcercevesi adlı denetimin Denetim kaynağını ben bulamadım,ve dediğinizide gerçekleştriremedim,
Saygılarımla.

ifadenize yönelik olarak,sanırım;
frm_PERSONELARSİV adlı formun Tasarım halinde iken olacak şekilde ilgili resim çerçevesi denetiminin ÖZELLİKLER sekmelerini gösteren ekran görüntüsünü eklemeniz faydalı olacaktır,gerekli bilgilendirmelerin yapılabilmesi adına.

çünkü;eklediğiniz örnek çalışmada dahi bu ÖZELLİKLER-VERİ sekmesine ulaşım söz konusu olabilmektedir.nasıl bir durumun mevcut olduğunu anlayabilmek adına bu görseli dahil etmeniz yerinde olacaktır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#10
fascioğlu
(yunusotel)
fascioğlu
Bul
Aktif Üye*
Adı Soyadı: Fa.... Aş....
Yaşı: 69
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 18/05/2022,17:45
Yorumları: 1.016
Konuları: 203
Kayıt Tarihi: 18/09/2010
Teşekkür Puanı: 176
Mesleğiniz: Emekli_Turizm
Sayın Atoz112 hocam,

İstediğiniz ekran görüntüsü ektedir.
Saygılarımla.

[Resim: do.php?img=5108]
Cevapla
#11
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 54
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
sayın fascioglu,

resim çerçevelerinde resimleri göstermek için,ilk etapta bir çözüm olması adına,aşağıdaki işlemleri uygulayınız.

frm_PERSONELARSİV adlı formunuzdaki Arsiv_Personel_List adlı listenin Güncelleştirme SOnrasında olay yordamındaki kod satırlarının bitimine

Kod:
Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONELARSİV", "[PERSID]=" & Me.MKSiraNo)
kod satırını ilave ediniz.ilgili olay yordamı aşağıdaki gibi olmalı.

Kod:
Private Sub Arsiv_Personel_List_AfterUpdate()
' Denetime uyan kaydı bul.
    Dim rs As Object




    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PERSID] = " & Str(Nz(Me![Arsiv_Personel_List], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONELARSİV", "[PERSID]=" & Me.MKSiraNo)
End Sub
aynı işlemi,frm_PERSONEL adlı formunuzdaki personel_List adlı listenin Güncelleştirme Sonrasında olay yordamı için de uygulayınız.bu olay yordamı da aşağıdaki gibi olmalı.

Kod:
Private Sub personel_List_AfterUpdate()
' Denetime uyan kaydı bul.
    Dim rs As Object




    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PERSID] = " & Str(Nz(Me![personel_List], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark




Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.MKSiraNo)
End Sub
bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#12
fascioğlu
(yunusotel)
fascioğlu
Bul
Aktif Üye*
Adı Soyadı: Fa.... Aş....
Yaşı: 69
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 18/05/2022,17:45
Yorumları: 1.016
Konuları: 203
Kayıt Tarihi: 18/09/2010
Teşekkür Puanı: 176
Mesleğiniz: Emekli_Turizm
Sayın Hocam,
Cevabınız için çok teşekkür ederim,Resim gönderme alma işleminde sıkıntı yok,
Ancak;
Arşive gönderirkenve Arşivden geri getirirken Me.Requery,Me.Refresh kod hatası veriyor,ayrıca Arşive gönderirken PERSONEL Formunda aynen kalıyor Formu kapatıp tekrar açınca gönderme eylemi gerçekleşiyor.Yine Arşive gönderirken Personel Formunda kişiyi Çalışmıyor olarak işaretliyoruz ancak Arşiv formuna Çalışıyor olarak gelmesi sorunlar hakkında bilgi ve düşüncelereinize ihtiyacım var.
Saygılarımla.
İyi çalışmalar.
Son Düzenleme: 10/10/2015, 18:58, Düzenleyen: fascioğlu.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task