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

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


الملفات المرفقة
.rar   project.rar (الحجم : 313.48 ك ب / التحميلات : 174)
الرد }}}
تم الشكر بواسطة:
#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 8 5,984 09-01-23, 07:50 PM
آخر رد: Taha Okla
  مشكلة الللغة العربية في تصدير اكتيف ريبورت الى PDF hannileo 3 730 25-10-22, 02:03 PM
آخر رد: hannileo
  مساعدة في هذا الكود layan2000 4 1,359 15-01-22, 09:58 PM
آخر رد: layan2000
  [vb6.0] كيف يمكن التمييز الاصناف المكرره بلون مميز باستخدام mshflexgrid mhqom2020 5 1,784 24-11-21, 11:53 PM
آخر رد: Mhqom
  [vb6.0] مشكلة فى قاعدة بيانات اكسس mohhasddx1 1 996 04-08-21, 10:12 AM
آخر رد: awidan76
  [سؤال] ما أسهل أصدار من الفجول يمكن الانتقال إليه بعد 6 Ahmed abdallah 1 1,108 09-05-21, 03:31 AM
آخر رد: awidan76
  مشكلة في sql2005 VB6 ابو محمد وماريا 1 1,166 08-03-21, 10:14 PM
آخر رد: Amir_Alzubidy
  عندي مشكلة وهي عند تصدير ملف إكسل rami_cis 0 1,098 16-12-20, 12:28 AM
آخر رد: rami_cis
  أريد من ذوي الخبرة تزويدي ببرنامج ترتيب الكود في فيجول بيسك rami_cis 4 2,124 24-11-20, 04:07 AM
آخر رد: rami_cis
  السلام عليكم اخوانى الاحباب بالنسبة للطباعة mhareek 3 1,585 22-07-20, 06:52 PM
آخر رد: awidan76

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


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