اذهب الي المحتوي
أوفيسنا

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


calmgirl

الردود الموصى بها

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

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

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

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

End Sub

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

mes.JPG

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

وشكراً

رابط هذا التعليق
شارك

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

الخطأ هون

CustomerID = Forms![frmCustomers]![CustomerID]

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

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

تحياتي

تم تعديل بواسطه أمجد جمالي
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information