التأكد من وجود حقل في جدول

مرحبا

افتح الرابط التالي فقد يكون هو المطلوب

التأكد من وجود اسم في جدول وعرضه في الرسالة

أخي الكريم

المثال السابق يقوم بفحص وجود بيانات مكررة

انا اريد التاكد من بنية الجدول وهل يحتوي على الحقل ام لا

اليك المثال التالي الذي يوضح لك معرفة الحقول في الجداول برمجيا

TablesAndFields.rar

اختكم

زهره

l-omari كتب:

فحص فيما اذا كان جدول معين يحتوي على حقل باسم معين

خي الكريم l-omari

وبعد اذن الاستاذة زهرة...

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

test.rar

لم تعمل الروابط معي

اخي الفاضل

المرفقات مضغوطه ببرنامج WINRAR عليك تثبيته لديك ومن ثم فك الضغط عنها وسوف تعمل معك ان شاء الله تعالى

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

اخي الكريم تستطيع ان تستخدم احد الدالتين التاليتين

Function FieldExist(TableName, FieldName) As Boolean
On Error GoTo Err_Handler
	FieldExist = True
	Dim fld As Field
	Set fld = CurrentDb.TableDefs(TableName).Fields(FieldName)
Exit Function
Err_Handler:
	FieldExist = False
End Function

Function FieldExist2(TableName, FieldName) As Boolean
On Error GoTo Err_Handler
	FieldExist2 = True
	Dim Tbl
	Set Tbl = CurrentDb.OpenRecordset(TableName)
	For Each fld In Tbl.Fields
	   If LCase(fld.Name) = LCase(FieldName) Then
		  Tbl.Close
		  Exit Function
	   End If
	Next
	FieldExist2 = False

Exit Function
Err_Handler:
	FieldExist2 = False
	Tbl.Close
End Function

شكرا جزيلا أخي Mo7eb_Alrasool

والى جميع الاخوة طبعا