منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

هذهـ صورة من قاعدة البيآنات الي عملتهآ

http://up.arab-x.com/May12/R0i75378.jpg

واستطعت أن أعمل للبرنامج ( اضافة ، وتعديل ، وحذف ) وربطها بقاعدة البيانات

بس ماقدرت اربط ( بحث و حفظ وطباعة ) يطلع لي خطاء كل مرة

وهل استطيع ان اضع قائمة بالاسفل يستخرج لي كافة المشاريع بدل مشروع مشروع


Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Refresh
End Sub

Private Sub Command3_Click()
On Error GoTo data_error
If MsgBox("هل تريد حذف السجل بالتأكيد؟", vbQuestion + vbYesNo, "تاكيد الحذف") = vbYes Then

Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
Exit Sub
data_error:
MsgBox "لم يبقى سجلات", vbCritical, "خطأ"
End Sub

.
.
.
للمعلومية اسم قاعدة البيانات ( جدول المشاريع الجارية )

مرفق لكم

جربت تضغط علي حفظ بدون وضع بيانات
جرب لان الكود اللي انت كاتبه ممكن يكون فيه مشكله اذا ضغط علي حفظ قبل ان تضغط علي ادخال جديد

السلام عليكم
ارسلي المشروع كامل وسوف نساعدك في حل مشكلتك ان شاء الله