Hasta Listesi tıklma koduna aşağıdaki kodu yazın.

Private Sub hastaListesi_Click()

    Dim rs As Object



    Set rs = Me.Recordset.Clone

    rs.FindFirst "[skalaID] = " & Str(Nz(Me![hastaListesi], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Hasta listesi satır kaynağını

 SELECT [performansSistemi].[skalaID], [performansSistemi].[advesoyad] FROM performansSistemi; 

olarak değiştirin.
Sütun genişliklerini 0 cm ;4 cm olarak ayarlayın.
Hepsi bu kadar.
Kolay gelsin