Re: moving to 2003 from 2k
- From: "BillCo" <coleman.bill@xxxxxxxxx>
- Date: 23 Mar 2006 03:35:25 -0800
If the user community doesn't stand up to MS, they'll next be telling us when we can go to the bathroom. "MS...MS...I need to do a #2!!!!" as we dance around clutching our groin area.
Wow... you've been eatin' offa dat lemon tree ain't ya!!! Although I do
agree. My own biggist gripe with MS is the complete drop of VB/ VBA
developer recogition in favour of .NET ...little off the topic of the
OP but it really gets my back up that there's no kind of certification
or official recognition of devlopers from older MS languages. it's the
lack of respect... anywho,
Back to the topic:
That's a great link you gave. Very useful thanks! Think I'll use that
code to work around the problem by having a login app that pulls the
latest version off the network if necessary and logs user in with low
security. I'm not comfortable setting the security low all the time on
all the PCs in the office...
To answer your questions about exclusive opening, here's some code I
nicked from somewhere that you can use as a check before you open to
ensure exclusivity:
Function DatabaseOpen(strDBName As String) As Boolean
'checks if database is already running
On Error GoTo errHandle
DatabaseOpen = True
Dim db As Database
Set db = DBEngine(0).OpenDatabase(strDBName, True) 'Try to open
exclusive
DatabaseOpen = False
exitFunction:
On Error Resume Next
db.Close
Set db = Nothing
Exit Function
errHandle:
Select Case Err.Number
Case 3356
' Database already opened
Case Else
MsgBox Err.Description & "Contact System Administrator",
vbOKOnly + vbCritical
End Select
Resume exitFunction
End Function
works great. I've never used the accessObject.OpenCurrentDatabase
command though - so I can say if it takes a switch or not.
.
- References:
- moving to 2003 from 2k
- From: BillCo
- Re: moving to 2003 from 2k
- From: Allen Browne
- Re: moving to 2003 from 2k
- From: BillCo
- Re: moving to 2003 from 2k
- From: salad
- moving to 2003 from 2k
- Prev by Date: Re: VBA reference problem
- Next by Date: Re: Access Ugrade SQL
- Previous by thread: Re: moving to 2003 from 2k
- Next by thread: undefined reference to `SQLConnect@28'
- Index(es):