[AccessD] VBA Function with parameters

[Bill Benson]

I have even used Enums for colors.

Sometimes though when I try to pass in Enums to functions they don’t get
intellisense and cause unpredictable results, as do Types. Hopefully y’all
have better luck than I.

On Fri, Nov 5, 2021 at 2:08 AM Stuart McLachlan <stuart at lexacorp.com.pg>
wrote:

> Or even:
>
> Enum CarMakes
>    Ford = 1
>    Toyota = 2
>    Suzuki = 4
> End Enum
>
> Function SHowCar(cm As CarMakes) As Long
> Dim s As String
> If cm And 1 Then s = "Ford "
> If cm And 2 Then s = s & Toyota "
> If cm And 4 Then s = s & "Suzuki"
> MsgBox s
> End Function
>
> ...
> showcar(Suzuki or Toyota)
> ...
>
> On 5 Nov 2021 at 15:34, Stuart McLachlan wrote:
>
> > Yep, Intellisense groks ENUMS.
> >
> > Enum CarMakes
> >    Ford
> >    Toyota
> >    Suzuki
> > End Enum
> >
> > Function ShowCar(cm As CarMakes) As Long
> > Dim s As String
> > Select Case cm
> >    Case CarMakes.Ford: s = "Ford"
> >    Case CarMakes.Toyota: s = "Toyota"
> >    Case CarMakes.Suzuki: s = "Suzuki"
> > End Select
> > MsgBox s
> > End Function
> >
> > If you type "Showcar("   the VBE will give you the three options
> >
> >
> > On 5 Nov 2021 at 5:00, Paul Hartland via AccessD wrote:
> >
> > > See answer at bottom of this link, is this what you are after ?
> > >
> > > https://stackoverflow.com/questions/38250515/vba-restrict-function-a
> > > rg uments-to-only-selected-values
> > >
> > > Paul
> > >
> > > On Fri, 5 Nov 2021, 04:56 Borge Hansen, <pcs.accessd at gmail.com>
> > > wrote:
> > >
> > > > Hi,
> > > > How can I provide parameters to my own function similar to for
> > > > example:
> > > >
> > > > DoCmd.OpenQuery (QueryName, View, DataMode)
> > > > where DataMode is optional and can be one of these constants
> > > > acAdd
> > > > acEdit (default) - which I think allows for adding as well if the
> > > > query view make it possible acViewOnly
> > > >
> > > > So for example
> > > > function myFunction(param1, param2)
> > > >
> > > > where param2 is an optional parameter with a limited set of
> > > > values. When the function is being used elsewhere in the app, I
> > > > expect the limited set of values for param2 to appear, similar to
> > > > for example the docmd.openquery ...
> > > >
> > > > ??
> > > >
> > > > /borge
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>