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.
Merhaba,
sürekli formda veriye göre onay kutusu veya çerçeve gizleyemezsiniz.
Örneğinizin farklı yol ile düzenlenmiş hali ektedir.
(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 ).
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?
(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
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