Parola ekranı giriş kodunu bu şekle getirin

Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
Kllnc = kx
KullaniciKim = Me.Açilan_Kutu0.Column(1)
AktifKullaniciYetkisi
AktifKullanici

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Protokol"
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acHidden


Exit_Komut6_Click:
Exit Sub

Err_Komut6_Click:
MsgBox Err.Description
Resume Exit_Komut6_Click

End Sub

Tbl_Guncelleme_Kaydi tablosunu dizayn modunda açın
kullanici alaninin satir kaynağini
SELECT Kullanici.kulno, Kullanici.kulad FROM Kullanici;
yapın. ama olay bununla da bitmiyor.

Frm_Casus formunda dizayna girip Liste0 listbox'ın Satır Kaynağı'nı

SELECT Tbl_Guncelleme_Kaydi.GuncellemeID, Tbl_Guncelleme_Kaydi.Zaman, Tbl_Guncelleme_Kaydi.Tablo, Tbl_Guncelleme_Kaydi.KayitNo, Tbl_Guncelleme_Kaydi.FormAdi, Tbl_Guncelleme_Kaydi.DenetimAdi, Tbl_Guncelleme_Kaydi.EskiVeri, Tbl_Guncelleme_Kaydi.YeniVeri, Kullanici.kulad, Tbl_Guncelleme_Kaydi.Silinme, Tbl_Guncelleme_Kaydi.Kullanici FROM Tbl_Guncelleme_Kaydi LEFT JOIN Kullanici ON Tbl_Guncelleme_Kaydi.Kullanici=Kullanici.kulno WHERE (((Tbl_Guncelleme_Kaydi.FormAdi)=IIf(Forms!Frm_Casus!formlar Is Null,[formadi],Forms!Frm_Casus!formlar)) And ((Tbl_Guncelleme_Kaydi.Kullanici)=IIf(Forms!Frm_Casus!kullanıcı Is Null,[Kullanici],Forms!Frm_Casus!kullanıcı)) And ((Format([Zaman],"dd-mmm-yyyy"))=IIf(Forms!Frm_Casus!tarih Is Null,Format([Zaman],"dd-mmm-yyyy"),Forms!Frm_Casus!tarih))) ORDER BY Tbl_Guncelleme_Kaydi.Zaman DESC;

yapın işlem tamamdır.