I have two forms entering data into one table: Reviewer1 and Reviewer2. The form for Reviewer2 pulls in the reviewr1's data. I have mirrored data but reviewer2 reviews and enters the data a 2nd time. I have a auto poulated date. As you probably can tell this is a multiuser database. And I have split it.
I get the runtime error: 2448 at: Me.ReviewerDate2.Value = Now()
Here is the whole section of code. I am checking to see if they are authorized to edit after they are done.
Private Sub Form_Current()
Me.AllowEdits = True
Me.ReviewerDate2.Value = Now()
'check here to see if they're authorized.
Dim chkEdit As String
Dim stUser As String
stUser = fOSUserName()
chkEdit = DLookup("[authedit]", "tblLoginID", "[LoginID] = '" & stUser & "'"
If Not IsNull(Me.BLastName1) Then
If Not IsNull(Me.BFirstName1) Then
If Not IsNull(Me.LoanNum1) Then
If Not IsNull(Me.LoanAmount1) Then
If Not IsNull(Me.NoteDate1) Then
If Not IsNull(Me.ITIInvestor1) Then
If Not IsNull(Me.FICO1) Then
If Not IsNull(Me.LTV1) Then
If Not IsNull(Me.HRatio1) Then
If Not IsNull(Me.TDRatio1) Then
If Not IsNull(Me.Income1) Then
Me.AllowEdits = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If chkEdit = "y" Then
Me.AllowEdits = True
End If
Me.LoanNum2.SetFocus
End Sub
I am a new developer so write slowly
Yersterday only one or two people had this problem and today all 2nd reveiwers have this problem. I just checked and now they can get in to it with no error message. Could the system date or some other network system problem be affecting the database?
I get the runtime error: 2448 at: Me.ReviewerDate2.Value = Now()
Here is the whole section of code. I am checking to see if they are authorized to edit after they are done.
Private Sub Form_Current()
Me.AllowEdits = True
Me.ReviewerDate2.Value = Now()
'check here to see if they're authorized.
Dim chkEdit As String
Dim stUser As String
stUser = fOSUserName()
chkEdit = DLookup("[authedit]", "tblLoginID", "[LoginID] = '" & stUser & "'"

If Not IsNull(Me.BLastName1) Then
If Not IsNull(Me.BFirstName1) Then
If Not IsNull(Me.LoanNum1) Then
If Not IsNull(Me.LoanAmount1) Then
If Not IsNull(Me.NoteDate1) Then
If Not IsNull(Me.ITIInvestor1) Then
If Not IsNull(Me.FICO1) Then
If Not IsNull(Me.LTV1) Then
If Not IsNull(Me.HRatio1) Then
If Not IsNull(Me.TDRatio1) Then
If Not IsNull(Me.Income1) Then
Me.AllowEdits = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If chkEdit = "y" Then
Me.AllowEdits = True
End If
Me.LoanNum2.SetFocus
End Sub
I am a new developer so write slowly

Yersterday only one or two people had this problem and today all 2nd reveiwers have this problem. I just checked and now they can get in to it with no error message. Could the system date or some other network system problem be affecting the database?