Asagidaki code da hata nedir? atama islemini yapmiyor
mesajda calismiyor

Public Function BelgeCHAtama(frm As Form)
Dim FormAdi As String
FormAdi = frm.Name
If MsgBox("Cari Hesap Kartlari Ayni degil, Eger Dedisiklikleri kaydetmek Istemiyorsaniz Iptal tusuna Basiniz", vbYesNo) = vbYes Then

FormAdi.[CariHesapNoAra] = FormAdi.[BelgeNoListe].[Column](8)
FormAdi.[CariHesapNoListe] = FormAdi.[BelgeNoListe].[Column](9)
FormAdi.[CariHesapNo] = F