حذف عمود من الجدول فى النموذج

أخي الكريم tatatab تحية طيبة وبعد ..

ضع هذا الكود في اي مكان داخل المودل الخاص بالنموذج من دون اي تغيير فيه

Sub deleteSingleColumnData(tableName_ As String, Optional columnName_ As String, Optional columnIndex_ As Integer)
	On Error GoTo han
	Dim rs As Recordset
	Dim ref As Variant


	If Not IsMissing(columnName_) Then
		ref = columnName_
		GoTo doProcess
	End If
	If Not IsMissing(columnIndex_) Then
		ref = columnIndex_
		GoTo doProcess
	End If
	If IsMissing(columnName_) And IsMissing(columnIndex_) Then Err.Raise (0)
doProcess:
	Set rs = CurrentDb().OpenRecordset(tableName_)
	With rs

	 While Not .EOF
		 .Edit
			.Fields(ref).Value = Null
			Debug.Print "Deleting data from " & .Fields(ref).NAME & " seting value to empty"
			.Update
			.MoveNext
	  Wend
	  End With

Exit Sub

han:
MsgBox "Error: can't do command"
End Sub

ثم ضع هذا الكود عند اغلاق النموذج او عند فتح النموذج من جديد

deleteSingleColumnData "أسم الجدول", "أسم الحقل1"
	deleteSingleColumnData "أسم الجدول", "أسم الحقل2"
	deleteSingleColumnData "أسم الجدول", "أسم الحقل3"
	deleteSingleColumnData "أسم الجدول", "أسم الحقل4"
	deleteSingleColumnData "أسم الجدول", "أسم الحقل5"

للمزيد من التوضيع ارفق مثالك لكي يتم التعديل فيه

أخوك sandanet