Denemedim ama şöyle olabileceğini düşünüyorum.
Modüldeki
Kod:
Public Sub olustur()
Dim strTextFile
strTextFile = CurrentProject.Path & "\kayıt.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strTextFile)
End Sub
strTextFile = CurrentProject.Path & "\kayıt.txt"
satırını
strTextFile = CurrentProject.Path & AKMKOD.column(1) & ".txt"
olarak veya olmazsa Forms!Form1!AKMKOD.column(1)...
olarak dene.
Kolay gelsin saygılar.