Option Strict Off
Option Explicit On
Module ReservationSalle1
'Avant de créer un fichier à accès direct,
'il faut définir la structure de ses enregistrements
Structure StructureEnr
Dim Occupe As Byte
<VBFixedString(30)> Dim Nom As String
<VBFixedString(18)> Dim Prenom As String
<VBFixedString(15)> Dim telephone As String
End Structure
Public Enr As StructureEnr
Public Siege As String
Public Jjmmaa As Date
Public NoSiege As Integer
Public Const CNbSieges As Integer = 42
'Déclaration de la variable qui stockera le nom du fichier des réservations
Public fReservations As String
Public NomSiege As String
'Public Const Chemin As String = "f:\Cours\VBE2008\Rservations1\"
Public Const Chemin As String = "C:\Documents and Settings\Professeur\Mes documents\Cours\VBE2008\Rservations1\"
Public bt1 As Button
End Module
