T
Terri
Hi - I've done a lot of searching on this error, and realize that it comes up
when your VBA code returns a wrong outcome. But what if the same code works
on one computer and not another?
I'm experiencing this with one of my databases. This error pops up in
certain places for some people, but not others who are sharing the same db.
I've checked versions of Access (2003 SP3)- same version, same service pack
updates. I've checked VBA's Library References - same references, same
version of VBA (6.5) I'm mystified!
The code is very simple, also. it looks for a text-style number in the
Status field, then fills in the StatusTxt box accordingly:
Private Sub Form_Current()
Dim strStatusCd As String
strStatusCd = Me![Status]
If strStatusCd = "01" Then
Me![StatusTxt].ForeColor = QBColor(4) 'Red
Me![StatusTxt] = "No Doc Letter-Subject Deceased"
End If
If strStatusCd = "02" Then
Me![StatusTxt].ForeColor = QBColor(1) 'Blue
Me![StatusTxt] = "VM Subject; Holding"
End If
If strStatusCd = "03" Then
Me![StatusTxt].ForeColor = QBColor(1) 'Blue
Me![StatusTxt] = "Unknown Institution; Checking"
End If
End Sub
Again, this works fine for me - but not for a couple of my users. I've also
checked to see if it's something to do with user rights - I've logged in on
their computers and logged into the db with my name, and the error pops up.
Any ideas?
when your VBA code returns a wrong outcome. But what if the same code works
on one computer and not another?
I'm experiencing this with one of my databases. This error pops up in
certain places for some people, but not others who are sharing the same db.
I've checked versions of Access (2003 SP3)- same version, same service pack
updates. I've checked VBA's Library References - same references, same
version of VBA (6.5) I'm mystified!
The code is very simple, also. it looks for a text-style number in the
Status field, then fills in the StatusTxt box accordingly:
Private Sub Form_Current()
Dim strStatusCd As String
strStatusCd = Me![Status]
If strStatusCd = "01" Then
Me![StatusTxt].ForeColor = QBColor(4) 'Red
Me![StatusTxt] = "No Doc Letter-Subject Deceased"
End If
If strStatusCd = "02" Then
Me![StatusTxt].ForeColor = QBColor(1) 'Blue
Me![StatusTxt] = "VM Subject; Holding"
End If
If strStatusCd = "03" Then
Me![StatusTxt].ForeColor = QBColor(1) 'Blue
Me![StatusTxt] = "Unknown Institution; Checking"
End If
End Sub
Again, this works fine for me - but not for a couple of my users. I've also
checked to see if it's something to do with user rights - I've logged in on
their computers and logged into the db with my name, and the error pops up.
Any ideas?