Hello, I have a subform frmRequirementsSubform and when the user enters all the text fields on this continuous form its supposed to as you enter a date in txtDateCompleted on the subform it updates another subform and a textbox (txtCompletedInCompleteReq) on the current subform. This textbox reads 0 untill all txtDateCompleted have dates in them then it shows a 1. Once the last date is entered and it shows 1 here is where the issue is, its not running my function. If I play around and delete the date and enter the date then it runs my function so not sure whats going on. Not sure if I have right or not? I can post DB if needed..
Code:Private Sub txtDateCompleted_Change()
If Me.txtCompletedInCompleteReq > 0 Then
Me.Recalc 'Process any pending date completed changes
Me.Parent!frmEmployeeFunctionsSubform.Form!txtDateFunctionCompleted = Date
'Call module modOperatorPosition
Call SetLevel(txtParentFuncID, txtParentEmpID, txtParentDateFunctionCompleted)
Me.Parent!frmEmployeeFunctionsSubform.Requery 'Requery subform frmEmployeeFunctionsSubform
Me.Parent!frmEmployeeLevelSubform.Requery 'Requery subform frmEmployeeLevelSubform
MsgBox "Date Entered Test"
Else
Me.Recalc 'Process any pending date completed changes
Me.Parent!frmEmployeeFunctionsSubform.Form!txtDateFunctionCompleted = Null
Me.Parent!frmEmployeeFunctionsSubform.Requery 'Requery subform frmEmployeeFunctionsSubform
Me.Parent!frmEmployeeLevelSubform.Requery 'Requery subform frmEmployeeLevelSubform
MsgBox "Date Removed Test"
End If
End Sub