Discussion :

[Ryuuku]

Voici une petite fonction qui a pour but d'enregistrer les coordonnées d'un client dans un fichier et de me placer en fin de fichier.
Malheureusement quand je lance mon application, j'ai le message derreur suivant "longueur d'enregistrement incorrect"...
Je précise qu'il s'agit d'un travaux dirigé et j'ai la solution sous les yeux et elle est identique à ma solution, pourtant ça fonctionne pas, pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Enregistrer_Click()
    Dim Num As Integer
    Dim Cl As Client
 
    Num = FreeFile
    Open "Fichier des clients" For Random As #Num Len = Len(Cl)
    Cl.nom = nom.Text
    Cl.prénom = prénom.Text
    Cl.adresse = adresse.Text
    Cl.tél = tél.Text
    Cl.date1 = date1.Text
    Put #Num, LOF(Num) / Len(Cl) + 1, Cl
    Close #Num
End Sub

[Phifi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "Fichier des clients" For Random As #Num Len = Len(Cl)

Je ne comprends pas cette partie en gras. #Num est définie par la fonction Freefile. Que vient faire Len=... ?

[Delbeke]

Ce n'est pas de la que vient le probléme phifi
Il s'agit d'une ouverture en mode acces aleatoire, il faut bien dans ce cas ajouter len= Longueur_de_l_enregistrement à la fin de l'open.

Dans ce cas d'espece l'enregistrement etant une structure (Type ... End Type)

Lof(Num) retourne la taille physique du fichier
Si on le divise par la longeur d'un enregistrement, on obtient le nombre d'enregistrement presents dans le fichier. Sauf si le fichier est mal construit !

Enfin, dans la fonction Put, pour un fichier à accès aléatoire, la Syntaxe Put #NumFich,Numero_Enregistrement,Variable
Ce qui est correct dans le cas present.

[Phifi]

Ce n'est pas de la que vient le probléme phifi
Il s'agit d'une ouverture en mode acces aleatoire, il faut bien dans ce cas ajouter len= Longueur_de_l_enregistrement à la fin de l'open.

Ok, je ne connaissais pas ce mode. Maintenant oui !

[Ryuuku]

J'ai trouvé l'erreur qui venait pas de moi (pour une fois) mais de ce que l'on m'avait donné à la base.

En fait je bosse à partir d'une structure Client, et ensuite je fais un formulaire pour remplir un fichier bla,bla et bla.
Sauf que la structure que l'on m'a donné n'était pas complète, il manquait le nombre de caractère utilisé par chaque membre de la structure. Du coup quand j'ai écrit mon truc le programme ne pouvais calculer la longueur total et faire ce que je lui demandais.

Je suis crevé moi, j'aurais dû le remarquer plus tôt... La vache cette année de BTS m'aura mis sur les genoux (avec un diplome que je suis même pas sur d'avoir :s)

[Phifi]

Ils apprennent le VB6 en BTS ? Bigre !

[Vld44]

Ils apprennent le VB6 en BTS ? Bigre !

eh bien oui, j'y ai eu droit aussi !

[zazaraignée]

Merci d'avoir donné l'origine du porblème. Ça peut toujours être utile pour ceux qui rencontreraient le même genre de situation.

Mais il ne faudrait pas oublier de cliquer sur .

[OhMonBato]

Personnellement pour ajouter un truc en fin de fichier j'utilise Append plutot que Random.