tabloya bağlı yeni form açmak

tabloya bağlı yeni form açmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tabloya bağlı yeni form açmak (/konu-tabloya-bagli-yeni-form-acmak.html)

Sayfalar: 1 2

Cvp: tabloya bağlı yeni form açmak - mhmtogz - 25/02/2014

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

Cvp: tabloya bağlı yeni form açmak - ozanakkaya - 27/02/2014

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

Cvp: tabloya bağlı yeni form açmak - ozanakkaya - 10/03/2014

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