Left(Mink Operations,Len(Mink Operations)-Len(F:\Mink Program\SBGFF(Mink
Operations)))
Ok I have to confess I didn't write this code, I just copy and pasted it
from another form and changed some names to make it work.I am not an
experienced programmer just a wanabe. So would you show me how I would apply
it to this file, sorry for the inconvience
Thanks Blair
"Rick Brandt" <(E-Mail Removed)> wrote in message
news:VIush.2777$(E-Mail Removed)...
> Blair wrote:
> > I have 2 farms so I have 2 copies of the db in two different
> > directies, but when I put the farm name in one db it changes the name
> > of the other so both db's are using the same farm name file. I have
> > included the way I managed to save the farm name below. Does anyone
> > have a suggestion on how I can isolate each file.
> >
> > Thanks Blair
> >
> >
> > Option Compare Database
> > Option Explicit
> > Public FarmName As String
> >
> >
> >
> >
> > Private Sub Form_Load()
> >
> > Open "Farm Name" For Random As #1 Len = 50
> > Get #1, 1, FarmName
> > Close #1
> > Text1 = FarmName
> >
> > End Sub
> >
> >
> >
> > Private Sub Text1_AfterUpdate()
> > FarmName = Text1
> > Open "Farm Name" For Random As #1 Len = 50
> >
> >
> > Put #1, 1, FarmName
> >
> > Close #1 ' Close file.
> >
> > End Sub
>
> All you have to do is include a full path instead of just the file name.
You
> can use the following to get the path of where the MDB resides so that the
file
> will be created in the same folder...
>
> Left(currentDB.Name,Len(currentDB.Name)-Len(dir(currentDB.Name)))
>
> --
> Rick Brandt, Microsoft Access MVP
> Email (as appropriate) to...
> RBrandt at Hunter dot com
>
>
|