Sayın @metınaycıcek önceki mesajımda sorunuzu açık sormanızı yazmıştım, sonrasında da aynı durumu @atoz112 yazdı.

Siz cevap olarak toplu borçlandırma yapılması ve katmalik bilgileri menüsünden bahsettiniz.

Uygulamanın tasarımcısı sizsiniz, neyin nerede olduğunu biliyorsunuz. Ancak, şahsen ben katmalik bilgileri menüsü nedir, nerededir bilmiyorum. Uygulamanızda onlarca form var.

Uygulamanızda sorun olan nesne adını belirtirseniz çözüm bulma şansımız olur. 4-5 form inceleyip bulamazsam incelemeyi bırakmak sorunda kalıyorum.

Site Kuralları:
5-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili (3. maddede anlatıldığı gibi) eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya doküman eklemeyiniz.


Frm_BlkBorcTablosu isimli formdaki sırano metin kutusunun denetim kaynağına

=RowNum([Form])

kodunu yazınız. 

Frm_BlkBorcTablosu  isimli formun Vba sayfasına aşağıdaki kodu ekleyiniz.

Public Function RowNum(frm As Form) As Variant

On Error GoTo Err_RowNum

    With frm.RecordsetClone

        .Bookmark = frm.Bookmark

        RowNum = .AbsolutePosition + 1

    End With

Exit_RowNum:

    Exit Function

Err_RowNum:

    If Err.Number <> 3021& Then

        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description

    End If

    RowNum = Null

    Resume Exit_RowNum

End Function

Deneyip, olumlu olumsuz bildirimde bulunursanız memnun olurum.