boş geçilmemesi gereken textbox içinde kırmızı bir uyarı resmi çıksa olur mu

değiştiğinde olayında o anda girilen değeri göstermiyor
güncelleştirme sonrasında olayında da göstermiyor
metin kutusuna mesela 5 sayısı girdim mesaj kutusunda 5 çıkması için hangi olaya yazmam lazım

Private Sub SAD_KeyPress(KeyAscii As Integer)



On Error GoTo A

Forms!adlar.RecordSource = "adlartum"

If KeyAscii = vbKeySpace Then

DoCmd.GoToControl "SAD"

Me.SAD.SelStart = Nz(Len(Me.SAD) + 1, 0)

Else

DoCmd.GoToControl "SAD"

Me.SAD.SelStart = Nz(Len(Me.SAD), 0)

End If



A:





End Sub

Değerli arkadaşlar,
1.Örnek kodda görüldüğü üzere metin kutusundan her tuşa basıldığında adları filtreleyerek forma getiriyor,ancak ikinci ad yada soyadı için boşluk tuşunu kullandıktan son

birden fazla metin kutusunu aynı anda kontrol edip Hangisi Boş ise o metin kutusunu boş olduğunu tek mesajda bildirebilir miyim?
örneğin
mesaj = adı, soyadı, kimlik,...... alanları boş
  gibi

teşekkür ederim

Arkadaşlar Kolay gelsin. Aşağıda yapmaya çalıştığım programda 2 adet tablo bulunuyor BOLMECIK_H ve MALİYET. Metin124 adlı metin kutusuna bu tablolardan veri çekiyorum. Ancak bazı durumlarda bu tablolardan biri olmaya biliyor. O zaman da metin124 adlı metin kutusuna #hata ibaresi yazıyor. Benim isteğim bu tablolardan biri olmadığı zaman hata yazacağına kalan tablodan gelen veriyi göstermesi. yani hatalı olan bölümü göstermesini istemiyorum. Şu an programda iki tablo da ekli olduğu için metin124 a

     Merhaba sayın hocalarım. Access de yapmış olduğum bir uygulamada sizlerin paylaşımlarıyla baya bir yol katettim.Fakat Access ve kod bilgim yeterli düzeyde olmadığı için uygulamada yapmak istediğim bazı hususlar için yardımınızı rica ediyorum.Uygulamada olay arşivi oluşturmaya çalışıyoruz.Form olarak hazırladığım bu alanda kişi bilgilerini girdikten sonra ifade  metin alanı oluşturmak istiyoruz.
[color

[vb]Private Sub isyeri1_Change()
    Me.isgecmis = Nz(Me.isyeri1.text, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _
     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub

'.Find "[UyeNo]=" & "'" & Me![UyeNo_TXT] & "'" Uye No alanı metin olduğunda bu yazım doğru oluyor. Alan sayı türünde ise  nasıl yazılmalı

1-      '.Find "[UyeNo]=" & Me![UyeNo_TXT]  Bu kod hata vermedi ama işlemde gerçekleşmedi.
[color=#333333][size=small]2-       [/s

frml_malzemeler formundaki gruplar listesinden seçtiğim değeri metin kutusuna aktarıyorum. Gelen gruba göre liste0 da süzmeyi nasıl yapabilirm.

Kullanıcı yetkisine göre Tag ismini kriter yapıp 
control içeriğini password (*******) şeklinde gösterip
Kilitli-> evet
Etkin-> hayır
Yapabilir miyiz