Charlotte Foust
cfoust at infostatsystems.com
Wed Sep 10 12:27:29 CDT 2003
None that I've ever found. The permissions live in the database file
itself and any Access file can join the workgroup, so it shouldn't cause
you any grief ... Unless, of course, you have hard coded the filename
somewhere. <G>
Charlotte Foust
-----Original Message-----
From: Don Elliker [mailto:delliker at hotmail.com]
Sent: Wednesday, September 10, 2003 9:12 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Problems renaming secured database
Are there any problems renaming a database that is secured thru A2K
Access
Security? Just thought I'd ask before I hose myself.
_D
"Things are only free to the extent that you don't pay for them".-Don
Elliker
>From: "Mcgillivray, Donald [ITS]"
><donald.a.Mcgillivray at mail.sprint.com>
>Reply-To: Access Developers discussion and problem
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem
>solving"<accessd at databaseadvisors.com>
>Subject: RE: [AccessD] Need help with Eval() function
>Date: Wed, 10 Sep 2003 11:58:30 -0500
>
>Stuart, that's exactly the thing! I modified your code sample to fit
>my situation, and it works like a charm.
>
>Thanks so much for the advice!
>
>This list is the best!
>
>Don
>
>-----Original Message-----
>From: Mcgillivray, Donald [ITS]
>Sent: Tuesday, September 09, 2003 4:19 PM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] Need help with Eval() function
>
>
>Very cool. My formulae do consist of field names and numbers only, so
>this should give me a good start in the right direction. They do come
>from different tables though, so I'll need to hammer on this for a bit
>before I get it to work.
>
>I've been working in Access97, and the Replace function appears not to
>be there. I can switch to XP with no real problem - assuming I'll find
>it there, along with more details about how to use it.
>
>Thanks for the assist! I'll let you know how it all works out.
>
>Don
>
>-----Original Message-----
>From: Stuart McLachlan [mailto:stuart at lexacorp.com.pg]
>Sent: Tuesday, September 09, 2003 4:03 PM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] Need help with Eval() function
>
>
>On 9 Sep 2003 at 17:12, Mcgillivray, Donald [ITS] wrote:
> > I have a table of material types that may be added to over time. I
> > want the cost calculation to be dynamic, such that when a new
> > material
>
> > type is added, the user can define the formula that will deliver its
> > cost. I intended to build a wizard-type form that would guide the
> > user through the creation of the formula by allowing the selection
> > of fields and operators. I wanted to store the formula string in
> > the material types table and use it to drive the cost calculation
> > when called. My main objective is to avoid having to open up some
> > custom function to insert new rules if a material type is added that
> > doesn't fit an existing cost formula; I want this to be hands-off
> > for me once I turn it over.
> >
> > Am I dreaming? Or is there another smarter way to do this?
> >
>
>If your formula consists of just fieldnames, numbers and operators,
>Eval() will still do it. But you will need to use it inside a function
>so that you can substitue the values for the fieldnames in the string
>before you evaluate it Here's a simple function I've just knocked up to
>do it. I an substituting 0 for Nulls. You may need to handle Nulls
>differently depending on how your formulae work.
>
>Also it will get slightly more complex if some of the values are stored
>in other tables - not that much harder, you just need to grab the
>fieldnames and values in a similar fashion from other tables.
>
>Function Cost(Formula As String, RecordNum As Long) As Currency
> Dim loopcount As Long
> Dim rs As Recordset
> Set rs = CurrentDb.OpenRecordset("Select * from TestTable where ID
>= " & RecordNum)
> Formula = UCase$(Formula)
> For loopcount = 0 To rs.Fields.Count - 1
> Formula = Replace(Formula, UCase$(rs(loopcount).Name),
>NZ(rs(loopcount),"0")
> Next
> Cost = Eval(Formula)
>End Function
>
>--
>Lexacorp Ltd
>http://www.lexacorp.com.pg
>Information Technology Consultancy, Software Development,System
>Support.
>
>
>
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
_________________________________________________________________
Fast, faster, fastest: Upgrade to Cable or DSL today!
https://broadband.msn.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com