Private Sub Kitap_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, X As Integer
X = MsgBox("Girilen <<<KİTAP>>> Listede Yok. Listeye Eklensin mi?", 52, "YENİ ***KİTAP*** SABİTİ EKLENSİN Mİ...?")
If X = vbYes Then
strSQL = "Insert Into kitap ([kitap]) values ('" & NewData & "')"
MsgBox "KİTAP Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Kitap.Value = ""
End If
End Sub
#2
açılan kutunun "listeyi sınırla" değerini "Evet" yapıp aşağıdaki kodları uygulayın
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 !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
