Arkadaslar yukaridaki sorumun cavabini asagidaki degisikligi yaparak cözebildim. Her ikinizede tesekkür ederim.

Public Function KfzPersonenDB() As String

Dim yol As String

yol = CurrentProject.Path

KfzPersonenDB = CurrentProject.Path & yol & "\KfzPersonenDB.accdb"

End Function

Arkadaslar AFAD dosyasini acamiyorum. Hocamiz herhalde Access i gizlemis, Kodunu "a" olarak yazmis, "a" harfini yazdigimda Form kayboluyor. Dosyayi acabilmek icin herhangi bir degisiklik mi yapmaliyim.

Slm
kaleci