C'est un carnet d'adresse qui permet de sauver par numero d'enregistrement et mode sequenciel avec la possibilité d'éffacer un n° enreg.
Tous est dans le zip
Source / Exemple :
' Défintion des variables
Public Numéro As Integer
Public MaxEnreg As Integer
Private Type Enreg
Nom As String * 25
Prénom As String * 25
Adresse As String * 200
Telephone As String * 20
Fax As String * 25
End Type
Dim adr As Enreg
Private Sub Command6_Click()
Form2.Show
End Sub
Private Sub dernier_Click()
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = MaxEnreg
lit
Nom.SetFocus
End Sub
Private Sub Form_Load()
' ouverture du fichier de données
Open "c:\adresse.adr" For Random As #1 Len = Len(adr)
Get #1, 1, adr
If Asc(adr.Nom) <> 0 Then
MaxEnreg = Val(adr.Nom)
Else
MaxEnreg = 2
End If
Numéro = 2
lit
End Sub
Sub lit()
'Lecture de l'enregistrement "numéro"
Get #1, Numéro, adr
Nom.Text = adr.Nom
Prénom.Text = adr.Prénom
Adresse.Text = adr.Adresse
Telephone.Text = adr.Telephone
Fax.Text = adr.Fax
End Sub
Private Sub precedent_Click()
If Numéro > 2 Then
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = Numéro - 1
lit
Nom.SetFocus
Else
Beep
End If
End Sub
Private Sub Premier_Click()
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = 2
lit
Nom.SetFocus
End Sub
Private Sub Quitter_Click()
If Nom.Text <> nul Then
Ecrit
End If
adr.Nom = MaxEnreg
Put #1, 1, adr
Close #1
End
End Sub
Private Sub suivant_Click()
If Nom.Text <> nul Then
Ecrit
Numéro = Numéro + 1
If Numéro > MaxEnreg Then
MaxEnreg = Numéro
End If
lit
Nom.SetFocus
Else
Beep
End If
End Sub
Sub Ecrit()
adr.Nom = Nom.Text
adr.Prénom = Prénom.Text
adr.Adresse = Adresse.Text
adr.Telephone = Telephone.Text
adr.Fax = Fax.Text
Put #1, Numéro, adr
End Sub
Conclusion :
Bonne prog A tous
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.