"Ne trouve pas la barre d'outils 'Visual Basic'"

bonjour
tu as une barre d'outils personnalisée, verifie le nom. Quel est le code du bouton sortie

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Didier Morandi" <no@spam.com> a écrit dans le message de news: bvist2$14om$1@biggoron.nerim.net...

Bonjour à _tous_,

Un formulaire d'impression d'un état, qd on clique sur le bouton d'impression,
affiche l'état avant impression, puis le message d'erreur "NomDeLappli ne trouve
pas la barre d'outils 'Visual Basic'", puis affiche deux boutons, "imprimer" et
"sortie" au milieu de l'écran. Si on clique sur "imprimer" ça marche. Si on
clique sur "sortie", il réaffiche le message d'erreur.

Le code du bouton "imprimer" est le suivant :

Private Sub B_imprimer_Click()
DoCmd.Close
DoCmd.OpenForm "Impression", , , acNormal, , acDialog
End Sub

Qu'en pense l'honorable assemblée ?
Merci.

D. butant

Pierre CFI [mvp] wrote:

bonjour tu as une barre d'outils personnalisée, verifie le nom.

Comment fais-tu ça ?

Quel est le code du bouton sortie

Private Sub B_quitter_Click()
DoCmd.Close acForm, "Impression", acSaveNo
DoCmd.OpenForm "MainCourante", , , , , acDialog
End Sub

Merci.

D.

re
la barre d'outils avec tes 2 boutons est une barre que tu as crée ? donc tu l'appelle qq part

quel message d'erreur sur ton bouton sortir ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Didier Morandi" <no@spam.com> a écrit dans le message de news: bvlo4s$2v44$1@biggoron.nerim.net...

Pierre CFI [mvp] wrote:

bonjour tu as une barre d'outils personnalisée, verifie le nom.

Comment fais-tu ça ?

Quel est le code du bouton sortie

Private Sub B_quitter_Click()
DoCmd.Close acForm, "Impression", acSaveNo
DoCmd.OpenForm "MainCourante", , , , , acDialog
End Sub

Merci.

D.

Pierre CFI [mvp] wrote:

re la barre d'outils avec tes 2 boutons est une barre que tu as crée ? donc
tu l'appelle qq part

Voila le source des deux boutons. Le message apparaît AVANT leur affichage et
après leur disparition.

Option Compare Database
Option Explicit

Private Sub BClose_Click()
On Error Resume Next
Dim Str As String
Str = Me.Name
If Not IsNull(Me.OpenArgs) Then
If Not IsError(Forms(Me.OpenArgs).Visible) Then
DoCmd.Close acReport, Me.OpenArgs, acSaveNo
End If
End If
Forms("Impression").Visible = True
DoCmd.Close acForm, Str, acSaveNo
End Sub

Private Sub BPrint_Click()
On Error Resume Next
Dim stDocName As String
stDocName = Me.OpenArgs
If IsError(Reports(stDocName).Visible) Then
Me.Visible = False
Else
DoCmd.OpenReport stDocName, acViewPreview
DoCmd.RunCommand acCmdPrint
End If
End Sub

Private Sub Form_Close()
Dim Test
Test = RESTO_MENUS()
End Sub

Private Sub Form_Load()
Dim Test
Test = INIT_MENUS()
DoCmd.MoveSize 400, 2000
End Sub

quel message d'erreur sur ton bouton sortir ?

NomDeLappli ne trouve pas la barre d'outils 'Visual Basic'

Merci.

D.

.../...
str est une fonction intégrée (transforme un num en texte), donc erreur
regarde dans les propriétés du form si tu as pas qq chose dans barre outils ou menu

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Didier Morandi" <no@spam.com> a écrit dans le message de news: bvmh3r$h98$1@biggoron.nerim.net...

Pierre CFI [mvp] wrote:

re la barre d'outils avec tes 2 boutons est une barre que tu as crée ? donc
tu l'appelle qq part

Voila le source des deux boutons. Le message apparaît AVANT leur affichage et
après leur disparition.

Option Compare Database
Option Explicit

Private Sub BClose_Click()
On Error Resume Next
Dim Str As String
Str = Me.Name
If Not IsNull(Me.OpenArgs) Then
If Not IsError(Forms(Me.OpenArgs).Visible) Then
DoCmd.Close acReport, Me.OpenArgs, acSaveNo
End If
End If
Forms("Impression").Visible = True
DoCmd.Close acForm, Str, acSaveNo
End Sub

Private Sub BPrint_Click()
On Error Resume Next
Dim stDocName As String
stDocName = Me.OpenArgs
If IsError(Reports(stDocName).Visible) Then
Me.Visible = False
Else
DoCmd.OpenReport stDocName, acViewPreview
DoCmd.RunCommand acCmdPrint
End If
End Sub

Private Sub Form_Close()
Dim Test
Test = RESTO_MENUS()
End Sub

Private Sub Form_Load()
Dim Test
Test = INIT_MENUS()
DoCmd.MoveSize 400, 2000
End Sub

quel message d'erreur sur ton bouton sortir ?

NomDeLappli ne trouve pas la barre d'outils 'Visual Basic'

Merci.

D.