Değerli dostlarım;

İyi akşamlar.

Ekte yolladığım dosyadaki formda yapamadıklarım için yardımınızı rica edeceğim..

1- Form ilk açıldığında "Toplam Gider" Metin21 kutusu aktif, diğer tüm metin kutuları pasif olsun.

2- Tarih metin kutusuna tarih girdiğimde; bu kez Metin21 pasif, diğer tüm metin kutuları aktif olsun.

3- Formda tarih metin kutularına ay, gün ve yılı girerken, araya her seferinde manuel olarak nokta koyuyorum. Tarih biçimi nasıl olmalı ki, bu noktalarla uğraşmayayım?

4- Form arayüzüm çok kaba bir görünümde, bu konuda ne yapılabilir? Düşüncelerinizi öğrenmek isterim.

5- Formdaki hesaplamaları formül ile yaptım. Ancak kodla nasıl yapılabileceğini öğrenmek istiyorum.

Yardımlarınız için önceden teşekkürler.

Selam ve sevgiler..

Merhaba sn. assenucler..

Alanları kilitlemek için sn.metinse'nin daha önce bizlerle paylaştığı kodları biraz revize ederek kullanabiliriz..

Formun VBA sayfasında boş bir kısma bu sub ları yazın..:




Not: Bu alanları pasif yapar.. Kilitlemek için Enable yerine Locked kullanın.. True değerini de False olarak değiştirin..

Sonrasında forumun Geçerli Olduğunda Olayına şu kodu yazın..:




Tarih girdiğinizde tersi olması için SONTARIH ve-veya ILKTARIH metin kutularının Odaklanıldığında olayına da bu şeklde yazın..




Bu şekilde 1 ve 2 numaralı sorunlarınızı çözmüş oluruz..

Diğer sorunuz, tarih formatı içinse SONTARIH ve ILKTARIH metin kutularının Veri / Giriş Maskesi özelliğine bu maskı yazın..:


Tarih girerken 12.06.2009 yerine 120609 girin.. Benimde kullandığım oldukça pratik bir masktır bu.. Sadece giriş yaparken bu formatta kullandığımızı, görünür biçimin yine 12.06.2009 şeklinde olduğunu belirtelim..
Kodları VBA sayfasından vermenize gerek yok bence.. Bu haliyle gayet iyi.. Ama yöntem olarak şöyle düşünün..:




Bu aşamadaki en büyük farklılık noktalı virgül yerine VBA da virgül kullanılıyor..
Selamlar..

Sayın Taruz hocam;

İyi akşamlar.

Bizlere bu çok güzel ve süper siteyi yeniden kazandırdığınız için sizleri biz kez daha kutlar ve tebrik ederken; yardımınız için bir kez daha teşekkür ederim.

En içten sevgi ve saygılarımla..

Ben de size bu güzel sözlerinizden dolayı teşekkür ederim sn. assenucler..

İyi akşamlar..

Selamlar. Konu biraz eski biliyorum fakat kdoun çok kullanışlı olduğunu düşünüyorum. Kendi formuma aşağıdaki kodu eklediğimde kayıtlar arasında gezinme veya arama yapmam mümkün olmuyor. Kod;

Private Sub AlanKapali()
Dim ctl As Control
For Each ctl In Me.Form.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = True
ctl.BackColor = 16777153
Case acComboBox
ctl.Locked = True
ctl.BackColor = 16777153
End Select
Next
End Sub
Private Sub AlanAcik()
Dim ctl As Control
For Each ctl In Me.Form.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = False
ctl.BackColor = 12189695
Case acComboBox
ctl.Locked = False
ctl.BackColor = 12189695
End Select
Next
End Sub


Şimdi benim Sorum Şu;

Bu kodu, sadece form üzerinde bulunan metin kutularını kilitleyecek şekilde nasıl uyarlarım?

Yardımcı olursanız sevinirim.

Kendim hallettim. Kodu Üreten arakadaşa teşekkürler.