AccessTr.neT

tşk hocam ama olmadı yapamadım.. düzenleme yapacağım zaman yeni forma çağırabiliyorum ama. yeni kayıt yapacağım zaman o personelin üstüne çağıramıyorum bir türlü.. tek bu sorunum kaldı...

1-) basmousehook modülünü aç,

Public Function NewMouseHook(ByRef Form As Access.Form) As Object

kodunun hemen üstüne

Global Gadi, Gunvan, Gistasyon, Gcepno, Gresim As String

kodu ekle.

2-) F_IZIN formundaki "AKPERSONEL" açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.

On Error Resume Next

Gadi = Dlookup ("ADSOYAD", "T_PERSONEL", "PERSONELID=" & Me.AKPERSONEL)

Gunvan = Dlookup ("UNVAN", "T_PERSONEL", "PERSONELID=" & Me.AKPERSONEL)

Gistasyon = Dlookup ("ISTASYON", "T_PERSONEL", "PERSONELID=" & Me.AKPERSONEL)

Gcepno = Dlookup ("CEPNO", "T_PERSONEL", "PERSONELID=" & Me.AKPERSONEL)

Gresim = Dlookup ("resim", "T_PERSONEL", "PERSONELID=" & Me.AKPERSONEL)

Me.LSTIZIN.Requery

Me.LSTDONEN.Requery

3-)F_IZINYENI isimli formun açıldığında olayındaki kodları aşağıdaki ile değiştir.

ADSOYAD = Gadi

UNVAN = Gunvan

ISTASYON = Gistasyon

CEPNO = Gcepno

resim = Gresim

On Error GoTo hata

    If resim = "Resim Yok" Then

        Me.cerceve.Picture = CurrentProject.Path & "\resimler\resimyok.jpg"

    Else

        Me.cerceve.Picture = resim

    End If

Exit_hata:

    Exit Sub

 

hata:

    MsgBox "Resim bulunamadı.." _

           & Chr(10) & "Resim dosyanız silinmiş," _

           & " yeri veya ismi değişmiş olabilir..", vbInformation, "Hata"

           Me.cerceve.Picture = ""

    Resume Exit_hata

Sn mhmtogz, yazdğım kodlar sorunu çözdü mü acaba?