Hello Beth,

Here is the code where it goes.

This code is linked to a button which is supposed to print a label after that user finished his/her data entry. A flag is updated to know that a label was printed and statistics are updated after that.

The problem is : " Clicking or Enter on the button more than once and the reaction is a close up of the application and a shutdown of ACCESS.

Private Sub imprim_etiq_Click()

On Error GoTo Err_imprim_etiq_Click
    Dim stDocName As String
    Dim no_cl_curr As Integer

    stDocName = "Etiquettes"
--->
    DoCmd.OpenReport stDocName, acNormal

    maj_stat
    no_cl_curr = Forms![pochettes]![No-cl]
    DoCmd.RunSQL (" UPDATE Pochettes " & _
         " SET Pochettes.[etiq-poc-imprimee] = True " & _
         " WHERE (((Forms!Pochettes![no-cl])=Pochettes![no-cl]) " & _
         " And ((Pochettes![No-poc])=Forms!Pochettes![No-poc]));")
    Set Form_Pochettes = Nothing
    DoCmd.GoToRecord , , acNewRec
    Forms![pochettes]![No-cl] = no_cl_curr
    Dim ctl As Control
    Set ctl = Forms![pochettes]![no-poc]
    DoCmd.GoToControl ctl.Name

Exit_imprim_etiq_Click:
    Exit Sub

Err_imprim_etiq_Click:
    MsgBox "erreur lors de l'impression de l'etiquette"
    Resume Exit_imprim_etiq_Click
End Sub


Bassam Sater

Hi every body,

After a little serch in the help about Access 2002 and 2000, its seems to be a generation problem. THE MDE file must be generated under ACCESS 2000 if to be used within the two versions, the performance is also better under 2000.

Sorry that i disturbed all of you, i thought that its also up to me to tell you about what i found.

Thanks a lot,
Bassam

Bassam Sater