أيضاً هذه فكرة أخرى للأستفادة من الحقل Numbr في جدولك ،
بحيث تكون قيمته هي المدة التجريبية التي بناءً على الفرق ( بعدد الأشهر ) سيتم اغلاق النموذج .
Sub AutoCloseFormAfterDuration()
Dim tableName As String
Dim fieldName As String
Dim dateFieldName As String
Dim durationInMonths As Variant
Dim recordValue As Variant
Dim currentDate As Date
Dim recordDate As Date
Dim diffInMonths As Integer
tableName = "table1"
fieldName = "numbr"
dateFieldName = "datss"
durationInMonths = Nz(DLookup(fieldName, tableName), 0)
If IsNumeric(durationInMonths) Then
recordValue = DLookup(dateFieldName, tableName)
If Not IsNull(recordValue) Then
currentDate = Date
recordDate = DLookup(dateFieldName, tableName)
diffInMonths = DateDiff("m", recordDate, currentDate)
If diffInMonths > durationInMonths Then
MsgBox "انتهت الفترة التجريبية", vbExclamation, "تحذير"
DoCmd.Close acForm, Me.Name
End If
End If
End If
End Sub