metin kutusu = açılan kutu

[hedefkaya]

aşağıdaki örnekde METİN10 kutusuna yazdığım bir ürün ismi aynı formdaki ÜRÜNLER adındaki AÇILAN KUTUDA yoksa bu ürün bulunamadı gibi bir mesaj vermesini sağlıyabilirmisiniz acaba

ben bu işlemi açılan kutunun listede yokken özeliği ile yapabiliyorum fakat benim istediğim metin kutusunda yapmak
teşekürler

 

[Taruz]

Merhaba..

Bu şekilde deneyin, istediğiniz sonucu alırsınız..

Private Sub ÜRÜNLER_NotInList(NewData As String, Response As Integer)
 
METİN10 = "Listede böyle bir ürün yok!!"
ÜRÜNLER = ""
Response = acDataErrContinue
 
End Sub

Tabii mesajın kutuda sürekli görünmemesini sağlamak için ÜRÜNLER Kutusunun belirleyeceğiniz başka bir olay yordamına da

METİN10 = ""

yazmanız doğru olur..

 

[Taruz]

Hehehe.. Sonradan tekrar okucunca kendi cevabıma çok güldüm.. Siz ne söylemişsiniz ben ne anlamışım..

METİN10 kutusunun Güncelleştirme Sonrasında olayına bu kodu yazarsanız hem istediğiniz olur hemde durumu telafi etmiş oluruz..

Dim trz As String
Dim stLinkCriteria As String
trz = Me.[METİN10].Value
stLinkCriteria = "[ürünler]=" & "'" & trz & "'"
If DCount("[ürünler]", "ürünler", stLinkCriteria) = 0 Then
MsgBox "Girmekte Oldugunuz " _
& trz & " ÜRÜNLER Listesinde Yok." _
& vbCr & vbCr & "Lütfen Listede Olan Bir Meyve Seçiniz.", vbInformation, "Trz"
End If

 

[hedefkaya]

TEŞEKÜRLER SAYIN Taruz
tam istediğim gibi oldu teşekürler