Option Box zorunlu veri girişi.

[vahapdogan]

İlgili alanları bir döngü ile zorunlu hale getirdim. Fakat takıldığım yer optionboxları zorunlu hale getirmek. User formumda 2 tane optionbox var kız ve erkek. birini seçmek zorunlu olsun istiyorum.

 

[vahapdogan]

Arkadaşlar dün gece geç saatte yazdığım için kimse görmemiş olabilir ama konuya yardım edecek arkadaşa şimdiden teşekkürler

 

[hamitcan]

Aşağıdaki kodları eskileri ile değiştirin.

Private Sub B02_Click()
On Error Resume Next
If O1 = 0 And O2 = 0 Then MsgBox "Cinsiyet Seçimi Yapmalısınız": Exit Sub
If kayıt = True Then
Call SonKayıt
Call VeriKaydet
Call EkranKaydet
Else
Call VeriKaydet
Call EkranKaydet
End If
kayıt = False
O1 = 0: O2 = 0
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Sheet1.Activate
Call koru
ALAN1.SetFocus
Call SonKayıt
ActiveCell.Offset(-1, 0).Select
Call EkranKaydet
Call VeriAl
Call sirala
Call devredisi
kayıt = False
O1.Value = 0
O2.Value = 0
End Sub

 

[vahapdogan]

If O1 = 0 And O2 = 0 Then MsgBox "Cinsiyet Seçimi Yapmalısınız": Exit Sub

sadece bu satırla bile çalıştı. Aşağıdaki kısımlara gerek kalmadı. Çünkü zaten yeni kayıt butonuna bastığım bütün alanlardaki değerler temizleniyor.
O1.Value = 0
O2.Value = 0
Bu kadar hızlı cevap beklemiyordum. Bu sitede neredeyse tüm sorduğum sorulara cevap buldum teşekkürler

 

[vahapdogan]

Hamit bey bir de userformu incelediyseniz bir başka sorum daha olacak . kullanıcı 5.sınıf seçtiğinde
arapça dil sınıfı istiyor mu butonları aktif oluyor. Dolayısıyla 5.sınıf seçildiğinde o9 ve o10 option buttonlarına da veri girmek zorunlu olsun. Bunu nasıl yaparız

 

[hamitcan]

Aşağıdaki kodu eskisiyle değiştirin.

Private Sub B02_Click()
On Error Resume Next
If O1.value = 0 And O2.value = 0 Then MsgBox "Cinsiyet Seçimi Yapmalısınız": Exit Sub
If O5.value = True Then
If O9.value = 0 And O10.value = 0 Then MsgBox "Lütfen Arapça Dil Tercihinizi Yapınız": Exit Sub
End If
If kayıt = True Then
Call SonKayıt
Call VeriKaydet
Call EkranKaydet
Else
Call VeriKaydet
Call EkranKaydet
End If
kayıt = False
O1 = 0: O2 = 0
End Sub

 

[vahapdogan]

teşekkürler hamitcan kodu biraz kendime göre değiştirdim ve gayet güzel çalıştı.