Bonjour je suis en BTS Informatique d Gestion et je dois créer un programme de gestion sous VB.

J'ai une erreur lorsque j'essaie de réécrire dans un fichier avec la procédure loc(). Mon programme bloque au niveau du Seek et de ma procédure Loc en me disant :

"Erreur d'éxecution 63 Numéro d'enregistrement incorect"

Voila mon Programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
Dim fpiece As Long
Dim unP As Piece
Dim Text1 As String * 6
'ouvrir le fichier fProduit.fp
 
fpiece = FreeFile() 'freefile() retourne un numéro d'alias libre
 
Open App.Path & "\" & Fpiecestr For Random Access Write _
As fpiece Len = Len(unP)
While Not EOF(fpiece) And Text1 <> unP.IdPiece
    Get fpiece, , unP
Wend
If Not EOF(fpiece) Then
    unP.QteStockPiece = Val(Text8)
    MsgBox unP.QteStockPiece
    Seek fpiece, Loc(fpiece)
    Put fpiece, , unP
    Else: Exit Sub
End If
 
Close (fpiece)
End Sub