Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Suppression de la ligne courante

Suppression de la ligne courante

2 réponses
Avatar
Guy
Bonjour à tous,

Dans un formulaire: Facture

Je veu pouvoir delete l'enregistrement en cour si mon sous formulaire est
vide a travers mon bouton fermer un Formulair

j'ai récuper le code du bouton supprimer mais cela ne fonctionne Pas


Private Sub Commande138_Click()
Dim stDocName As String
On Error GoTo Err_Commande138_Click


If [Code client] = "" Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If




If VerifPourValidation = 0 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If

If [ModePaiement] <> "" Then
DoCmd.Close

stDocName = "Bascule Fact"
DoCmd.RunMacro stDocName

Exit_Commande138_Click:
Exit Sub

Err_Commande138_Click:
MsgBox Err.Description
Resume Exit_Commande138_Click

Else
MsgBox "taper votre Mode de réglement"
End If
fin:
End Sub
--
Amicalement et merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
si le code client est num
If IsNull([codecliet]) then

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Guy" <André> a écrit dans le message de news:
Bonjour à tous,

Dans un formulaire: Facture

Je veu pouvoir delete l'enregistrement en cour si mon sous formulaire est
vide a travers mon bouton fermer un Formulair

j'ai récuper le code du bouton supprimer mais cela ne fonctionne Pas


Private Sub Commande138_Click()
Dim stDocName As String
On Error GoTo Err_Commande138_Click


If [Code client] = "" Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If




If VerifPourValidation = 0 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If

If [ModePaiement] <> "" Then
DoCmd.Close

stDocName = "Bascule Fact"
DoCmd.RunMacro stDocName

Exit_Commande138_Click:
Exit Sub

Err_Commande138_Click:
MsgBox Err.Description
Resume Exit_Commande138_Click

Else
MsgBox "taper votre Mode de réglement"
End If
fin:
End Sub
--
Amicalement et merci


Avatar
Guy
Bonjour Pierre et merci,

Mais c'est les lignes suivantes qui ne produise pas la fonction désiré a
savoir le delete de la ligne courante dans la tabe : Facture

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



De plus je cherche en vain la correspondance des champs des Docmd


--
Amicalement et merci


"Pierre CFI [mvp]" wrote:

bonjour
si le code client est num
If IsNull([codecliet]) then

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Guy" <André> a écrit dans le message de news:
Bonjour à tous,

Dans un formulaire: Facture

Je veu pouvoir delete l'enregistrement en cour si mon sous formulaire est
vide a travers mon bouton fermer un Formulair

j'ai récuper le code du bouton supprimer mais cela ne fonctionne Pas


Private Sub Commande138_Click()
Dim stDocName As String
On Error GoTo Err_Commande138_Click


If [Code client] = "" Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If




If VerifPourValidation = 0 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
GoTo fin
End If

If [ModePaiement] <> "" Then
DoCmd.Close

stDocName = "Bascule Fact"
DoCmd.RunMacro stDocName

Exit_Commande138_Click:
Exit Sub

Err_Commande138_Click:
MsgBox Err.Description
Resume Exit_Commande138_Click

Else
MsgBox "taper votre Mode de réglement"
End If
fin:
End Sub
--
Amicalement et merci