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