Le séquentiel, c'est pas simple !!!!!

Signaler
Messages postés
37
Date d'inscription
jeudi 10 février 2005
Statut
Membre
Dernière intervention
10 janvier 2008
-
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
-
salut tout le monde !



j'éssait d'enregistrer le contenue de plusieur variables d'un Type dans un fichier en accès Random !!




Mais ca marche pas !!!!



à chaque fois, au moment d'enregistrer (Put #...) si toute les variables de mon type contiènnent quelque chose, une erreur se produit !!!



Ereur 59

Longueur d'enregistrement incorect !





Je seche completement si quelqu'un pouvait m'aider ca serrait formidable !!!



Parceque là moi je suis bloqué de cher bloqué et je ne peut plus avancé mon projet !



Merci d'avance ! ;-)




Dans le modul :

Public choix As String

Public nf As Long

Public Type Enreg

nom As String

prenom As String

ddn1 As String

ddn2 As String

ddn3 As String

adem As String

adt As String

tp1 As String

tp2 As String

choix As String

nome As String

fonce As String

tele As String

faxe As String

ade As String

cpe As String

villee As String

adp As String

cpp As String

villep As String

telp As String

faxp As String

pdip As String

ads As String

cps As String

villes As String

tels As String

faxs As String

pdis As String

End Type

Dans la Form :

Dim carnet1 = Enreg

Private Sub Ajouter_Click()

With carnet1

.nom = Ajoutcontact1.Text1.Text

.prenom = Ajoutcontact1.Text2.Text

.ddn1 = Ajoutcontact1.Text3.Text

.ddn2 = Ajoutcontact1.Text4.Text

.ddn3 = Ajoutcontact1.Text5.Text

.adem = Ajoutcontact1.Text6.Text

.adt = Ajoutcontact1.Text7.Text

.tp1 = Ajoutcontact1.Text8.Text

.tp2 = Ajoutcontact1.Text9.Text

.choix = choix

If choix = "" Then

.choix = "aucun"

End If

If choix = "aucun" Then

.nome = ""

.fonce = ""

.tele = ""

.faxe = ""

.ade = ""

.cpe = ""

.villee = ""

End If

If choix = "travail" Then

.nome = Ajoutcontact1.Text10.Text

.fonce = Ajoutcontact1.Text11.Text

.tele = Ajoutcontact1.Text12.Text

.faxe = Ajoutcontact1.Text13.Text

.ade = Ajoutcontact1.Text14.Text

.cpe = Ajoutcontact1.Text15.Text

.villee = Ajoutcontact1.Text16.Text

End If

If choix = "ecole" Then

.nome = Ajoutcontact1.Text17.Text

.fonce = Ajoutcontact1.Text18.Text

.tele = Ajoutcontact1.Text19.Text

.faxe = Ajoutcontact1.Text20.Text

.ade = Ajoutcontact1.Text21.Text

.cpe = Ajoutcontact1.Text22.Text

.villee = Ajoutcontact1.Text23.Text

End If

.adp = Text1.Text

.cpp = Text2.Text

.villep = Text3.Text

.telp = Text4.Text

.faxp = Text5.Text

.pdip = Text6.Text

.ads = Text1.Text

.cps = Text2.Text

.villes = Text3.Text

.tels = Text4.Text

.faxs = Text5.Text

.pdis = Text6.Text

End With

nf = FreeFile

Open App.Path & "\users\" & username & ".rep" For Random As #nf Len = Len(carnet1)

Put #nf, numenreg, carnet1 'C'est ici que ca bloque !!!

Close #nf
<table id="HB_Mail_Container" unselectable="on" border="0" cellpadding="0" cellspacing="0" height="100%" width="100%">

----,

</td>

</td></tr></tbody></table>

1 réponse

Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
24
salut,



Dans un fichier Random, il faut que les chaine soient de longueur fixe : String * taille (et PAS String simplement)...

ShareVB