Discussion :

[lucas-18]

Bonjour,

J'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande59_Click()
If MsgBox("Do you really want to delete this record ?", vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then
             DoCmd.SetWarnings False
             DoCmd.RunCommand acCmdSelectRecord
             DoCmd.RunCommand acCmdDelete
             DoCmd.SetWarnings True
    End If
    Else
End Sub

Je n'arrive pas à supprimer l'enregistrement et j'ai un message d'erreur 2046

Command or action 'Select Record' isn't available now
et il me surligne la ligne en jaune.

Pourquoi cela ne marche pas ?

[rjamin]

Bonjour,

Et si vous mettez un ' devant cette ligne?

[loufab]

Bonjour,
La selection n'est pas toujours disponible.

Essaye plutot d'utiliser une méthode plus actuelle que la selection/suppression.

L'utilisation du recordset par exemple.

Code :

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

me.recordset.delete

Cordialement,

[lucas-18]

Bonjour,
La selection n'est pas toujours disponible.

Essaye plutot d'utiliser une méthode plus actuelle que la selection/suppression.

L'utilisation du recordset par exemple.

Code :

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

me.recordset.delete

Cordialement,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande59_Click()
If MsgBox("Do you really want to delete this record ?", vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then
             DoCmd.SetWarnings False
             Me.recordset.delete          
             DoCmd.SetWarnings True
    End If
    Else
End Sub

Comme ceci ???
Parce que là, j'ai une erreur 3021 : no current record
par contre si je sors du formulaire et que je reviens dedans ce message n'apparait pas
j'ai bien essayé de faire forcer l'enregistrement sur lostfocus d'un de mes champs mais ca ne marche pas :

Code :

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

1
2
3
4
5
6
Private Sub Comment_LostFocus()
If NewRecord And Not Dirty Then
    Recordset.AddNew
    Recordset.Update
End If
End Sub

[loufab]

Bonjour,

Bon le message est clair le record n'existe pas.

Maintenant il s'agit de savoir pourquoi :

- le record est en cour de création. Dans ce cas c'est

Code :

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

me.undo

qu'il faut utiliser.

- le code n'est pas dans le bon objet (code dans le formulaire et record dans le sous formulaire)

...

Tout cela est à étudier. Mais ne voyant que la code et pas l'ihm c'est difficile d'avoir une expertise.

Cordialement,