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
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
Qu'est-ce qui te fait dire qu'il est toujours actif ?
Comment le fermes-tu ?
Yvan
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....![]()
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
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![]()
Bonjour,
Peut-on avoir un aperçu du code en question ?
Argy
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 ???
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 :
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
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
merci,
estancha.
Pourquoi fermes tu
S'il n'est pas ouvert
Code : Sélectionner tout - Visualiser dans une fenêtre à part F_MAJ_Données_Fournisseur
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
ç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
Bonjour
Devrait produire une erreur de compilation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cancel = True
Juste après avoir fermé le formulaire qui contient le code... c'est sensé servir à quoi ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me.Undo
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 :
Mathieu
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
....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....![]()
...........![]()
Don Felipe.
Effectivement, ta signature est une vérité limpide, je la constate tous les jours
![]()
![]()
![]()
![]()
![]()
![]()
ET OUAIS !!! FALLAIT LA TROUVER !!!!
![]()
...............![]()
Oupsss.............un petit excès de MEGALO !!!
....![]()
![]()
![]()
![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager