Image grandeur nature de la feuille d'infos sur les bases de données

Propriété Name : frmName
Installez 4 Panels "SSPanel" ou autres
Propriété Name Panel3D1 à Panel3D4
Insérez un bouton

Ecriture du code du bouton
Sub SSCommand1_Click ( )
     Unload frmName
End Sub

Nous procédons à la réalisation de la feuille "frmListe"
Cette feuille nous permettra d'afficher les titres de film disponibles dans la base de données et de pouvoir imprimer la liste affichée.

Elle se compose d'une Frame qui aura comme :
Propriété Caption : N° d'enregistrement/Titre de film/N° de cassette :"
Dans cette Frame nous incorporons une ListBox
Propriété Name : Liste1

Ecriture du code du bouton de commande "Imprimer"
Private Sub Command3D1_Click( )
On Error Resume Next
If Liste1.List(X%) <> "" Then
Printer.Print
Printer.FontSize = 12
'Imprime la ligne d'information
Printer.Print "N° de l'enregistrement/Titre du film/N° cassette:"
'Envoi de la liste ligne par ligne à l'objet imprimante
For X% = 1 To Liste1.ListCount
Printer.Print Liste1.List(X% - 1)
Next X%
'Saut de page
Printer.NewPage
'Fin de l'impresssion
Printer.EndDoc
Else
'Sortie sans impression
End If
End Sub

Ecriture du code du bouton "OK"
Private Sub CtlStatistiques_Click( )
Unload Me
End Sub

Ecriture du code de la feuille Form
Private Sub Form_Load( )
CenterForm Me
End Sub

La semaine prochaine nous réaliserons la feuille devant nous permettre de créer les bases de données indispensables à notre réalisation.