Discussion :

[illight]

Bonjour,

Suivant l'idée du tutorial de Caféine, j'ai créé un formulaire avec une zone de liste me permettant de lister un certain nombre de données.
Sur cette zone de liste, j'ai créé un évènement sur l'évènement double-click, qui me permet d'ouvrir une fiche de l'enregistrement cliqué, fiche étant faite à partir d'un formulaire instantané (comme Caféine).

Je voudrais, à partir de ce formulaire pourvoir supprimer l'enregistrement, fermer ce formulaire de modif, réactualiser ma zone de liste afin que le contrat supprimer n'apparaisse plus (forcément on l'a supprimé )

Pour cela, sur le code du bouton suppression j'ai écrit ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CmdDelete_Click()
Dim cmd As Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
If MsgBox("Voulez-vous vraiment supprimer ce contrat ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
Else
    cmd.CommandText = "DELETE FROM Value_Contract WHERE Contract = " & Me.Contract.Value & ";"
    cmd.Execute
    DoCmd.Close
    RefreshQuery
End If
End Sub

La refreshQuery tire la meme tete que celle de Caféine, implanté à moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT Contract,MaxdeSoldtoParty,SommedeNetPriceGood,MaxdeCurrency,MaxdeReno FROM Value_Contract WHERE SommedeNetPriceGood <=" & Form_FrmModifValueContract.ZtxtValue

'SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
'Me.lblTotalProblems.Caption = DCount("*", "ExtractWithGoodTitle", SQLInit) & " Problems"
'Me.lblStats.Caption = DCount("*", "ExtractWithGoodTitle", SQLWhere) & " / " & DCount("*", "ExtractWithGoodTitle", SQLInit)
FrmCheckingValueData.lstResultsValue.RowSource = SQL
FrmCheckingValueData.lstResultsValue.Requery
End Sub

(FrmModifValueContract est encore un autre formulaire d'ou je sors mon formulaire avec ma zone de liste)

Mon problème : ça supprime bien le contrat, par contre il me reste dans la zone de liste il m'écrit #supprimé#, et en plus il me plante sur la ligne en gras, il me dit :

Objet requis (je crois que c'est l'erreur 424)

Si je ferme le formulaire et que je réouvre par contre, la ligne a bien disparue au final

Quelqu'un a une idée de comment supprimer un enregistrement grace à un formulaire ?

Merci pour votre aide, par avance

[illight]

Ouf c'est bon j'ai trouvé !

J'ai en fait rafraichi ma zone de liste sur l'activation de mon formulaire où j'ai ma zone de liste