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.