25/12/2014, 15:12
Merhabalar, formdaki bir adet combobox açıklama sütundaki verileri yansıtıyor. Yeni satırda yeni yazdığım açıklama eğer listede yoksa aşağıdaki kodla tabloya ekliyorum. Buraya kadar sorun yok. Ama o kadar çok işlem oluyorki, bazı açıklamalar belki bir daha hiç bir zaman lazım olmayacak. Bu bir daha lazım olması muhtemel olmayan açıklamaları tabloya eklemek istemiyorum. Amma velakin listeye sınır olduğundan haliyle bu yeni açıklamayı kabul etmiyor Access. Liste sınırını kaldırırsamda Listede yokken olayı çalışmıyor malumunuz. Bunu bir kodla aşma imkanımız varmı arkadaşlar, Ben hayır ekleme dediğimde listeye sınırı kaldırıp comboboxtan ayrılınca tekrar sınırı koyacak bir kod. Böyle bir kodla karşılaştınız mı ? Eğer mümkün değilse comboboxtan çıkınca olayında lookup ile birşeyler yapmaya çalışacağım artık.
Private Sub HrkAciklama_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
x = MsgBox("Girilen Açıklama Listede Yok. Listeye Eklensin mi?", 52, "Yeni Açıklama")
If x = vbYes Then
strSQL = "Insert Into dbo_Tbl_Aciklama ([Aciklama]) values ('" & NewData & "')"
MsgBox "Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
Private Sub HrkAciklama_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
x = MsgBox("Girilen Açıklama Listede Yok. Listeye Eklensin mi?", 52, "Yeni Açıklama")
If x = vbYes Then
strSQL = "Insert Into dbo_Tbl_Aciklama ([Aciklama]) values ('" & NewData & "')"
MsgBox "Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub