Access kan ikke lukkes ned korrekt??

How are you closing Access at the moment? You can place a buttin on the main form using the wizard. Here you can choose to EXIT Access. Although I do not think this is the problem. If you are making any connections in code the make sure they are all closed correcty.
Also if you are automating other Office applications, make sure you clean up after use.

buttin = button

and?

Hi Terry

I’m using the command ” DoCmd.Quit” to close the database. By the way, the front-end and back-end are linked together. I think you are right about not having closed the connection correctly, but how do I do that?

//Søren Landström

Are you just linking the tables from the database window or are you making a connection in code?

If you are just linking the tables through the dB window then docmd.close should be enough.

Otherwise it is BEST to close recordsets and the dB and then set the object to Nothing
EXAMPLE:
rs.close
db.close
set rs = Nothing
set db = Nothing

Søren, you dont need to reject any answers until you are ready to close the question. Then you can either reject or accept the answers given. This saves us having to place an answer again and we can just give a comment, although it doesnt really matter. I think it wil save you some time though!

Hi Terry

Sorry about rejecting the answer!!

To close my program I now use the function:

Function AfslutProgram()
On Error GoTo AfslutProgram_Err
    DoCmd.Close acTable, "adh_opg"
    DoCmd.Close acTable, "adh_opg_del"
    DoCmd.Close acTable, "adh_opg_fas"
    DoCmd.Close acTable, "dri_rap"
    DoCmd.Close acTable, "dri_rap_opg"
    DoCmd.Close acTable, "eks_tur"
    DoCmd.Close acTable, "dis"
    DoCmd.Close acTable, "bru"
    DoCmd.Quit

AfslutProgram_Exit:
    Exit Function

AfslutProgram_Err:
    MsgBox Error$
    Resume AfslutProgram_Exit

End Function

Sometime I can close and sometime I can't close correctly. Can it be because it takes long time to close linked tabel over the local network?

you still dont say HOW you are attaching to the tables!

Access will close any link IF they are just normal linked tables, you do NOT need these
DoCmd.Close acTable, "bru"

I have just linked the tables manually from the database window!!

PS: If I just open the dB and then close it again it's OK. But if I open forms and look / modify data then I have the problem???

drop all lines
DoCmd.Close acTable .....

Then I'm back to were I started :-(

Is it possible for you to send the dB and backend db to me?
eksperten@santhell.dk

The lines
Docmd.close acTable .... should NOT be necessary!

Søren, I dont seem to have any problems although I may not have changed much at all with the alterations you have made so that I can use the program.

If you copy the backend to your local drive do you still have the problems?

One way to provoke an error is to:
1)    Open dB
2)    Push button “Stamdata”
3)    Chose “Fredericia Transport”
4)    Change some data
5)    Exit

It “works” for me every time

Another way:

1) Open…
2) Set dato =”04-12-2002” and kørselsgruppe =”FAT”
3) Push ”Opdater”
4) Double click    ”opgave-nr.” or “tur-nr” to open and change data
5) Exit

This will provoke the error some times. And before I added the close commands it gave error almoste every time.


//SL

On my local drive it seems to be harder to provoke the error, but the first way i described gives me problems every time

I'll try it and get back

OK, I can provoke the problem so I have something to look at now. I think you can be sure though, that it is NOT your network!

well here is your problem! I have NO IDEA, what it is you are trying to do here so I can not make any suggestions as to what you should do instead. If you remove these lines you get no problem! You can see the lines I have commented out.
What I dont understand is that you are passiing the contents of Forms![f_stam_1]![f_stam_bru].Form![team] which is a text value to, which in some cases contains NULL, to a function which is especting an object of some sort. Then your trying to set ctlList which is a control to point at this object (which may be NULL) and then requery it!!!! So I have to ask, what is it your trying to do?

FORM = f_stam_1

Private Static Function OpdaterKombi(feltnavn As Object)
Dim ctlList As Control
   
    'Set ctlList = feltnavn
    'ctlList.Requery
End Function

    'Opdater disponereingsoversigten
'----------------------------------------------------------------------------
Private Sub OpdaterDispo()
On Error GoTo Opdater_Err

        'OpdaterKombi (Forms![f_stam_1]![f_stam_bru].Form![team])
       
   
Opdater_Exit:
    Exit Sub

Opdater_Err:
   
    MsgBox Error$
    Resume Opdater_Exit

End Sub

Søren have you looked at this?

Yes....and you are right :-) I just deleted the code and now I can open "Stamdata" and restart the system without problems.

But I sill have the other problem:

1) Open…
2) Set dato =”04-12-2002” and kørselsgruppe =”FAT”
3) Push ”Opdater”
4) Double click    ”opgave-nr.” or “tur-nr” to open and change data
5) Exit

I will send you a nother set of back and front-end where I'm sure you will se the problem, OK?

søren>It took me over and hour to fincd this problem, and it may take me just as long for the next. I am guessing that you have roughly the same problem here too so it was maybe an idea to try and find it yourself.

You know your program better than I do so you should be able to debug your way through the program. The error will VERY likley be in the form you are setting the date field. Comment out as much as possible, now the error shouldnt occur.  Then start un-commenting until the error occurs and you should now see the problem. It just takes time :o)

Terry> Thanks for the advices. By the way... did you get the 60 points?

no, not yet! You need to accept my answer.

:o)