Discussion :

[Invité]

Bonjour à tous,

J'ai un gros problème de plantage d'Access, a cause d'un formulaire !?

Ce formulaire est basé sur une table "Tbl Opérations", et contient un sous-formulaire lié par "NumOP".
J'ai créé une liste déroulante modifiable "ListeOP", qui "After update" va positionner l'enregistrement sur "NumOP" trouvé.

Dans cette liste on peut saisir un nouveau numéro et sur l'évènement "NotInList" créé un nouvel enregistrement dans "Tbl Opérations", par une requête ajout !
Et c'est après qu'intervient le soucis de plantage !
Voici mes proc :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub ListeOP_AfterUpdate()
  ValOP = Me.ListeOP.Value
  ' Rechercher l'enregistrement correspondant au contrôle.
  Dim Rs As Object
  Set Rs = Me.Form.RecordsetClone
  Rs.FindFirst "[NumOP]= '" & ValOP & "'"
  If Not Rs.EOF Then Me.Form.Bookmark = Rs.Bookmark
  Rs.Close: Set Rs = Nothing
End Sub

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
Private Sub ListeOP_NotInList(NewData As String, Response As Integer)
  If MsgBox("Ce numéro d'Affaire n'existe pas" & vbCrLf _
    & "Voulez-vous le créer ?", vbQuestion + vbYesNo, "Question ?") = vbYes Then
    ' Si la réponse est oui on créé la nouvelle Affaire
    strSQL1 = "INSERT INTO [Tbl Operations] ( NumOP ) "
    strSQL2 = "SELECT '" & NewData & "' ;"
    DoCmd.SetWarnings (False): DoCmd.RunSQL (strSQL1 + strSQL2): DoCmd.SetWarnings (True)
    DoCmd.OpenForm "XFrm AjoutOP", acNormal, , "[NumOP]= '" & NewData & "'", acFormEdit, acDialog
    ' On empèche l'erreur
    Response = acDataErrAdded
    Me.ListeOP.Value = NewData
    Me.Form.Requery
  Else
    Response = acDataErrContinue
  End If
End Sub

Quand je fais : Me.Form.Requery, pour actualiser mon formulaire avec la nouvelle valeur ! CA PLANTE ! Mais vraiment sérieux !

Je ne comprends pas !

Quelqu'un à une idée !?

Cordialement.

Merci d'utiliser des titres explicites (ancien titre : Gros problème ...) | cafeine

[Alexandre Sahli]

il me semble que l'erreur viens de l'ouverture de ton sous formulaire:

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
Private Sub ListeOP_NotInList(NewData As String, Response As Integer) 
  If MsgBox("Ce numéro d'Affaire n'existe pas" & vbCrLf _ 
    & "Voulez-vous le créer ?", vbQuestion + vbYesNo, "Question ?") = vbYes Then 
    ' Si la réponse est oui on créé la nouvelle Affaire 
    strSQL1 = "INSERT INTO [Tbl Operations] ( NumOP ) " 
    strSQL2 = "SELECT '" & NewData & "' ;" 
    DoCmd.SetWarnings (False): DoCmd.RunSQL (strSQL1 + strSQL2): DoCmd.SetWarnings (True) 
' si c'est l'ouverture du sous formulaire c'est faux
' car ici tu ouvre un formulaire et le code reste dedans d'ou tes problème
'par contre tu peux faire
me.requery (mets à jour le formulaire principal
   Me.ListeOP.Value = NewData 
   me![sousformulaire].requery
' en parametrant la requête du sous form sur la liste déroulante
    DoCmd.OpenForm "XFrm AjoutOP", acNormal, , "[NumOP]= '" & NewData & "'", acFormEdit, acDialog 
    ' On empèche l'erreur 
    Response = acDataErrAdded 
 
   Else 
    Response = acDataErrContinue 
  End If 
End Sub

c'est je pense l'ordre dans le quel tu fais les opérations qui plante
A+

[Invité]

Bonjour Alexandre, et merci...

l'erreur ne vient pas de là, j'ai testé en mode débogage

L'instruction :

Code :

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

1
2
 
DoCmd.OpenForm "XFrm AjoutOP", acNormal, , "[NumOP]= '" & NewData & "'", acFormEdit, acDialog

Permet à l'utilisateur de saisir des informations complémentaires concernant la nouvelle affaire !

Ca plante dur à l'instruction :

Code :

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

Me.Form.Requery

Cordialement. 8)

[Alexandre Sahli]

remplace par le code suivant:

Code :

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

1
2
 
me.requery

[Invité]

Ok

mais quel est la différence ?

[Alexandre Sahli]

je ne connais pas la différence.

cependant me.requery recharge réactualise la requête de l'objet me (c'est à dire le formulaire actif)

[loufab]

Bonjour,

Jamais de requery durant un evenement Notinlist !

le dataerradd s'en charge.

[Invité]

Salut à toi au Grand Loufab

Jamais de requery durant un evenement Notinlist !

Effectivement ça ne laisse aucune chance à Access ;-)

Mais comment puis-je faire pour ré-actualiser mon sous-formulaire ?

Pour le moment j'ai créé un formulaire à part pour créer la nouvelle opération ! Dommage !

Cordialement.

[loufab]

Dans le cas ou ton sous-form ne contient pas cette combo (zone liste déroulante en français microsoft ) utilise cette syntaxe.

Code :

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

1
2
 
Me!Sous_form2.Form.Requery

Ps: bientôt à paraitre un tableau des appels VBA entre form, sous form, report, sous report.

Cordialement,

[Invité]

Salut 8)

Voilà, j'ai résolu mon problème !
J'avoue de façon un peu spéciale, mais ça fonctionne.

Dans mon Combo sur l'évènement "NotInList" je fais :
1) ouverture d'un formulaire nouvelle opération
2) fermeture du formulaire principal

Dans mon formulaire "Nouvelle opération" je ré-ouvre le formulaire principal après saisie et fermeture

Cordialement.