Form üzerindeki alanların pasiflenmesi (Öncede Sordum Ama yanlış Anlaşildı Sanırım)

[murat_06]

Merhaba,
Ben form açıldığında bütün alanların aktif olarak gelmesini fakat komut butonuna basıldığında pasiflemesini istiyorum ve daha sonra pasiflenmiş form tekrar açıldığında aktif olarak gelmesin. Aşağıda ki kodlarda form ilk açıldığında pasif olarak geliyor
private sub form_Load()
Me.Komut286.Enabled = False
Me.Açılan_Kutu123.Enabled = False
end sub

Benim komut butonuna verdiğim kodlar
Me.Komut286.Enabled = False
Me.Açılan_Kutu123.Enabled = False bu şekilde idi.
Daha sonra bu form üzerinde bir değişiklik yapılacağı zaman ise bir değiştir butonu koydum basıldığında şifre ekranı açılıyor şifreyi girip tamam dediğimde pasif alanların aktif olmasını istiyorum.

 

[omerceri]

Şifre Ekranından kastın ayrı bir form mu?

 

[attila52]

visible enabled false ve true olayı

sayın murat 06
formun Geçerliolduğunda olayyordam ına
örnek:
Private Sub Form_Current()

'aşağıdaki formu form açıldığında kapat

DoCmd.Close acForm, "frmMenü"

'formun başlığını değiştir aşağıdaki gibi
Me.Caption = "......" & Me.KayıtYeri.Column(2) & " FİRMASI ADINA " & Me.İşlem & " FATURASI DÜZENLENİYOR..........."

Me.Label1.Caption = "......" & Me.KayıtYeri.Column(2) & " FİRMASI ADINA " & Me.İşlem & " FATURASI DÜZENLENİYOR..........."
'form açıldığında aşağıdaki butonları eğer form üzerinde veri yoksa kapat
Me.YAZDIR.Enabled = Not (Me.NewRecord)
Me.Cari.Enabled = Not (Me.NewRecord)
Me.ALACAĞINA.Enabled = Not (Me.NewRecord)
Me.KDVALACAĞINA.Enabled = Not (Me.NewRecord)
Me.Ürünleri.Enabled = Not (Me.NewRecord)
Me.NAKLİYEKES.Enabled = Not (Me.NewRecord)
Me.FARK.Enabled = Not (Me.NewRecord)
If Me.FişCaride = -1 Then
Me.ALACAĞINA.Enabled = False
Me.FARK.Enabled = False
End If


End Sub

not:
senin form üzerindeki butonun olay yordamına ise aşağıdaki örneğe göre bir kod gerçekleştirirsen sorun kalmaz

Private Sub kaydet_Click()
On Error GoTo Err_kaydet_Click
Me.YAZDIR.Enabled = True
Me.Cari.Enabled = True
Me.ALACAĞINA.Enabled = True
Me.NAKLİYEKES.Enabled = True
Me.KDVALACAĞINA.Enabled = True
Me.Ürünleri.Enabled = True
Me.FARK.Enabled = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
If Me.Bakiye <= -1 Then
Me.Durum = "BORÇ BAKİYESİ"
End If
If Me.Bakiye >= 1 Then
Me.Durum = "ALACAK BAKİYESİ"
End If
If Me.Bakiye = 0 Then
Me.Durum = "BAKİYE BOŞ"
End If
Dim X

If IsNull(Me.KayıtYeri) Then MsgBox "Lütfen müşteri adını yazınız", 48, "Kayıt İşlemi": Me.KayıtYeri.SetFocus: Exit Sub
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
For X = 1 To 1000 Step 10
Me.durumcubugu.Value = X
Next X
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.durumcubugu.Value = 0


Else
Me.Undo
End If
Exit_kaydet_Click:
Exit Sub
Err_kaydet_Click:
MsgBox "Kaydetme işlemi yapılamadı", 0, "Kayıt İşlemi"
Resume Exit_kaydet_Click



End Sub
birde formun aşağıdaki olay yordamına da şunları yazmalısınki forma herkayıt eklediğinde üzerindeki bazı önemli noktalara göz atsın ve buna göre butonlarını ve alanlarının visible (görünsün diyorsan true hayır görünmesin diyorsan false)
enabled (true aktif - false pasif görünmesi için) kullanılan olaylardır.

Private Sub Form_AfterUpdate()
If Me.FişCaride = 0 Then
Me.ALACAĞINA.Enabled = True
Me.FARK.Enabled = True
End If
If Me.KdvCaride = 0 Then
Me.KDVALACAĞINA.Enabled = True
End If

If Me.Nakliye = 0 Then
Me.NAKLİYEKES.Enabled = True
End If

If Me.Nakliye = 1 Then
Me.KDVALACAĞINA.Enabled = True
End If
If Me.KdvTutarı = 0 Then
Me.KDVALACAĞINA.Enabled = False
End If
If Me.KdvTutarı >= 1 Then
Me.KDVALACAĞINA.Enabled = True
End If
If Me.Bakiye <= -1 Then
Me.Durum = "BORÇ BAKİYESİ"
End If
If Me.Bakiye >= 1 Then
Me.Durum = "ALACAK BAKİYESİ"
End If
If Me.Bakiye = 0 Then
Me.Durum = "BAKİYE BOŞ"
End If
End Sub