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 Ifaçı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.
