السلام عليكم ورحمة الله وبركاته
صباحكم / مساكم رحمة وغفران ان شاء الله
انا عضوة جديدة سجلت بعد ما تعبت وانا ادور حل لمشكلتي
انا قريت مواضيع المنتدى الخاصة بمشكلتي بس برضو ما انحلت المشكلة
المشكلة هي كالتالي :
انا عملت برنامج عن طريق visual Basic 5.0
وربطته بقاعدة بيانات اكسس
عن طريق أداة الداتا
القاعدة تحتوي على جدولين
1/ جدول الطالبات: الرقم الجامعي(مفتاح رئيسي) / اسم الطالبة/ الكلية / التخصص/ الحالة الدراسية/ الحقل/ حالة السكن(طبعا اوبشين نعم واوبشن لا، وعملت تكست بوكس تظهر فيها مسمى الاوبشن اللي بتختارها وربطت التكتست بالحقل الخاص فيها بالقاعدة)
دا الجدول ربطته بالفورم الاول -وهو بيحتوي ع كل عناصر الجدول - في البرنامج وربطت لك حقل بالتكست او الكومبو تبعه
الاداة هون اسمها داتا1
2/ جدول معلومات المخالفات : الرقم الجامعي(مفتاح رئيسي عشان ربطت الجدولين ببعض) / المخالفة ونوعها/ تاريخ المخالفة وتاريخ انتهائها / جهة سحب البطاقة / عدد مخالفات الطالبة/ الاجراء المتبع
وطبعا ربطت الجدول دا بالفورم التاني -وبرضو بيحتوي على كل عناصر الجدول باستثناء الرقم الجامعي- في البرنامج كل حقل بالتكست تبعه
الاداة هون داتا2
لهون اوكيه مافيش مشاكل
تجي المشكلة عند كتابة زر الحفظ
لما جربت البرنامج ظهرت لي رسالة خطا
بتقول :
run-time error"3426"
This action was cancelled by an associated object
من بداية ماعملت الكود تبع الحفظ وعملت تشغيل ظهرت حذفت الكود ورجعت عملت العملية كلها من جديد وبرضو نفس الشي ماتغير شي بتظهر نفس الرسالة
الكود تبع الحفظ هو كالتالي :
Private Sub SaveCom_Click()
Data1.Recordset.AddNew
If Option1.Value = True Then
Text5.Text = "Yes"
Else
Text5.Text = "No"
End If
Data1.UpdateRecord
Data2.Recordset.AddNew
Data2.UpdateRecord
End Sub
داتا 1 هي ربط الفورم الاول بالجدول الاول
داتا2 الفورم التاني بالجدول التاني
انا ربطت التكست تبع كل البيانات من الخصائص لكن الاوبشن بس اللي عملته بالكود
باتمنى القى مساعدتكم ؟؟
ومعليش اذا كترت طلب بس باتمنى تساعدوني بكود البحث عن طريق الرقم الجامعي للطالبة
ولكم جزيل الشكر مقدما
وجزاكم الله الف خيرا بما تنفعون به غيركم
صباحكم / مساكم رحمة وغفران ان شاء الله
انا عضوة جديدة سجلت بعد ما تعبت وانا ادور حل لمشكلتي
انا قريت مواضيع المنتدى الخاصة بمشكلتي بس برضو ما انحلت المشكلة
المشكلة هي كالتالي :
انا عملت برنامج عن طريق visual Basic 5.0
وربطته بقاعدة بيانات اكسس
عن طريق أداة الداتا
القاعدة تحتوي على جدولين
1/ جدول الطالبات: الرقم الجامعي(مفتاح رئيسي) / اسم الطالبة/ الكلية / التخصص/ الحالة الدراسية/ الحقل/ حالة السكن(طبعا اوبشين نعم واوبشن لا، وعملت تكست بوكس تظهر فيها مسمى الاوبشن اللي بتختارها وربطت التكتست بالحقل الخاص فيها بالقاعدة)
دا الجدول ربطته بالفورم الاول -وهو بيحتوي ع كل عناصر الجدول - في البرنامج وربطت لك حقل بالتكست او الكومبو تبعه
الاداة هون اسمها داتا1
2/ جدول معلومات المخالفات : الرقم الجامعي(مفتاح رئيسي عشان ربطت الجدولين ببعض) / المخالفة ونوعها/ تاريخ المخالفة وتاريخ انتهائها / جهة سحب البطاقة / عدد مخالفات الطالبة/ الاجراء المتبع
وطبعا ربطت الجدول دا بالفورم التاني -وبرضو بيحتوي على كل عناصر الجدول باستثناء الرقم الجامعي- في البرنامج كل حقل بالتكست تبعه
الاداة هون داتا2
لهون اوكيه مافيش مشاكل
تجي المشكلة عند كتابة زر الحفظ
لما جربت البرنامج ظهرت لي رسالة خطا
بتقول :
run-time error"3426"
This action was cancelled by an associated object
من بداية ماعملت الكود تبع الحفظ وعملت تشغيل ظهرت حذفت الكود ورجعت عملت العملية كلها من جديد وبرضو نفس الشي ماتغير شي بتظهر نفس الرسالة
الكود تبع الحفظ هو كالتالي :
Private Sub SaveCom_Click()
Data1.Recordset.AddNew
If Option1.Value = True Then
Text5.Text = "Yes"
Else
Text5.Text = "No"
End If
Data1.UpdateRecord
Data2.Recordset.AddNew
Data2.UpdateRecord
End Sub
داتا 1 هي ربط الفورم الاول بالجدول الاول
داتا2 الفورم التاني بالجدول التاني
انا ربطت التكست تبع كل البيانات من الخصائص لكن الاوبشن بس اللي عملته بالكود
باتمنى القى مساعدتكم ؟؟
ومعليش اذا كترت طلب بس باتمنى تساعدوني بكود البحث عن طريق الرقم الجامعي للطالبة
ولكم جزيل الشكر مقدما
وجزاكم الله الف خيرا بما تنفعون به غيركم