form düzenlerken ufak bir ayrıntı?

[ozoozo]

arkadaşlar accesste oluşturdugum formda şöyle bişey arıyorum.

talep tipi (geçici,daimi)
talep süresi
talep tarihi

talep tipi geçici saçildiğinde talep süresi alanı aktif olsun ve kullanıcı veri girsin ve devamında talep tarihide yazsın
talep tipi daimi oldugunda talep süresi alanı inaktif olsun ve kullanıcı sadece talep tarihi girsin
herkese yardımları için teşekkürler, iyi çalışmalar

 

[modalı]

Sayın ozoozo,

Sanırım aşağıdaki kodlar yeterli:

Private Sub Form_Current()
If Me.TalepTipi = "Geçici" Then
    Me.TalepSüresi.Enabled = True
Else
    Me.TalepSüresi.Enabled = False
End If
End Sub
Private Sub Form_Load()
If Me.TalepTipi = "Geçici" Then
    Me.TalepSüresi.Enabled = True
Else
    Me.TalepSüresi.Enabled = False
End If
End Sub
Private Sub TalepTipi_AfterUpdate()
If Me.TalepTipi = "Geçici" Then
    Me.TalepSüresi.Enabled = True
Else
    Me.TalepSüresi.Enabled = False
End If
End Sub

İyi çalışmalar:hey:

 

[ozoozo]

ufak bir sorun daha

öncelikle sayın modalıya teşekkür ediyorum.
sayın modalı ve ilgilenen bütün arkadaşlar

ben yukardaki programı kendi formuma uyarladım ancak ufak bir sorun çıktı. şöyle açıklıyım:

ben talep tipi alanını combobox olarak seçtim(combo28).bu alanı "geçici " seçtiğim an talep süresinin aktif olmasını istiyorum ancak seçtikten sonra tab yapıp önce formun en altındaki kaydet butonuna gidiyor sonra talep süresi alnına geçiyor. (veya 2 defa entere basınca talep süresine gidiyor) focus la ilgili bir sorun var?
olayın çözümü için formumla ilgili kodlarımı yolluyorum.inceleyip fikir edinebilir ve bana bişeyler önerebilirsiniz umarım.
herkese ii çalışmalar diliyorum

 

[ozoozo]

arkadaşlar biraz uğraştıktan sonra sorunu çözebildim,ufak bir noktaya dikkat ettmek yeterliymiş.
programda
Private Sub TalepTipi_AfterUpdate()
If Me.TalepTipi = "Geçici" Then
Me.TalepSüresi.Enabled = True
Else
Me.TalepSüresi.Enabled = False

yerine


Private Sub Combo28_Change()
If Me.Combo28 = "Geçici" Then
Me.talepsüresi.Enabled = True
Else
Me.talepsüresi.Enabled = False
End If
End Sub

yazınca sorun çözüldü.