الأرقام وشرحها؟

اخي الفاضل

ستجد ما تبحث عنه في هذا الرابط

/index.php?showtopic=85572

في مشاركة اصنع اخطاء الاكسيس بنفسك وستجد مثال به اكثر من 3000 خطأ مع الشرح

اما ما يخص مربع التحرير والسرد او مربع القائمة عندما تريد اضافة بيانات جديده اليها وتظهر لك رسالة لا توجد هذه القيمه في القائمة ومن ثم لا تستطيع الاضافة لذلك هناك حل لهذه المشكلة :

لنفرض ان لديك جدول اسمه MyTable

ويوجد به احد الحقول اسمه Company

وتريد عرض حقول هذه الشركات في مربع تحرير وسرد او مربع قائمة ولكن يوجد اختيار في مربع التحرير والسرد هو التزام بالقائمة وهذا يمنع من اضافة اي بنود او شركات جديده اذن الحل هو ان نضع هذا الكود في حدث عند عدم وجود في القائمة

Dim strsql As String, x As Integer
x = MsgBox("القيمة المدخلة غير موجودة سابقاً ... هل ترغب في إضافتها ؟", vbYesNo)
If x = vbYes Then
	strsql = "Insert Into MyTable ([Company]) values ('" & NewData & "')"

	 MsgBox "تم أضافة القيمة", vbOKOnly, "تنبيه"
	CurrentDb.Execute strsql
	 Response = acDataErrAdded
End If

اختكم

زهره