Optionbuttonlardan herhangi biri seçili değilse uyarı versin

[pitsss]

arkdaşlar ekte gönderdiğim dosyada anasayfada giriş butonun basınca karşımıza çıkan userformda, sol taraftaki optionbuttonlardan herhangi biri seçili olmazsa uyarı versin istiyorum ve kayıtı yapmasın istiyorum.( CommandButton a bastığımızda) bunu nasıl yapabilirim?

 

[hamitcan]

İlgili kodu aşağıdaki değiştirip dener misiniz?

Private Sub CommandButton1_Click()
For i = 1 To 9
With Controls("OptionButton" & i)
 If .Value = False Then c = c + 1
End With
If c = 9 Then MsgBox "Bir seçim yapmalısınız": Exit Sub
Next



If TextBox5 = "" Then
MsgBox "TARİHİ GİRMEDİNİZ.!!", vbExclamation, "EKSİK BİLGİ"
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "AÇIKLAMA YAZMADINIZ.!!", vbExclamation, "EKSİK BİLGİ"
Exit Sub
End If


On Error Resume Next

On Error Resume Next


sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1.Value
Cells(sonsat, 3) = TextBox2.Value
Cells(sonsat, 4) = CDate(TextBox5)
Cells(sonsat, 5) = TextBox3.Value
Cells(sonsat, 6) = TextBox4.Value




On Error Resume Next
MsgBox ComboBox1.Text & "   Modelinden   " & TextBox1.Value & " " & "Adet Depo Girişi Yapıldı..", vbInformation, "SİSTEM BİLGİSİ"
TextBox1.Value = " "
TextBox2.Value = " "
TextBox3.Value = " "
TextBox4.Value = " "
TextBox5.Value = " "

End Sub

 

[pitsss]

İlgili kodu aşağıdaki değiştirip dener misiniz?

Private Sub CommandButton1_Click()
For i = 1 To 9
With Controls("OptionButton" & i)
 If .Value = False Then c = c + 1
End With
If c = 9 Then MsgBox "Bir seçim yapmalısınız": Exit Sub
Next



If TextBox5 = "" Then
MsgBox "TARİHİ GİRMEDİNİZ.!!", vbExclamation, "EKSİK BİLGİ"
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "AÇIKLAMA YAZMADINIZ.!!", vbExclamation, "EKSİK BİLGİ"
Exit Sub
End If


On Error Resume Next

On Error Resume Next


sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1.Value
Cells(sonsat, 3) = TextBox2.Value
Cells(sonsat, 4) = CDate(TextBox5)
Cells(sonsat, 5) = TextBox3.Value
Cells(sonsat, 6) = TextBox4.Value




On Error Resume Next
MsgBox ComboBox1.Text & "   Modelinden   " & TextBox1.Value & " " & "Adet Depo Girişi Yapıldı..", vbInformation, "SİSTEM BİLGİSİ"
TextBox1.Value = " "
TextBox2.Value = " "
TextBox3.Value = " "
TextBox4.Value = " "
TextBox5.Value = " "

End Sub

Tam istediğim cevap çok teşekkürler. kolay gelsin...

 

[veyselemre]

OptionButton ları Frame2 nin içine koyup, aşağıdaki kodları da kullanabilirsiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    If Frame2.ActiveControl Is Nothing Then
        MsgBox "Firma seçmelisiniz"
        Exit Sub
    End If

    If TextBox5 = "" Then
        MsgBox "TARİHİ GİRMEDİNİZ.!!", vbExclamation, "EKSİK BİLGİ"
        Exit Sub
    End If
    If TextBox2 = "" Then
        MsgBox "AÇIKLAMA YAZMADINIZ.!!", vbExclamation, "EKSİK BİLGİ"
        Exit Sub
    End If

    sonsat = [a65536].End(3).Row + 1
    Cells(sonsat, 1) = sonsat - 1
    Cells(sonsat, 2) = TextBox1.Value
    Cells(sonsat, 3) = TextBox2.Value
    Cells(sonsat, 4) = CDate(TextBox5)
    Cells(sonsat, 5) = TextBox3.Value
    Cells(sonsat, 6) = TextBox4.Value

    MsgBox ComboBox1.Text & "   Modelinden   " & TextBox1.Value & " " & "Adet Depo Girişi Yapıldı..", vbInformation, "SİSTEM BİLGİSİ"
    TextBox1.Value = " "
    TextBox2.Value = " "
    TextBox3.Value = " "
    TextBox4.Value = " "
    TextBox5.Value = " "

End Sub

 

[pitsss]

OptionButton ları Frame2 nin içine koyup, aşağıdaki kodları da kullanabilirsiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    If Frame2.ActiveControl Is Nothing Then
        MsgBox "Firma seçmelisiniz"
        Exit Sub
    End If

    If TextBox5 = "" Then
        MsgBox "TARİHİ GİRMEDİNİZ.!!", vbExclamation, "EKSİK BİLGİ"
        Exit Sub
    End If
    If TextBox2 = "" Then
        MsgBox "AÇIKLAMA YAZMADINIZ.!!", vbExclamation, "EKSİK BİLGİ"
        Exit Sub
    End If

    sonsat = [a65536].End(3).Row + 1
    Cells(sonsat, 1) = sonsat - 1
    Cells(sonsat, 2) = TextBox1.Value
    Cells(sonsat, 3) = TextBox2.Value
    Cells(sonsat, 4) = CDate(TextBox5)
    Cells(sonsat, 5) = TextBox3.Value
    Cells(sonsat, 6) = TextBox4.Value

    MsgBox ComboBox1.Text & "   Modelinden   " & TextBox1.Value & " " & "Adet Depo Girişi Yapıldı..", vbInformation, "SİSTEM BİLGİSİ"
    TextBox1.Value = " "
    TextBox2.Value = " "
    TextBox3.Value = " "
    TextBox4.Value = " "
    TextBox5.Value = " "

End Sub

Cevabnız için ayrıca sizede teşekkür ederim. Sağolun...