AccessTr.neT

Tam Versiyon: tabloya bağlı yeni form açmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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?
Sayfalar: 1 2