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 (1) |
Tidak ada komentar:
Posting Komentar