Different errors on different machines? 1

[JSD]

Hello

I am working with a db on a network with multiple users. There are four different computers using it.

I am running this code after update of a 'wc' control:

If DCount("[wc_code]", "dbo_rtemastr", "[wc_code]='" & Me!wc & "'") > 0 Then
'Do nothing
Else
MsgBox "This is not a valid workcenter."
Me!Text88.SetFocus
Me!wc.SetFocus
Me!wc.Value = ""

On the computer I am using, this procedure works as it should. If the value entered is not in the dbo_rtemastr, it prompts the msg box, resets focus to the control and clears out the old value. However, on at least one other computer using this db, when the value entered is not in the dbo_rtemastr table it gives errors and shuts access down. It prompts the msg box, but once I hit ok it gives errors and shuts down. Are there any settings I can change on this computer for a quick fix? The computer is stripped down--nothing but windows and this db is on it. I also think it is runnin Access Runtime. Could that make a difference? I really need help with this; it's creating errors.

Many thanks as always

Jeremy

 

[Edski]

Hi Jeremy,
While I may not be able to help you, as I don't have any experience with the Runtime version of Access, I suggest you post the exact error messages that are displayed so that others may be able to identify the source of the problem.
All the best!

 

[Hap007]

Jeremy,

Not sure if this will help, but Try this:

Dim iTest as Long
On Error Resume Next
iTest = DCount("[wc_code]", "dbo_rtemastr", "[wc_code]='" & Me!wc & "'")
If iTest > 0 Then
    'Do nothing
Else
    MsgBox "This is not a valid workcenter."
    Me.Text88.SetFocus
    Me.wc.SetFocus
    Me.wc.Value = ""
End If

Hap...

Access Developer

http://www.fcs-software.com/fcsaccessdev.html

Access based Add-on Solutions
Access Consultants forum

http://www.tek-tips.com/groups/accessDevelopers

 

[JSD]

Thanks Guys -- Works Great