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 yerineDoCmd.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.