PROGRAMME ENTREPRISE BASE DE DONNÉE VBA SOUS EXCEL

Signaler
Messages postés
45
Date d'inscription
lundi 23 juin 2003
Statut
Membre
Dernière intervention
24 février 2009
-
Messages postés
4
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 juin 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/35762-programme-entreprise-base-de-donnee-vba-sous-excel

Messages postés
4
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 juin 2008

bonjour tous,j'ai besoin d'aide,j'ai à faire une base de donnée simple qui contient nom,prenom,ville et rue.
j'ai réalisé toute les procédure mais la procedure "effacer"
n'éfface pas l'enregistrement.voila la procedure:
Private Sub mEffacer_Click()
' le premier enregistrement ne doit pas étre suprimé
If Data1.Recordset.RecordCount > 1 Then
t$ = " suprimer l'enregistrement "
M$ = " voulez-vous vraiment suprimer cet enregistrement ?"
If MsgBox(M$, vbQuestion + vbYesNo, t$) = vbYes Then
'supprimer enregistrement
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
Else
Data1.Recordset.Edit
Text1 "": Text2 "": Text3 = "":
Text4 "": Text5 "":
Data1.Recordset.Update
End If
End Sub
Messages postés
37
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
7 décembre 2019

Bonjour à tous est ce que quelqu'un connait une façon d'empêcher un code plus de 15 jours (par exemple).
C'est à dire d'avoir dans une macro ou une fonction une portion de code testée à chaque fois et qui permettent de :
s'executer pour un temps précis et pas au delà
Ou mieux encore :
Faire incrémenter un compteur(palcé où???) et qui permet à un code de s'exécuter seulement un certain nombre de fois.

Merci
Messages postés
341
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
29 juin 2011
1
salut ca m'interesse et sio quelquu un a fait des changement qui'il le dise merci
MK
Messages postés
3
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
27 janvier 2006

Pour le problème d'orientation il suffit de changer l'orientation de l'imprimante par défaut avant l'instruction printform, avec juste cette instruction :

Printer.Orientation = vbPRORLandscape

l'objet printer correspond à l'imprimante par défaut.

Si vous souhaitez faire des modifications sur une autre imprimante, on peut utiliser la collection printers...

Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
' Définit l'imprimante comme imprimante par
' défaut du système.
Set Printer = X
' Cesse la recherche d'imprimante.
Exit For
End If
Next

Pour plus d'info n'hésitez pas utiliser l'aide sur l'objet printer...
Afficher les 8 commentaires