اخواني الكرام أنا متطوع في عمل برنامج مصلحة خيري لمؤسسة تعاونية

 وأتمنى منكم مساعدتي قدر الامكان وأجركم عند الله مضاعف

(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

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

(10-07-19, 11:58 PM)ابراهيم ايبو كتب :

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

الملف لايحمل من الموقع يبدو فيه فيروس والله اعلم

اخي المشكلة في كود الحفط للبيانات عندك جرب تحفظ بدون  الصورة فقط البيانات 

وان ظهرت المشكلة عندها بوجد خلل في كود الحفظ 

دمت بألف خير

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

ضع كود نسخ الصورة في البداية لانه لاعلاقة له بأكواد حفظ البيانات فقط متزامن معه

(11-07-19, 12:33 AM)ابراهيم ايبو كتب : الع المتغير txt 
التحقق من الحقول اجعلها هكذا 

كود :

  If numeration.Text = "" Or annee.Text = "" Or TextBox3.Text = "" Then
           MsgBox("الرجاء ملئ الحقول خانة او اكثر لم يتم ملؤها")
           Return
       End If

       Dim EmpNum As String = numeration.Text & " - " & annee.Text