Liste içine yazılan kodu;
Kod:
Dim Number
Number = Me.Liste1.ListIndex
Me.Metin0.SetFocus
Me.Liste1.Visible = False
Select Case Number
Case 0
DoCmd.OpenForm "İşEmri Giriş", acFormDS, "", "", , acNormal
Case 1
DoCmd.OpenForm " "
Case 2
DoCmd.OpenForm " "
Case 3
DoCmd.Close
Case Else
End Select
şeklinde değiştirin.
burada sadece form açtırma kodunun sonuna "
Kod:
, acFormDS, "", "", , acNormal
" satırı eklenmiştir.
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 !
Cevapla