V4RB: Problem with UpdateRecords

[Claudius Sailer]

Hi,

I am using the following Code with RB 5.2 and 1.9.7 no problem the  
record is updatet. When I do the same with 1.9.8b18 nothing is changed.  
Same to

     res=meineDatenbank.TProgrammeDB.GoToRecID(ControlRecID)
     res=meineDatenbank.TProgrammeDB.DeleteRecord

res=false  but this is not possible, and the record is not deleted.

     //User
     if CheckLeer(EditField1(1).text) then
       Fehlermeldung(TextFehler007)
       return
     end if
     res=meineDatenbank.TUserDB.GoToRecID(ControlRecID)
     if CheckLeer(EditField1(0).text) then
       meineDatenbank.TUserDB.Vorname.setblank
     else
        
meineDatenbank.TUserDB.Vorname.value=UnicodeToASCII(EditField1(0).text.t 
rim)
     end if
      
meineDatenbank.TUserDB.NachName.value=UnicodeToASCII(EditField1(1).text. 
trim)
     meineDatenbank.TUserDB.Anrede.value=PopupMenu1(0).text
     if CheckLeer(EditField1(2).text) then
       meineDatenbank.TUserDB.eMail.setblank
     else
        
meineDatenbank.TUserDB.eMail.value=replaceAll(UnicodeToASCII(EditField1( 
2).text.trim),"?","")
     end if
     if CheckLeer(EditField1(3).text) then
       meineDatenbank.TUserDB.Strasse.setblank
     else
        
meineDatenbank.TUserDB.Strasse.value=UnicodeToASCII(EditField1(3).text.t 
rim)
     end if
     if CheckLeer(EditField1(4).text) then
       meineDatenbank.TUserDB.Nr.setblank
     else
        
meineDatenbank.TUserDB.Nr.value=UnicodeToASCII(EditField1(4).text.trim)
     end if
     if CheckLeer(EditField1(5).text) then
       meineDatenbank.TUserDB.PLZ.setblank
     else
        
meineDatenbank.TUserDB.PLZ.value=UnicodeToASCII(EditField1(5).text.trim)
     end if
     if CheckLeer(EditField1(6).text) then
       meineDatenbank.TUserDB.Ort.setblank
     else
        
meineDatenbank.TUserDB.Ort.value=UnicodeToASCII(EditField1(6).text.trim)
     end if
     if CheckLeer(EditField1(7).text) then
       meineDatenbank.TUserDB.TelEins.setblank
     else
        
meineDatenbank.TUserDB.TelEins.value=UnicodeToASCII(EditField1(7).text.t 
rim)
     end if
     if CheckLeer(EditField1(8).text) then
       meineDatenbank.TUserDB.TelZwei.setblank
     else
        
meineDatenbank.TUserDB.TelZwei.value=UnicodeToASCII(EditField1(8).text.t 
rim)
     end if
     TheTrue=parseDate(EditField1a.text.trim,theDate)
     if thetrue then
        
meineDatenbank.TUserDB.GebDatum.set(theDate.year,thedate.month,thedate.d 
ay)
     else
       meineDatenbank.TUserDB.GebDatum.setBlank
     end if
      
meineDatenbank.TUserDB.LastChange.set(today.year,today.month,today.day)
     if CheckLeer(EditField1(9).text) then
       meineDatenbank.TUserDB.Kommentar.setblank
     else
        
meineDatenbank.TUserDB.Kommentar.value=UnicodeToASCII(EditField1(9).text 
.trim)
     end if
     meineDatenbank.TUserDB.UpdateRecord

   meineDatenbank.flush


Claudius

-- 
G4/733 QS / MacOS X 10.2.6de / RB 4.5.3de or 5.1de or 5.2/ Valentina  
1.9.7 or 1.9.8b18