Private Sub hastaliste_DblClick(Cancel As Integer)

Dim rs As Object



    DoCmd.OpenForm "HASTALAR"



    Set rs = Forms!HASTALAR.Recordset.Clone

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

    If Not rs.EOF Then Forms!HASTALAR.Bookmark = rs.Bookmark

    DoCmd.Close acForm, "hasta arama"

End Sub

GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !