[zinom]

المثال معطوب

رجاء عند ضغط الامثله اغلق القاعده والملفات المرفقه

او اغلق المثال ثم قم بالضغط

كود :

 If Now.ToString("dd") = "01" Then
            If My.Settings.NameService1 = "" = False Then

                If MsgBox(NameServiceTextBox1.Text & " : سوف يتم بيع المنتج ", MsgBoxStyle.YesNo, "بيع المنتج رقم 1") = MsgBoxResult.Yes Then

                    My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                    NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                    Select Case False

                        ' الأمر الثاني
                        Case My.Settings.Day1Erad1 = ""
                            My.Settings.ClockSel1D2 = TextBox1.Text
                            My.Settings.DataSel1D2 = TextBox2.Text
                            My.Settings.NumberSel1D2 = NumberSelTextbox1.Text
                            My.Settings.MoneySel1D2 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                            My.Settings.Day1Erad2 = " عدد " & My.Settings.NumberSel1D2 & "  -  " & " الساعة " & My.Settings.ClockSel1D2 & "  -  " & " بتاريخ " & My.Settings.DataSel1D2 & "  -  " & " حساب " & My.Settings.MoneySel1D2 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                            My.Settings.Save()
                            My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                            NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                            Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4

                            ' الأمر الثالث
                        Case My.Settings.Day1Erad1 = ""
                            If My.Settings.Day1Erad2 = "" = False Then
                                My.Settings.ClockSel1D3 = TextBox1.Text
                                My.Settings.DataSel1D3 = TextBox2.Text
                                My.Settings.NumberSel1D3 = NumberSelTextbox1.Text
                                My.Settings.MoneySel1D3 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                                My.Settings.Day1Erad3 = " عدد " & My.Settings.NumberSel1D3 & "  -  " & " الساعة " & My.Settings.ClockSel1D3 & "  -  " & " بتاريخ " & My.Settings.DataSel1D3 & "  -  " & " حساب " & My.Settings.MoneySel1D3 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                                My.Settings.Save()
                                My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                                NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                                Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4
                            End If

                            ' الأمر الرابع
                        Case My.Settings.Day1Erad1 = ""
                            If My.Settings.Day1Erad2 = "" = False Then
                                If My.Settings.Day1Erad3 = "" = False Then
                                    My.Settings.ClockSel1D4 = TextBox1.Text
                                    My.Settings.DataSel1D4 = TextBox2.Text
                                    My.Settings.NumberSel1D4 = NumberSelTextbox1.Text
                                    My.Settings.MoneySel1D4 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                                    My.Settings.Day1Erad4 = " عدد " & My.Settings.NumberSel1D4 & "  -  " & " الساعة " & My.Settings.ClockSel1D4 & "  -  " & " بتاريخ " & My.Settings.DataSel1D4 & "  -  " & " حساب " & My.Settings.MoneySel1D4 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                                    My.Settings.Save()
                                    My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                                    NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                                    Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4
                                End If
                            End If

                        Case Else
                            ' الأمر الأول

                            'My.Settings.Day1Erad1 = ""
                            My.Settings.ClockSel1D1 = TextBox1.Text
                            My.Settings.DataSel1D1 = TextBox2.Text
                            My.Settings.NumberSel1D1 = NumberSelTextbox1.Text
                            My.Settings.MoneySel1D1 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                            My.Settings.Day1Erad1 = " عدد " & My.Settings.NumberSel1D1 & "  -  " & " الساعة " & My.Settings.ClockSel1D1 & "  -  " & " بتاريخ " & My.Settings.DataSel1D1 & "  -  " & " حساب " & My.Settings.MoneySel1D1 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                            My.Settings.Save()
                            Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4

                    End Select

                End If

            End If
        End If