Clueless Newbie
Immortal. So far.
- Local time
- Tomorrow, 00:35
- Joined
- Feb 6, 2004
- Messages
- 48
Hi once again! 
I've just taken over a project from a colleague and have already encountered a strange problem: When I try to open a form in editing mode, I almost always get a message that I don't have exclusive access to the database (everything's stored on a local drive, mind you), so any changes I make may not be saved in the end - which indeed turns out to be the case.
When in debug mode, Access immediately jumps to the following function:
Private Function SubGruppeAbgleich() As Long
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Gruppen")
rs.FindFirst ("Gruppe='Abgleich'")
If rs.NoMatch Then
rs.AddNew
rs!Gruppe = "Abgleich"
SubGruppeAbgleich = rs!ID
rs.Update
Else
SubGruppeAbgleich = rs!ID
End If
End Function
Which looks fine to me, so far...
That being said, I also need to point out that this doesn't always happen. Sometimes, everything works just fine; but I have to open, close and re-open my database several times for that to finally happen. Toying with my general Access settings (i.e. setting the standard opening mode to "exclusively") hasn't made any difference whatsoever, I'm afraid.
What's wrong with that database or with my settings? What should I be looking out for? This stuff is costing me so much time...
Any help would be greatly appreciated. Thank you!
Ute
I've just taken over a project from a colleague and have already encountered a strange problem: When I try to open a form in editing mode, I almost always get a message that I don't have exclusive access to the database (everything's stored on a local drive, mind you), so any changes I make may not be saved in the end - which indeed turns out to be the case.
When in debug mode, Access immediately jumps to the following function:
Private Function SubGruppeAbgleich() As Long
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Gruppen")
rs.FindFirst ("Gruppe='Abgleich'")
If rs.NoMatch Then
rs.AddNew
rs!Gruppe = "Abgleich"
SubGruppeAbgleich = rs!ID
rs.Update
Else
SubGruppeAbgleich = rs!ID
End If
End Function
Which looks fine to me, so far...
That being said, I also need to point out that this doesn't always happen. Sometimes, everything works just fine; but I have to open, close and re-open my database several times for that to finally happen. Toying with my general Access settings (i.e. setting the standard opening mode to "exclusively") hasn't made any difference whatsoever, I'm afraid.
What's wrong with that database or with my settings? What should I be looking out for? This stuff is costing me so much time...
Any help would be greatly appreciated. Thank you!
Ute