Creation d'une petite base de donnees
paquerette
-
amigo -
amigo -
Bonjour,
je vais de creer une petite base de données et lorsque je clique sur ma macro ( qui s'appelle : Suppression de l'enregistrement), ca fonctionner bien et tout a coup dans visual basic un mesage d'erreur c'est afficher:
1er message: Impossible d'executer le mode arrêt
2 message : erreur d'execution 1004 erreur definie par l'application ou par l'objet
je ne sais pas comment m'en sortir car maintenant ma macro ne fonctionne plus
Si ca peut aider :
Sub Suppression_enregistrement()
if [param_no_ligne] = 0 then Exit Sub
If msgbox ("Confirmation de la suppression del l'enregistrement",vbYesNo,"Suppression")= vbYes then
Sheets ("BD"). Rows ([param_no_ligne]+1 ).Delete shift:=x1Up ( cette phrase il me la surligne ne jaune)
if [nb_enregistrements_bd]<[param_no_ligne] then [param_no_ligne]=[param_no_ligne]-1
End IF
End Sub
je vais de creer une petite base de données et lorsque je clique sur ma macro ( qui s'appelle : Suppression de l'enregistrement), ca fonctionner bien et tout a coup dans visual basic un mesage d'erreur c'est afficher:
1er message: Impossible d'executer le mode arrêt
2 message : erreur d'execution 1004 erreur definie par l'application ou par l'objet
je ne sais pas comment m'en sortir car maintenant ma macro ne fonctionne plus
Si ca peut aider :
Sub Suppression_enregistrement()
if [param_no_ligne] = 0 then Exit Sub
If msgbox ("Confirmation de la suppression del l'enregistrement",vbYesNo,"Suppression")= vbYes then
Sheets ("BD"). Rows ([param_no_ligne]+1 ).Delete shift:=x1Up ( cette phrase il me la surligne ne jaune)
if [nb_enregistrements_bd]<[param_no_ligne] then [param_no_ligne]=[param_no_ligne]-1
End IF
End Sub
A voir également:
- Creation d'une petite base de donnees
- Fuite données maif - Guide
- Base de registre - Guide
- Creation de site web - Guide
- Creation de compte google - Guide
- Creation compte gmail - Guide
1 réponse
bonjour,
Essaie cette syntaxe
Sub Suppression_enregistrement()
Dim reponse as Integer
if [param_no_ligne] = 0 then Exit Sub
reponse = Msgbox ("Confirmation de la suppression de l'enregistrement",vbYesNo,"Suppression")
If = vbYes then
Sheets ("BD"). Rows ([param_no_ligne]+1 ).Delete shift:=x1Up ( cette phrase il me la surligne ne jaune)
if [nb_enregistrements_bd]<[param_no_ligne] then [param_no_ligne]=[param_no_ligne]-1
End IF
End Sub
A+.
Essaie cette syntaxe
Sub Suppression_enregistrement()
Dim reponse as Integer
if [param_no_ligne] = 0 then Exit Sub
reponse = Msgbox ("Confirmation de la suppression de l'enregistrement",vbYesNo,"Suppression")
If = vbYes then
Sheets ("BD"). Rows ([param_no_ligne]+1 ).Delete shift:=x1Up ( cette phrase il me la surligne ne jaune)
if [nb_enregistrements_bd]<[param_no_ligne] then [param_no_ligne]=[param_no_ligne]-1
End IF
End Sub
A+.
