calmgirl قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 السلام عليكم ورحمة الله أتمنى منكم المساعدة في حل مشكلتي ماهو الخطأ في هذا الكود: Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec CustomerID = Forms![frmCustomers]![CustomerID] End Sub في كل مرة افتح فيها الفورم تظهر لي رسالة الخطأ هذه : مع العمل ان فورم الزبائن موجوده! وشكراً رابط هذا التعليق شارك More sharing options...
hyz قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 ارفق قاعدة البيانات اذا امكن رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 (معدل) من بعد اذن الاخ hyz الخطأ هون CustomerID = Forms![frmCustomers]![CustomerID] في هذا الكود تقومين بإسناد قيمة CustomerID من النموذ ج الحالي بنفس قيمة CustomerID لنموذج يدعى frmCustomers وهذا النموذج مو موجود عندك في قاعدة البيانات او Spelling غير صحيح تحياتي تم تعديل ديسمبر 3, 2004 بواسطه أمجد جمالي رابط هذا التعليق شارك More sharing options...
calmgirl قام بنشر ديسمبر 3, 2004 الكاتب مشاركة قام بنشر ديسمبر 3, 2004 الفاضل ...hyz لا استطيع ارفق الملف لان حجمه كبير الفاضل ..أمجد الجمالي شكرا لإجابتك لكني تأكدت من الإملاء وهي صحيحة وكذلك هذا النموذج موجود في قاعدة البيانات لكن لا اعرف ماسبب المشكلة هل من الممكن ان يكون الاكسس لم يفهم الكود لان اعمل على اكسس 2000 او ان هناك خطأ في كتابته الكود أرجو المساعده رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 طيب الأن وضحت افتحي هذا النموذج frmCustomers ومن ثم افتحي النموذج الثاني الذي يوجد الكود وجربي رابط هذا التعليق شارك More sharing options...
calmgirl قام بنشر ديسمبر 3, 2004 الكاتب مشاركة قام بنشر ديسمبر 3, 2004 سيدي الفاضل أمجد الجمالي عندما فتحتهم الاثنين معا.... لم تظهر رسالة الخطأ ! ماذا افعل لكي تختفي رسالة الخطأ اذا فتحت النموذج الذي يحتوي الكود وحده؟ رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 ضعي هذا الكود في وحدة نمطية جديدة Public Function IsOpen(ByVal strFormName As String) As Boolean ' Returns True if the specified form is open in Form view. Const conDesignView = 0 Const conObjStateClosed = 0 IsOpen = False If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> _ conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsOpen = True End If End If End Function ومن ثم عدلي الكود الذن عندك الى DoCmd.GoToRecord , , acNewRec If IsOpen("frmCustomers") Then CustomerID = Forms![frmCustomers]![CustomerID] End If رابط هذا التعليق شارك More sharing options...
calmgirl قام بنشر ديسمبر 3, 2004 الكاتب مشاركة قام بنشر ديسمبر 3, 2004 الفاضل الرائع أمجد الجمالي شكرا على سرعة الاجابة ....وشكرا جزيلاً على حل المشكلة جزاك الله ألف خير .. رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 3, 2004 مشاركة قام بنشر ديسمبر 3, 2004 اهلا وسهلا فيكي واشكرينا لما نقدم خدمة محرزة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان