Skip to main content

AccessTr.neT


Listede yoksa Olayı Hakkında

Listede yoksa Olayı Hakkında

Çözüldü #1
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
Cevapla
#2
Sayın Mecnun24,

İlgili Site Kuralları sayfasında yer alan 3.maddesini hatırlatmak sureti ile,

öncelikle,konu açarken örnek uygulamanızı da dahil etmeniz halinde;
hem katılımcılar tarafından bazı konuları yazı ile açıklamak yerine örnek üzerinden çözüme ulaştırmaya çalışmalarına ve  size daha verimli bir katkı olmasına imkan sağlamış olursunuz hem de bu konuda örnek arayan diğer üyelere bir başka örnek alternatifi sunmuş olursunuz.bilginize.

son olarak,yardımcı bilgi olması açısından,kodlamanızda yer alan ilgili mesaj cevabına göre EVET ise,


Kod:
Me.combobox_adi.LimitToList = True
hayır için de


Kod:
Me.combobox_adi.LimitToList = False
yazmak sureti ile,çözüm elde edebilirsiniz.bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Teşekkürler, Allah razı olsun. Tablolar sqlserver'e bağlı olduğu için gönderemedim dosyayı.
Cevapla
#4
Çok, çok teşekkürler hocam elleriniz sağlık. Verdiğiniz bu değerli bilgiler için. Konuyu taşıyabilirsiniz. Saygılar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task