Skip to main content

AccessTr.neT


Sürekli Formda Satırlardaki Onay Kutularını Aktif / Pasif Yapma

Sürekli Formda Satırlardaki Onay Kutularını Aktif / Pasif Yapma

#1
Merhaba değerli üstadlar,

Ekteki uygulamamda "frm_SUBE_1002" adlı sürekli form üzerindeki satırlardaki seçenek ve onay kutularını aynı satırdaki diğer seçenek ve onay kutusunun durumuna göre aktif ve pasif yapmak istiyorum.
Mesela, "sipariş iptal edildi" onay kutusu işaretli ise "ÜRÜN VAR/ YOK" seçeneği pasif durumda olmalı ( ya da işaretleme yapılamamalı ), yazmış olduğum kodla ürün "YOK" işaretlemesini yapamazken "VAR" işaretlemesi yapılabiliyor. Benim istediğim ikisininde aynı şekilde bir mesajla uyarı vererek işaretleme yapılamaz olması.

Herkese iyi çalışmalar.
.rar SİPARİŞ.rar (Dosya Boyutu: 239,52 KB | İndirme Sayısı: 7)
Cevapla
#2
Merhaba,
sürekli formda veriye göre onay kutusu veya çerçeve gizleyemezsiniz.

Örneğinizin farklı yol ile düzenlenmiş hali ektedir.
.rar SİPARİŞ_sld.rar (Dosya Boyutu: 234,42 KB | İndirme Sayısı: 17)
Cevapla
#3
(29/03/2017, 16:10)ozanakkaya yazdı: Merhaba,
sürekli formda veriye göre onay kutusu veya çerçeve gizleyemezsiniz.

Örneğinizin farklı yol ile düzenlenmiş hali ektedir.

ozanakkaya hocam alternatifiniz için teşekkür ederim. Fakat seçenek şeklinde yapmamız mümkün değil mi ?  Daha doğrusu yazdığımız kodda nerede hata var ki seçeneklerden birini işaretlerken, diğerini işaretlemede isteğimize cevap vermiyor.

Gizleme olayı olmasa da olabilir hocam. Projenin ilk yüklediğim halinde farketmişsinizdir; "SİPARİŞ İPTAL EDİLMİŞ" ise "ÜRÜN VAR/YOK" kısmını işaretleyebiliyorum ama kodla bu işareti - önce mesajla uyarı verip -tekrar geri kaldırıyor. Ancak bu olay seçeneklerden birtanesi için mümkün olabildi. ikincisinde ise durum farklı ( işaretli ise işareti kaldırıyor, değil ise işaretli bırakıyor ).
Son Düzenleme: 29/03/2017, 16:46, Düzenleyen: akif_erdem.
Cevapla
#4
Merhaba, sürekli formda denetimdeki değere göre diğer denetimi gizleyemezsiniz. Yazılan kod ilk satırdaki veriye göre çalışır.

Yazdığınız koddaki hata ile ilgili olarak?

Private Sub secenek_1002_urun_yok_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If siparis_iptal_edildi = -1 Then

   MsgBox " Bu ürünün siparişi iptal edildiği için seçim yapamazsınız.", vbCritical, "CUKLA YARDIM"
   
   sube_1002_urun_var_yok.Value = False
   
End If
End Sub


Şeklindeki koddan mı bahsediyoruz?
Cevapla
#5
(29/03/2017, 16:54)ozanakkaya yazdı: Merhaba, sürekli formda denetimdeki değere göre diğer denetimi gizleyemezsiniz. Yazılan kod ilk satırdaki veriye göre çalışır.

Yazdığınız koddaki hata ile ilgili olarak?

Private Sub secenek_1002_urun_yok_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If siparis_iptal_edildi = -1 Then

   MsgBox " Bu ürünün siparişi iptal edildiği için seçim yapamazsınız.", vbCritical, "CUKLA YARDIM"
   
   sube_1002_urun_var_yok.Value = False
   
End If
End Sub


Şeklindeki koddan mı bahsediyoruz?

Evet hocam bu kod "ÜRÜN YOK " seçeneği için ve sorunsuz çalışıyor.
____________________________________________________________________

Çalışmayan kod "ÜRÜN VAR" seçeneği ile bu ( seçenek işaretli ise kaldırıyor, işaretli değil ise işaretliyor ). Yani yukarıdaki gibi
çalışmıyor.

Kod:
'  *SİPARİ İPTAL EDİLDİ* durumuna göre "VAR" alanının denetimi  *

Private Sub secenek_1002_urun_var_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If siparis_iptal_edildi = -1 Then

   MsgBox " Bu ürünün siparişi iptal edildiği için seçim yapamazsınız.", vbCritical, "Asor Yardım"
   
   sube_1002_urun_var_yok.Value = False

End If

End Sub

Cevapla
#6
Formda bu işlem için eklediğiniz tüm kodları kaldırın. 

Yerine, Çerçeve723'ün Güncelleştirme öncesinde olayına aşağıdaki kodu ekleyin.

Private Sub Çerçeve723_BeforeUpdate(Cancel As Integer)
If siparis_iptal_edildi = -1 Then

   MsgBox " Bu ürünün siparişi iptal edildiği için seçim yapamazsınız.", vbCritical, "CUKLA YARDIM"
   Me.Undo
End If
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task