28-09-12, 12:03 AM
السلام عليكم
هذهـ صورة من قاعدة البيآنات الي عملتهآ
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
.
.
.
للمعلومية اسم قاعدة البيانات ( جدول المشاريع الجارية )
مرفق لكم
هذهـ صورة من قاعدة البيآنات الي عملتهآ
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
.
.
.
للمعلومية اسم قاعدة البيانات ( جدول المشاريع الجارية )
مرفق لكم