Discussion :

[MuadDib_II]

J'ai un formulaire avec deux Buttons:

Le premier ouvre un autre Formulaire, par biais d'une Macro, que verifie la valeur du champs TEXT_AG2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub MODIF_Click()
 
If ag_glo = 0 Then Forms!F_renov!TEXT_AG2.Value = InputBox("Entrez le code d'agence")
 
    stDocName = "M_renov_lim_modif"
    DoCmd.RunMacro stDocName
 
End Sub

Le deuxiémé button, ouvre un Etat, aussi par biais d'une Macro, et elle verifie la valeur du meme champ, TEXT_AG2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub resume_Click()
 
If ag_glo = 0 Then Forms!F_renov!TEXT_AG2.Value = InputBox("Entrez le code d'agence")
 
    stDocName = "M_ouv_E_res_prop_ag"
    DoCmd.RunMacro stDocName
 
End Sub

Mon probléme est sur l'inputbox: lorsque je click sur Cancel de la premier Inputbox, il marcje bien. Si je click sur Cancel de la deuxiémé Inputbox, j'ai un error message.

Est-ce que quelqu'un sait pour quoi?

[mout1234]

Bonjour,


Je ne vois pas l'intérêt de passer par une macro pour ouvrir ton formulaire ou ton état... mais bon ... je suppose que ton problème est lié à ce que tu fait de la valeur retournée par l'inputBox. Sans tout remettre en cause, il te suffira sans doute de tester la valeur de retour de l'inpubox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim sCode As String
 
 
sCode = InputBox("Entrez le code d'agence")
 
If sCode <> "" Then
    '.... ton code de lancement de ta macro
End If

[MuadDib_II]

Vraiment merci.

La Macro est, pour l'etat, utilisée car c'est le seule moyen que je connais pour n'imprimer pas directement, c'est-à-dire, ouvrir en mode de visualisation et pour le formulaire c'est pour l'ouvrir en mode de modification.

Merci encore un fois

[mout1234]

De rien

Si tu veux optimiser ton code, regardes du coté des paramètres de Docmd.OpenReport et DoCmd.OpenForm...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Docmd.OpenReport "Le nom de l'état",acViewPreview

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Docmd.OpenForm  "Mon Form",acNormal,,,acFormEdit

[MuadDib_II]

Il fait du sense, merci pour l'idée.