Crash of application by adding record

[Claudius Sailer]

Hi,

I use following code, which work really good in 1.10 and database table  
structure isn't changed.
Application crashed by NewRecID=meineDatenbank.TPersoenlich.addRecord.  
In Logfile of V4RB2 I get last entry

Table_AddRecord...
	PARAM: inTable = 26036836

nothing else

     if TextZeichen.countfields(chrb(9))=8 then
       TheTrue=parseDate(TextZeichen.nthfield(chr(9),7),CheckDate)
       meineDatenbank.TPersoenlich.SetBlank
        
meineDatenbank.TPersoenlich.Vorname.value=TextZeichen.nthfield(chr(9),1)
        
meineDatenbank.TPersoenlich.Nachname.value=TextZeichen.nthfield(chr(9),2 
)
        
meineDatenbank.TPersoenlich.Strasse.value=TextZeichen.nthfield(chr(9),3)
        
meineDatenbank.TPersoenlich.Hausnummer.value=TextZeichen.nthfield(chr(9) 
,4)
       if NOT CheckLeer(TextZeichen.nthfield(chr(9),5)) then
          
meineDatenbank.TPersoenlich.PLZ.value=TextZeichen.nthfield(chr(9),5).cdb 
l
       end if
        
meineDatenbank.TPersoenlich.Ort.value=TextZeichen.nthfield(chr(9),6)
       if TheTrue then
          
meineDatenbank.TPersoenlich.GebDatum.set(CheckDate.year,CheckDate.month, 
CheckDate.day)
       else
         meineDatenbank.TPersoenlich.GebDatum.setblank
       end if
        
meineDatenbank.TPersoenlich.Waehrung.value=TextZeichen.nthfield(chr(9),8 
)
        
meineDatenbank.TPersoenlich.letztesBearbeitungsDatum.set(BackUpDatum.yea 
r,BackUpDatum.month,BackUpDatum.day)
       NewRecID=meineDatenbank.TPersoenlich.addRecord
     else
       //es liegen nicht genuegend Felder zum importieren vor
       return false
     end if


Claudius

-- 
G4/733 QS / MacOS X 10.3.7de / RB 5.5.3de/ Valentina 1.10.0 & 2.0b46
Homepage	http://www.ClaSai.de
iChat		ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]