Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Runtime Error: 2448

Status
Not open for further replies.

webcats2

Programmer
Oct 6, 2003
11
US
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?
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top