[الرائد]

(10-07-19, 09:56 AM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم رائد

ضع هذه السطور في نهاية الكود بعد End If اي بعد الانتهاء من الشروط كما ان كود حفظ الصورة مستقل يعمل قبل الحفظ

كود :

save_date()
           clearrr()
           MsgBox("تم الحفظ بنجاح")

وبذلك يكون الكود هكذا

كود :

Sub saving()
       Try
           dt.Rows.Add()
           Dim pos As String = dt.Rows.Count - 1
           dt.Rows(pos).Item(1) = ComboBox1.Text
           dt.Rows(pos).Item(2) = langcombx1.Text
           dt.Rows(pos).Item(3) = numeration.Text & " - " & annee.Text
           dt.Rows(pos).Item(4) = DateTimePicker1.Value
           dt.Rows(pos).Item(5) = TextBox3.Text
           dt.Rows(pos).Item(6) = TextBox4.Text
           dt.Rows(pos).Item(7) = TextBox5.Text
           dt.Rows(pos).Item(8) = TextBox6.Text
           dt.Rows(pos).Item(9) = RichTextBox1.Text
           If numeration.Text = "" Then
               MsgBox("ملئ خانة رقم 1 الشهادة واجب")
               Return
           End If
           If annee.Text = "" Then
               MsgBox("ملئ خانة رقم 2 الشهادة واجب")
               Return
           End If
           If TextBox3.Text = "" Then
               MsgBox("ملئ خانة الاسم واجب")
               Return
           End If

           Dim txt As String = " - "
           Dim EmpNum As String = numeration.Text & txt & annee.Text
           If String.IsNullOrEmpty(pathimg.Text) Then
               MessageBox.Show("الرجاء اختيار صورة")
               Return
           Else
               If File.Exists("image\" & EmpNum & ".jpg") Then
                   If MessageBox.Show("توجد صورة لها نفس الاسم هل تريد استبدالها ؟", "عذرا", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                       File.Delete("image\" & EmpNum & ".jpg")
                       File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
                   Else
                       Return
                   End If
               Else
                   File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
               End If
           End If
           save_date()
           clearrr()
           MsgBox("تم الحفظ بنجاح")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

يبقى التأكد من صب الحفظ الذي عندك ان كان فيه شيء
دمت بخير

شكرا لك / لازلت اعاني من نفس المشكل
أخي ابراهيم في الاول كنت قد وضعت الكود كما عدلته لي انت الان , ولم يعمل معي فقمت بتحديثه على الطريقة التي اشرت اليها أنا اعلاه , فاختفت بضع مشاكل , لكن تكرار المعلومات لازال يتكرر
الان قد ارفقت لكم كما اشار الي الاخ سعود اعلاه , ملف يمكنكم معاينته ومشاعدتي على حل المشكل 
- رجاءا الملف المرفق لم يتم قبوله في رفع المنتدى (7.8mb) فقمت برفعه على موقع الخليج بشكل مؤقت
https://www.gulf-up.com/e37k44eltdce