Dim strSQL As String, X As Integer
X = MsgBox("Girilen <<<RENK>>> Listede Yok. Listeye Eklensin mi?", 52, "YENİ ***RENK*** SABİTİ EKLENSİN Mİ...?")
If X = vbYes Then
strSQL = "Insert Into RENKLER ([RENK]) values ('" & NewData & "')"
MsgBox "RENK Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.RENGİ.Value = ""
End If
açılan kutunun listeye sınır değerini "evet" yapıyoruz ve listede yokken yordamına yukarıdaki kodu yazıyoruz.
Renkler tablosunda Renk alanına kaydedilmiş oluyor.Fakat Siz aynı değeri mi kaydettirmek istiyorsunuz sonuçta açılan kutuya 1 adet veri girmiş olacaksınız.oda sizin belirlemiş olduğunuz alan olacak.
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
Son Düzenleme: 05/10/2010, 16:01, Düzenleyen: Coskun0559.
#1
Ekle.rar
(Dosya Boyutu: 17,98 KB | İndirme Sayısı: 27)
