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
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.
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
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.
hocam teşekkür ederim inceleyeip dönüş yapıcam
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