Open Order Entry on specific Order - MS Access 1

[ajwonder]

Hi All,

I need to limit users to specific orders after hours.

The supervisor enters the available orders in a table and the user must only be able to process those orders.

I tried to use the default start position code, but this does not "filter" and display the selected order.

Example for PO: [OE did not compile as UIDSControls(33) is not recognised - hence tried with PO example]

Option Explicit
Dim WithEvents dsPO As ACCPACPO1210.ACCPACDSControl
Private Sub AccpacPO1210UICtrl1_OnUIAppOpened()
Set dsPO = AccpacPO1210UICtrl1.UIDSControls(10)
dsPO.Fields("PONUMBER") = "PO000000028"
End Sub


I have a public variable that feeds the PO number, but I can not find the controls that actually filter/select the PO Number on the Access form.

Do you also know how to disable the finder to prevent them from selecting other orders?

 

[Jay Converse]

This is a confusing post, not to mention a strange if not impossible business requirement. If you want to filter on an MS Access form, why are you using Accpac controls?

 

[ajwonder]

Hi Tuba,

I've developedd my app in MS Access. It is just faster than VB.net

I use the Accpac controls on a form and I have the full functionality of the Accpac Module. (OE1100)

Some clients do have strange requests, but if you spoil them, they have the tendancy to request stranger things as time goes by.

I can not use a straight recorded macro, because the order might have several lines and therefore need the full OE Order Entry screen to ship, changes quantities, and to invoice.

I do not need to filter on the Access form, but on the Accpac control on the form. It must only display the selected Order. That is why I asked if the finder can be disabled with vba code.

Hope this clear a few questions.

Regards

 

[Jay Converse]

Snippet from production code:

With Me.AccpacOE1100UICtrl
.UIAppControls("fecOEORDH_MultipleQuotes2").MacroVisibleFlag = False
End with

So my point is disable the standard, and add your own on top.

 

[ajwonder]

Hi Tuba - this looks promising!

Thanks. Will keep you posted.

 

[ajwonder]

Hi Tuba,

Works perfectly!

With Me.AccpacOE1100UICtrl
.UIAppControls("afeOEORDHordnumber").Value = MyDocNum
End With

Only still need to disable the 2 finders. Will let you know if I find the controls.

Thanks again.

 

[Jay Converse]

Run the AccpacUIInfo utility.

 

[DjangMan]

You can also look at the UI Data Source controls and trap the events. That way you can control what order a user and select and not select.