Discussion :

[mattvin]

Bonjour,

J'ai fait une requete SQL qui marche et que j'appel en vba dans acces ce qui donne:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub sp_maj_tb_entre_reclamation(art_cod As String)
    Dim cmd As New ADODB.Command
    cmd.ActiveConnection = Application.CurrentProject.Connection
    cmd.CommandText = "sp_maj_tb_entre_reclamation"
    cmd.CommandType = adCmdStoredProc
    cmd.Parameters.Append cmd.CreateParameter("@ART_COD", adChar, adParamInput, 16, art_cod)
    cmd.Execute
    Set cmd = Nothing
End Sub

J'appel cette procédure sur l'evenement "AfterUpdate" d'une liste déroulante.

Code :

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

1
2
3
4
Private Sub Numero_d_article_AfterUpdate()
   Call sp_maj_tb_entre_reclamation(Left(Me.Numero_d_article.Value, 11))
   Me.Form.Requery
End Sub

Mon problème, c'est quand je change la valeur de ma liste déroulante, il ne me change pas les valeurs comme indiquer par mes procédure et ma requete SQl.

Donc avez-vous une idée pourquoi les champs ne se mettent pas à jour.

Merci d'avance pour votre aide.

Bonne journée.

[Jeannot45]

Je ne comprends pas trop !

Code :

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

 Me.Form.Requery

Où est la source du formulaire

[mattvin]

Code :

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

Me.Form.Requery

J'ai mis ceci dans l'espoir qu'il me raffraichisse ma page. En pensant que cela allait mettre mes champs à jour.

Le formulaire est basé sur une table, mais la liste déroulante et mes champs que j'essaye de mettre à jour sont basé sur une autre table mais les valeurs de ces champs sont enregistré dans ma première table (celle sur laquelle le formulaire est basé).

Bonne journée

[pier.antoine]

Bonjour.

En essayant juste ?

Code :

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

Me.Requery

Pierre

[mattvin]

En faite, j'ai supprimé ma requete SQL donc plus d'appel et j'ai fait autrement.

Donc voila. merci beaucoup.

Ps : Est-ce que je doit mettre résolu? Je doute étant donné que j'ai fait autrement et que j'ai passé outre le problème de base.