RE: [MS_AccessPros] One computer error

 

John,  doesn't work means that nothing happens, no error message.  I do get a statement at the bottom of the message that is a description of the first field on the form that is supposed to open. 

 

I tried compact and repair and there was no change.

 

It is just on one computer, which is actually running Access 2012.

 

Thank you for your help.

 

 

Bill Singer

 

  

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, May 4, 2017 2:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] One computer error

 

 

Bill-

 

Please explain what you mean by "doesn't work".  Does the form not open?  Does it open but with an error?

 

Also, have you compiled and saved the code on the "not working" computer?

 

John Viescas, Author

Effective SQL

SQL Queries for Mere Mortals 

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications 

http://www.viescas.com/ 

(Paris, France)

 

 

 

On May 4, 2017, at 9:51 PM, 'Bill Singer' Bill.Singer@at-group.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

 

I have Access 2016.  I have a Front end running on 4 computers with a BE on one server.

On one of my main forms on the FE I have a button that had the following code (this is part of the code).

 

Private Sub Command30_Click()

 

            DoCmd.RunCommand acCmdSaveRecord

            

    Select Case Me.ComTypID

        Case 8

             DoCmd.OpenForm "f_HealthRatesInput", WhereCondition:="ComCusID = " & Me.ComCusID

        Case 9

             DoCmd.OpenForm "f_LifeRatesInput", WhereCondition:="ComCusID = " & Me.ComCusID

        Case 10

             DoCmd.OpenForm "f_STDRateInput", WhereCondition:="ComCusID = " & Me.ComCusID

        Case 11

             DoCmd.OpenForm "f_LTDRateInput", WhereCondition:="ComCusID = " & Me.ComCusID

        Case 12

             DoCmd.OpenForm "f_DentalRatesInput", WhereCondition:="ComCusID = " & Me.ComCusID

 

Case Else

            MsgBox "Invalid Group Insurance Line"

   End Select

End Sub

 

 

 

This works perfect on every computer except one.  On one computer all of the options work except for 

 

Case 12

             DoCmd.OpenForm "f_DentalRatesInput", WhereCondition:="ComCusID = " & Me.ComCusID

 

 

Any idea as to why this would work on all the computers except one?

 

Thanks for your help.

 

 

Bill Singer

Minnesota

  

 

 

__._,_.___

---

Posted by: "Bill Singer" <Bill.Singer@at-group.net>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___