Her zaman söylendiği gibi;

Burası gerçekten bir Üniversite. Bizler de bu okulumuzun kıymetini bilmeye çalışan öğrenciler.

Teşekkür ve selamlar.

(21-07-2009, 18:52)Taruz demiş ki: Merhaba..

Bu kontrol için kullanışlı olabilecek bir kod hazırladım.. Formdaki tüm metin ve açılan kutuları kontrol edip boş varsa uyarıp sayısı verir.. Herhangi bir olay yordamına bağlayarak kullanabilrsiniz..

Kod:

Sub kontrol()
  Dim ctl As Control
  Dim trz As String
    trz = 0
    
    For Each ctl In Me.Form.Controls
Select Case ctl.ControlType

Case acTextBox
        
If IsNull(ctl) Then trz = trz + 1
        
Case acComboBox

If IsNull(ctl) Then trz = trz + 1

End Select
    Next
    If trz > 0 Then

    MsgBox trz & "  tane doldurmanız gereken alan var!!", vbCritical, "Access-SQL"
    
    End If
End Sub

Usta Allah razı olsun. yaklaşık 30 tane alanımın olduğu bir kayıt formum var ve bu alanlara bir türlü boş geçmeme kontrolunü yapamıyordum. Verdiğin kod çok bomba oldu.

Usta aslında arkadaş belirtmiş ama atlamışsın galiba. boş kalan alanların isimlerinide mesaj kutusunda yazsa dahada bomba olacak. hangisi diye karışık formda aramayacaz. olmazsada sağol. bu bile yeter.

Bence mesaj kutusunda boş alanları verdirmenin yanısıra üstten başlayarak ilk doldurulması gereken alana da focuslanması daha iyi olabilir..

this.setState({sign:"Here comes the sun...."})

(21-08-2010, 16:34)Berkant Öztürk demiş ki: Bence mesaj kutusunda boş alanları verdirmenin yanısıra üstten başlayarak ilk doldurulması gereken alana da focuslanması daha iyi olabilir..

harika olur ustam. nasıl yaparız peki.

Merhaba..

İstediğiniz yönde geliştirmeler yaptım.. İlginç ve güzel bir konu olduğu için ayrı bir bir konu sayfasında paylaşmanın daha uygun olacağını düşündüm..:

http://www.access-sql.com/Konu-Gelismis-...n-Kontrolu

Gerekli açıklamalar linkte var..

ustacım Allah razı olsun süper ötesi olmuş. teşekkür ederim.