التاكد من اغلاق الشاشات

هذه هي الشفرة لعمل ذلك

Public Function FormLoadedByName(FormName As String) As Boolean
	Dim i As Integer, fnamelc As String
	fnamelc = LCase$(FormName)
	FormLoadedByName = False
	For i = 0 To Forms.Count - 1
	If LCase$(Forms(i).Name) = fnamelc Then
	  FormLoadedByName = True
	  Exit Function
	End If
	Next
End Function

ثم اعمل زر امر لتفحص النموذج رقم 2 اذا كان محمل ام لا

Private Sub Command1_Click()
	If FormLoadedByName("Form2") = True Then
	MsgBox "The Form is loaded"
	Else
	MsgBox "The Form is not loaded"
	End If
End Sub

مشكور يا الاخ HnHn

و ماذ بخصوص

كيف يمكن ان اعمل Sort لعامود في DateGrid