XPost: comp.lang.basic.visual.misc, comp.lang.basic.visual.database,   
   it.comp.lang.visual-basic   
   From: w@lochiedi.it   
      
   happy wrote:   
   > I do not have any errors just empty data are written to phone.dat . I   
   > can see increasing of file size without any visible data!!   
      
      
   I repeat   
   Its a logical bug!   
   YOUR LOGICAL BUG!   
      
   ....you reset the Usertype...   
      
   HERE   
   Private Sub imgnew_Click()   
   savecurrentrecord   
   gLastRecord = gLastRecord + 1   
      
      
      
   LOOK HERE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   
   gperson.Name = ""   
   gperson.Phone = ""   
   gperson.Comments = ""   
   Put #gFilenum, gCurrentRecord, gperson   
      
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   
   YOU SEE???   
   You reset the type and THEN save on file A BLANK record!!!!   
      
      
   gCurrentRecord = gLastRecord   
   showcurrentrecord   
   txtname.SetFocus   
   End Sub   
      
      
   a possible solution (1 of many):   
   ......   
   Private Sub imgnew_Click()   
      
   gLastRecord = gLastRecord + 1   
   gCurrentRecord = gLastRecord   
   savecurrentrecord   
   'gperson.Name = ""   
   'gperson.Phone = ""   
   'gperson.Comments = ""   
   'Put #gFilenum, gCurrentRecord, gperson   
   'gCurrentRecord = gLastRecord   
   'showcurrentrecord   
   'txtName.SetFocus   
   End Sub   
   .........   
      
   Bye man!   
      
      
   --   
   Il Wodkino Nazionale è a : www.martek.it   
   Pagina Vb/Bestiario/Lamer Experience :   
   http://www.martek.it/go.asp?portamia=2 Quotefix e altro:   
   http://www.martek.it/go.asp?portamia=4   
   Usr: ICLVB Pw: amici   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)