رجاءً كيف أزيل رسالة الخطأ في الكود هذه ؟

[calmgirl]

السلام عليكم ورحمة الله

أتمنى منكم المساعدة في حل مشكلتي

ماهو الخطأ في هذا الكود:

Private Sub Form_Load()
    DoCmd.GoToRecord , , acNewRec
CustomerID = Forms![frmCustomers]![CustomerID]

End Sub

في كل مرة افتح فيها الفورم تظهر لي رسالة الخطأ هذه :

مع العمل ان فورم الزبائن موجوده!

وشكراً

[hyz]

ارفق قاعدة البيانات اذا امكن

[أمجد جمالي]

من بعد اذن الاخ hyz

الخطأ هون

CustomerID = Forms![frmCustomers]![CustomerID]

في هذا الكود تقومين بإسناد قيمة CustomerID من النموذ ج الحالي بنفس قيمة

CustomerID لنموذج يدعى frmCustomers وهذا النموذج مو موجود عندك في قاعدة البيانات او Spelling غير صحيح

تحياتي

تم تعديل ديسمبر 3, 2004 بواسطه أمجد جمالي

[calmgirl]

الفاضل ...hyz لا استطيع ارفق الملف لان حجمه كبير

الفاضل ..أمجد الجمالي شكرا لإجابتك لكني تأكدت من الإملاء وهي صحيحة وكذلك هذا النموذج موجود في قاعدة البيانات

لكن لا اعرف ماسبب المشكلة

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

أرجو المساعده

[أمجد جمالي]

طيب الأن وضحت

افتحي هذا النموذج frmCustomers

ومن ثم افتحي النموذج الثاني الذي يوجد الكود وجربي

[calmgirl]

سيدي الفاضل أمجد الجمالي

عندما فتحتهم الاثنين معا.... لم تظهر رسالة الخطأ !

ماذا افعل لكي تختفي رسالة الخطأ اذا فتحت النموذج الذي يحتوي الكود وحده؟

[أمجد جمالي]

ضعي هذا الكود في وحدة نمطية جديدة

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

[calmgirl]

الفاضل الرائع أمجد الجمالي

شكرا على سرعة الاجابة ....وشكرا جزيلاً على حل المشكلة

جزاك الله ألف خير ..

[أمجد جمالي]

اهلا وسهلا فيكي واشكرينا لما نقدم خدمة محرزة