Paulnz
Hi Andy
The codes are as follows.
The error is on the last line, the put command.
Thanks for your help
regards
Paul Seo
Type CLIENTRECTYPE
CN As String * 60 ' Client name
CA1 As String * 40 ' Address line 1
CA2 As String * 40 ' 2
CA3 As String * 40 ' 3
CPC As String * 10 ' Post code
CPH As String * 20 ' Home phone number
End Type
Global CLIENTREC As CLIENTRECTYPE
Global RECNO as double
CLIENTS="C:\data\CLIENTFILE.RAN"
FCLNT = 19
Open CLIENTS For Random Access Read Write Shared As FCLNT Len = 210
Get FCLNT, RECNO, CLIENTREC
CLIENTREC.CA1 = Txt_Document_Client_Address.Text
CLIENTREC.CA2 = Txt_Document_Client_Address2.Text
CLIENTREC.CA3 = Txt_Document_Client_Address3.Text
Put FCLNT, RECNO, CLIENTREC