taruz beyin hazırlamış olduğu kullanıcı denetimleri çalışmasını veri tabanımda uyguladım ancak yeni kayıt eklediğimde beni aşağıdaki koda yönlendiriyor yardımcı olabilecek arkadaş varım

Public Function ekleme(frm3 As Form, KayitKimligi3 As String)
'Eklenen kayıtları ID numarasına göre kaydeder..

Tablo = frm3.RecordSource
Msj = "Kayıt Eklendi"
kllnc = AktifKullanici
Zmn = Now()

'Kayıt ekleme işlemini kaydedelim..
Sorgu = "INSERT INTO TblGuncellemeKaydi ([Tablo], [KayitNo], [FormAdi], " _
& "[Silinme], [Kullanici], [Zaman]) " _
& "VALUES ('" & Tablo & "', '" & KayitKimligi3 & "', '" & frm3.Name & "', " _
& "'" & Msj & "','" & kllnc & "', '" & Zmn & "')"

CurrentDb.Execute Sorgu

End Function

memmetcavus, bende bu hatayı alıyorum acaba hatayı düzeltebildiniz mi?

Aldığınız hatadan bahsetmemişsibiz hatakodu filan. Ancak tahminim AktifKullanici() hatası. Login olduğunuzda aktif kullanıcı global olarak atanıyor. Ancak uygulama içinde herhangi bir aşamada bir hata ile karşılaşırsa AktifKullanıcı() sıfırlanır. Böylece tabloya eklerken null olduğu için hata döner.

Seçenek 1: 




Şeklinde ayarlanır. Ancak hatadan sonra sorgu çalışır hta vermez ama kullanıcı boş olur.

Seçenek 2: bu benimde tercihim
Anaformumuz üzerinde bir adet label ekleyin. Mesela kullanici adında. Durumunu gizli yapın. Login olurken AktifKullanici aradığınız yerde global değişkene değilde anaform üzerindeki kullanici.caption olarak gönderin. Böylece uygulama içinde hata olsa dahi form kapanmadıkça değer gitmez. Sonra o sorunun içindeki kllnc = anaform.kullanici.caption şeklinde ayarladınız mı tamamdır.