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
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.
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...
Encore un petit détail, pour utiliser le code que je viens de poster, il faut d'abord avoir ajouté la référence Microsoft Excel 8.0 Object library (8.0 ou plus d'ailleurs) au projet.
Pour la suppression sous Excel, c'est malheureusement impossible (enfin tout du moins je n'ai jamais réussi à le faire) à l'aide d'une instruction SQL ou avec le contrôle data. Pour contourner cette limite, on peut faire une suppression logique, c'est à dire ajouter un champ booléen à la table, qui va nous dire si la ligne est supprimée ou non, et après juste sélectionner les lignes ou le champ est à non. Sinon, on peut ouvrir directement le fichier Excel dans VB et supprimer la fiche en supprimant directement la ligne dans le fichier. Exemple :
Dim xl As New Excel.Application
Dim wo As Workbook
Dim sh As Worksheet
Set wo = xl.Workbooks.Open("C:\données\formation\formation.xls", False)
Set sh = wo.Sheets("formaform")
For nb = 2 To nblignes(sh)
If sh.Cells(nb, 1) listform.TextMatrix(listform.Row, 1) And sh.Cells(nb,2) idformaencours then
sh.Rows(nb).Delete
End If
Next
wo.Close True
xl.Quit
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
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
1MK
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...