تقييم الموضوع :
  • 2 أصوات - بمعدل 3.5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة
#1
Sad Huh البرنامج لا يقوم بعمل حفظ في الداتا بيس اكسيس مع انه يقوم بفتحها

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


الملفات المرفقة
.rar   project.rar (الحجم : 313.48 ك ب / التحميلات : 168)
الرد
تم الشكر بواسطة:
#2
التحميلات 8 مرات والردود 0 لمن حملوا المرفق ولم يجيبوا على السائل اقل شيء ارفعوا موضوعه برد
اما بالنسبة للحل ففي زر الحفظ

PHP كود :
If Txt1.Text "" Then MsgBox "يجب ادخال الرقم الوطني للمالك أولاً"vbCritical"": Exit Sub 
التغيير في زر الحفظ وزر التعديل

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

بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: aseelja
#3
شكرااا جزيلا
حليت هاي المشكلة وتقدمت بالحل الحمد لله تواجهني حاليا مشكلة type mismatch Sad

لما ادخل كمدير على البرنامج واختار اسم اي مستخدم تاني من الكومبو بوكس بيطلعلي هاد الخطأ

وهي رفعت التطور في البرنامج بالمرفقات

مش راضي يبعته بيحكيلي انو حجمه كبير Sad(
الرد
تم الشكر بواسطة:
#4
هي رابط الملف ع الفور شيرد

http://www.4shared.com/rar/g974laZe/aseel.html
الرد
تم الشكر بواسطة:
#5
المشكل عندك في هذا الكود
PHP كود :
Private Sub Combo2_Click()
rs.Index = ("الاسم"): rs.Seek "="Combo2.Text
If rs.NoMatch Then Exit Sub
Combo2
.Text rs("الاسم")
Combo1.Text rs("كلمة السر")
Check1.Value = ("حفظ")
Check2.Value rs("بحث")
Check3.Value rs("تعديل")
Check4.Value rs("حذف")
Check5.Value rs("التقرير")

End Sub 
و بالظبط هذا السطر
PHP كود :
Check1.Value = ("حفظ"
إذ أن Check1.Value لا تقبل الحروف
و الواضح أنك كنت تقصد
PHP كود :
Check5.Value rs("حفظ"
بالتوفيق
منقطع .. للدراسة Confused
الرد
تم الشكر بواسطة: aseelja
#6
شوي تركيز بس
لما اعطاك رسالة الخطأ اكيد راح يظلل الخطأ باللون الاصفر تتبع الخطأ وراح تحل مشكلك نفسك

PHP كود :
Private Sub Combo2_Click()
rs.Index = ("الاسم"): rs.Seek "="Combo2.Text
If rs.NoMatch Then Exit Sub
Combo2
.Text rs("الاسم")
Combo1.Text rs("كلمة السر")
Check1.Value rs("حفظ")
Check2.Value rs("بحث")
Check3.Value rs("تعديل")
Check4.Value rs("حذف")
Check5.Value rs("التقرير")

End Sub 

الخطأ كان هنا
Check1.Value = ("حفظ")
والتصحيح
Check1.Value = rs("حفظ")
بالتوفيق أخي
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: aseelja
#7
جزاكم الله خيرا Smile
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] بشرى سارة الان يمكن تنصيب Microsoft Visual Basic 6.0 على احدث إصدارات الوندز وبدون Microformt 6 3,248 09-05-21, 03:36 AM
آخر رد: awidan76
  [سؤال] ما أسهل أصدار من الفجول يمكن الانتقال إليه بعد 6 Ahmed abdallah 1 186 09-05-21, 03:31 AM
آخر رد: awidan76
  [vb6.0] كيف يمكن التمييز الاصناف المكرره بلون مميز باستخدام mshflexgrid mhqom2020 4 292 09-05-21, 03:29 AM
آخر رد: awidan76
  مشكلة في sql2005 VB6 ابو محمد وماريا 1 223 08-03-21, 10:14 PM
آخر رد: Amir_Alzubidy
  عندي مشكلة وهي عند تصدير ملف إكسل rami_cis 0 353 16-12-20, 12:28 AM
آخر رد: rami_cis
  أريد من ذوي الخبرة تزويدي ببرنامج ترتيب الكود في فيجول بيسك rami_cis 4 575 24-11-20, 04:07 AM
آخر رد: rami_cis
  السلام عليكم اخوانى الاحباب بالنسبة للطباعة mhareek 3 641 22-07-20, 06:52 PM
آخر رد: awidan76
  هل يمكن عمل back up من جهاز مستخدم رفيق النجار 1 636 14-05-20, 10:21 PM
آخر رد: ahmedabdelaliem
Lightbulb [SQL] اول مشاركة السلام عليكم عندي نتائج من جدولين ظاهرين على dbgrid Mhqom 2 742 14-03-20, 01:04 PM
آخر رد: Mhqom
  [سؤال] المساعدة فى عمل برنامج المصحف الملعلم - كيف ادماج ملف صوتى battman2020 1 602 28-02-20, 04:41 PM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم