Null textboxs on subform stopping VB until parent choice is made - ms-access

Question

I am getting a runtime error
Run-Time error 2427 You entered an expression that has no value.
I know why I am getting it I
just dont know how to fix it. ctrl1 and ctrl2 are on a subform and are two text boxes that do some If statements
on the form after this is ran so the text boxes are null or dont even have data yet. They are blank on the subform.
Here is my code:
Dim ctrl1 As Control
Dim ctrl2 As Control
Set ctrl1 = Me.Parent.frmRequirementsSubform.Form.txtSumOfCompleted
Set ctrl2 = Me.Parent.frmRequirementsSubform.Form.txtTotalRequirementsNeeded
If ctrl1 = ctrl2 Then
Call SetLevel(cboArea, txtEmpID, txtDateFunctionCompleted)
End If
Here is the Function it is calling...
Function SetLevel(lngFuncID As Long, lngEmpID As Long, varDateCompleted As Variant)
Dim lngPosID As Long
Dim lngEmpPosID As Long
Dim strSQL As String
Dim strCriteria As String
strCriteria = "EmpID = " & lngEmpID
If DCount("*", "tblEmployeeFunctions", strCriteria) = 8 Then
lngPosID = DLookup("PosID", "tblLevel", "Position = ""Operator 5""")
ElseIf DCount("*", "tblEmployeeFunctions", strCriteria) = 7 Then
lngPosID = 0
Exit Function
ElseIf DCount("*", "tblEmployeeFunctions", strCriteria) = 6 Then
lngPosID = DLookup("PosID", "tblLevel", "Position = ""Operator 4""")
ElseIf DCount("*", "tblEmployeeFunctions", strCriteria) = 5 Then
lngPosID = 0
Exit Function
ElseIf DCount("*", "tblEmployeeFunctions", strCriteria) = 4 Then
lngPosID = DLookup("PosID", "tblLevel", "Position = ""Operator 3""")
ElseIf DCount("*", "tblEmployeeFunctions", strCriteria) = 3 Then
lngPosID = 0
Exit Function
ElseIf DCount("*", "tblEmployeeFunctions", _
strCriteria & " And (FuncID = 1 Or FuncID = 2)") = 2 Then
lngPosID = DLookup("PosID", "tblLevel", "Position = ""Operator 2""")
ElseIf lngFuncID = 1 Or lngFuncID = 2 Then
lngPosID = DLookup("PosID", "tblLevel", "Position = ""Operator 1""")
End If
'Debug.Print "lngPosID: " & lngPosID
If lngPosID > 0 Then
lngEmpPosID = Nz(DMax("EmpPosID", "tblEmployeeLevel"), 0) + 1
strSQL = "INSERT INTO tblEmployeeLevel(EmpPosID, EmpID, PosID, DateAchieved) " & _
"VALUES(" & lngEmpPosID & "," & lngEmpID & "," & lngPosID & "," & _
IIf(IsNull(varDateCompleted), "NULL", "#" & Format(varDateCompleted, "yyyy-mm-dd") & "#") & ")"
CurrentDb.Execute strSQL, dbFailOnError
End If
End Function

Answer 1

If the controls are on the subform, just reference them straight out, Me.TextBox1 no need to crawl up to Me.Parent.SubForm.Form.TextBox1

Answer 2

If I have to guess you are using somewhere a function which doesnt allow Null values. #C Perkins is right we need more details about the error.
But you can make a check in your code if the textboxes are Null, and if not execute the code.
If IsNull(ctrl1) or IsNull(ctrl2) Then
ExitSub
Else
'Do Stuff
End If

Answer 3

First, frmRequirementsSubform must be the name of the subform control (could be different from the name of the subform).
Then, insert some lines to show the values, and tell us what you see:
Debug.Print "ctrl1: >" & ctrl1.Value & <", ctrl2: >" & ctrl2.Value & "<"
If ctrl1.Value = ctrl2.Value Then
Debug.Print "cboArea: >" & cboArea & "<, txtEmpID: >" & txtEmpID & "<, txtDateFunctionCompleted: >" & txtDateFunctionCompleted & "<"
Call SetLevel(cboArea, txtEmpID, txtDateFunctionCompleted)
End If
To compare also Null values, use for text:
If Nz(ctrl1.Value, "") = Nz(ctrl2.Value, "") Then
or, for numeric:
If Nz(ctrl1.Value, 0) = Nz(ctrl2.Value, 0) Then
Edit:
To check also for empty objects:
If Not (ctrl1 Is Nothing Or ctrl2 Is Nothing) Then
If Nz(ctrl1.Value, 0) = Nz(ctrl2.Value, 0) Then

Answer 4

Function SetLevel(lngFuncID As Long, lngEmpID As Long, varDateCompleted As Variant)
Dim lngPosID As Long
Dim lngEmpPosID As Long
Dim strSQL As String
Dim strCriteria As String
strCriteria = "EmpID = " & lngEmpID
If DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 8 Then
lngPosID = DLookup("PosID", "tblMetalShopLevel", "Position = ""Operator 5""")
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 7 Then
lngPosID = 0
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 6 Then
lngPosID = DLookup("PosID", "tblMetalShopLevel", "Position = ""Operator 4""")
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 5 Then
lngPosID = 0
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 4 Then
lngPosID = DLookup("PosID", "tblMetalShopLevel", "Position = ""Operator 3""")
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", strCriteria) = 3 Then
lngPosID = 0
ElseIf DCount("*", "qryMetalShopEmployeeFunctions", _
strCriteria & " And (FuncID = 1 Or FuncID = 2)") = 2 Then
lngPosID = DLookup("PosID", "tblMetalShopLevel", "Position = ""Operator 2""")
ElseIf lngFuncID = 1 Or lngFuncID = 2 Then
lngPosID = DLookup("PosID", "tblMetalShopLevel", "Position = ""Operator 1""")
End If
If lngPosID > 0 Then
lngEmpPosID = Nz(DMax("EmpPosID", "tblMetalShopEmployeeLevel"), 0) + 1
strSQL = "INSERT INTO tblMetalShopEmployeeLevel(EmpPosID, EmpID, PosID, DateAchieved) " & _
"VALUES(" & lngEmpPosID & "," & lngEmpID & "," & lngPosID & "," & _
IIf(IsNull(varDateCompleted), "NULL", "#" & Format(varDateCompleted, "yyyy-mm-dd hh:nn:ss") & "#") & ")"
CurrentDb.Execute strSQL, dbFailOnError
End If
End Function