Discussion :

[estancha]

rebonjour à tous,

est-ce que ça vous ai déjà arriver d'avoir un code fantôme,
j'avais créé un code sur fermeture du formulaire, mais j'ai l'impression qu'il est toujours actif???

estancha

[ypicot]

Qu'est-ce qui te fait dire qu'il est toujours actif ?
Comment le fermes-tu ?

Yvan

[DonFelipe]

Boooo... une histoire de fantôme ???
Mais aurais tu décidé de nous faire peur ce soir très chere ?
Il a raison Ypicot, dis nous en plus....

[estancha]

bonjour en ce gris dimanche,

en fait j'avais crée un code sur fermeture d'un formulaire qui en ouvrait un autre, j'ai supprimé le code en question, pour mettre un code sur clic d'un bouton qui envoie sur un autre formulaire, quand je clic sur le bouton il ouvre l'autre formulaire ou je ne veux plus aller????
j'ai bien regarder la page de code du formulaire mais je ne vois pas,
étrange...

merci,

estancha

[ptitdragon_eric]

A tout hasard,

N'aurais pas tu recopier le code qui était sur la fermeture dans le click du bouton et oublié de changer le nom du formulaire.

Sinon, met le code du click du bouton pour qu'on puisse t'aider.

Et dans le qque part en france, il fait très beau.

Aussi voici qques rayons pour mieux t'éclairer dans le projet lol

[argyronet]

Bonjour,

Peut-on avoir un aperçu du code en question ?

Argy

[Papy Turbo]

Chez moi, y a une phantôme qui met la radio en marche et ferme les portes... Mais elle n'a jamais touché au code.

Raconte...

Avec tous les anciens + nouveaux codes, please.

De +, tu pourais te servir d'un Stop (F9) dans ton code de fermeture, et tester en pas à pas, pour voir comment l'autre formulaire est ouvert par le fantôme ???

[estancha]

bonjour,

Je vois que les histoires de fantôme intringue énormément, Le nom du formulaire en question est "F_MAJ_Données_Fournisseur", voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub majtoconsult_Click()
On Error GoTo Err_majtoconsult_Click
 
    Dim intReponse As Integer
    Dim stDocName1 As String
 
    stDocName1 = "F_ConsultFournisseur"
 
    If Me.Dirty Then
 
        intReponse = MsgBox("Voulez-vous enregistrer ?", vbYesNoCancel, "Confirmation")
 
        Select Case intReponse
 
            Case vbYes
            DoCmd.OpenForm stDocName1
            With Forms(stDocName1)
            .SetFocus
            ![Numéro].SetFocus
            End With
            DoCmd.FindRecord Me.Numéro
            DoCmd.Close acForm, "F_MAJ_Données_Fournisseur"
 
            Case vbNo
            DoCmd.OpenForm stDocName1
            With Forms(stDocName1)
            .SetFocus
            ![Numéro].SetFocus
            DoCmd.FindRecord Me.Numéro
            End With
            DoCmd.Close acForm, "F_MAJ_Données_Fournisseur"
            Me.Undo
 
            Case vbCancel
            Cancel = True
 
        End Select
 
    Else
        DoCmd.OpenForm stDocName1
        With Forms(stDocName1)
        .SetFocus
        ![Numéro].SetFocus
        DoCmd.FindRecord Me.Numéro
        End With
        DoCmd.Close acForm, "F_MAJ_Données_Fournisseur"
     End If
 
Exit_majtoconsult_Click:
    Exit Sub
 
Err_majtoconsult_Click:
    MsgBox Err.Description
    Resume Exit_majtoconsult_Click
 
End Sub

A l'origine ce code s'activait sur fermeture, permettait de choisir si on sauvegardait et ouvrait un autre formulaire nommé "F_MAJ_Liste Fournisseurs", maintenant, il doit ouvrir le formulaire "F_ConsultFournisseur" (ce qui n'est pas le cas). j'ai un autre bouton qui permet d'ouvrir le formulaire "F_MAJ_Liste Fournisseurs" (qui marche très bien celui-là, même un peu trop). voili


merci,

estancha.

[ptitdragon_eric]

Pourquoi fermes tu

Code :

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

F_MAJ_Données_Fournisseur

S'il n'est pas ouvert

[estancha]

excuse-moi je n'ai pas été très clair :
le formulaire "F_MAJ_Données_Fournisseur" est le formulaire actif sur lequel j'ai le problème...

merci,

estancha

[estancha]

ça se passe toujours comme ça, quand on ne comprend pas, on met tout sur le dos du paranormal et d'un coup, tout s'explique : en fait mon formulaire avait un sous formulaire, où j'avais laissé l'ancien code!!!
je suis vrai une tanche,

estancha

[mumen]

Bonjour

Code :

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

Cancel = True

Devrait produire une erreur de compilation.

Code :

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

Me.Undo

Juste après avoir fermé le formulaire qui contient le code... c'est sensé servir à quoi ?

Pourquoi ne pas mettre Me.FormName si c'est le formulaire en cours que tu veux fermer ?

Une petite remarque : pourquoi ne pas identer les Whith/End With ? et tu indentes mal le Case/Select Case.

Pour la lisibilité, tu peux faire Me.Dirty = False pour forcer explicitement l'écriture de l'enregistrement.
Pour la même raison, tu pourrais faire un sous prog avec :

Code :

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

1
2
3
4
5
6
DoCmd.OpenForm stDocName1 
With Forms(stDocName1) 
    .SetFocus 
    ![Numéro].SetFocus 
End With 
DoCmd.FindRecord Me.Numéro

Mathieu

[DonFelipe]

....boooooo... il me semblait bien qu'l y a des phantômes dans les catacombes d'ACCESS..... ................

Au fait Estancha, voici MON conseil du jour : relis ma signature et essaye de la retenir.... hihiih....

...........

[ptitdragon_eric]

Don Felipe.

Effectivement, ta signature est une vérité limpide, je la constate tous les jours

[DonFelipe]

ET OUAIS !!! FALLAIT LA TROUVER !!!!


...............

[DonFelipe]

Oupsss...... .......un petit excès de MEGALO !!!

....