Kullanıcıya ait resim ekleme

1 2
12/12/2014, 14:02

polak_68

Merhaba

yapmaya çalıştığım bir projede personel bilgilerini girerken personele ait resmin resim yolunu da kayıt yaptırıyorum. yapmak istediği Parola girişi yapıldıktan sonra 
giriş yapan personelin resmi daha önce personel tablosunda resim satırana kayıt yapılmış ise o resmi aynı zamanda frmSearch formunda yer alan çerçeveye de getirsin istiyorum. yanı personel giriş yaparken personel tablosunda resim var ise frmSearch de görünsün ismi ve sicili ile birlikte
yardımcı olabilirsenz çok sevinirim
kullanıcı adı:1
şifre=1
12/12/2014, 20:34

atoz112

sayın polak_68,

incelenebilmesi için,uygulamanızı 2007 kullanımına da uygun olacak şekilde eklemek ister misiniz.teşekkürler.

elbette ki araştırmışsınızdır fakat yine de aşağıdaki bağlantıda yer alan konular içerisinde talebinize yönelik olarak bilgi ya da örnek içerecek konuların olması muhtemel.inceleyebilirsiniz.

Resim ekleme hakkında konular...

iyi çalışmalar,
saygılar.
13/12/2014, 00:09

polak_68

hocam cevabınıza teşekkür ederim ederim resım eklem konusunu cok araştırdım ve uygulamamda da kullandım. fakat programa sicili ile giriş yapan personelin sicilini baz alarak  resminin formda görülmesi ile ilgili sorun yaşıyorum.örneği 2007 olarak yüklüyorum.teşekkür ederim
13/12/2014, 02:01

ozanakkaya

1-)Modül1'e eklenen kod

Global PersonelSicili As String

2-) benzersiz alan olması için kullanıcı tablosuna sicili alanı eklendi, 

3-) parola formuna eklenen kod

PersonelSicili = Dlookup ("[sicili]", "Kullanici", "Kullanici='" & Me.FKullanici.Value & "'")

ayrıca, bu formdaki 

Me.Visible = False
iptal edilerek yerine

DoCmd.Close acForm, "Parola"

kodu eklendi.

4-) Hangi çerçeve sorusunu sormak yerine alt forma Resim12 adında resim denetimi ekledim. frmsearch formunun açıldığında olayına yazılan kod

[Sub].Form![Resim12].Picture = CurrentProject.Path & "\resim\" & Dlookup ("[resim]", "PERSONEL", "[SICILI]=" & PersonelSicili)

giriş formu ile giriş yapıldığında "PersonelSicili" değişkenine kullanıcının sicilini kaydediyor, diğer form açıldığında ise bu sicile göre tablodan resmi bulup resim alanına aktarıyor.

sizin resim klasörünüze kodun düzeltilmesi yeterli.
13/12/2014, 06:43

polak_68

hocam teşekkür ederim inceleyeip dönüş yapıcam
14/12/2014, 19:06

polak_68

mrhaba kolay gelsin 
sn   hocam yardımlarınız için teşekkür ederim iş yoğunluğundan dolayı örneği detaylı inceleme fırsatını yeni buldum. yapmak istediğim sekilde olmus ornek yalnız bir konu da daha yardımcı olabilirmisiniz? eğer personelin resmi yoksa standart bir resim getirsin istedim bunun için [/font][/size][/color]
Kod:
If Nz(resim, "") = "" Then
       Me.Resim12.Picture = CurrentProject.Path & "\resimyok.jpg"
   Else
 
kodunu denedim fakat basarılı olamadım yardımcı olabilrimisiniz
1 2