Kamis, 04 Mei 2017

Re: [MS_AccessPros] One computer error

 

Bill-

Try putting a halt in the code, open the form, select a value, and click the button.  Then single-step line by line to see if it's even getting to that statement.

John Viescas, author
Effective SQL
SQL Queries for Mere Mortals
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Access Applications

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

John,

Yes, I mean 2013.  I did the debug and compile, it compiled OK, I saved the database.  Still does not work.  The button only had a problem when the one specific "case" is picked and only on that one machine.

 

Strange

 

Bill

 

Bill Singer

  

 

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

 

 

Bill-

 

Ah, different version of Access.  Open the database on that computer, open the VB Editor, and choose Debug / Compile.  If it compiles OK, then click Save to save the compiled result.

 

It's not a good idea to try to run a database developed on one version on a machine with another version unless you make sure the code compiles OK on the target machine.

 

And do you mean Access 2013?  There is no 2012 version.

 

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 

(Paris, France)

 

 

 

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

 



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 

(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: John Viescas <johnv@msn.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)

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.


.

__,_._,___

Tidak ada komentar:

Posting Komentar