Please send runnable project. That way your code is not very readable. I don't understand how you can get error from "form.delete" when it's not in your code..?
Jussi On Fri, Dec 13, 2013 at 9:46 PM, Pino Zollo <pinozo...@gmail.com> wrote: > Gambas 3.5.1 > > > > A TextBox with name "Name" gives FORM.Name Overridden error > > ------------------------------------------------------------------- > > > The string "DELETE" gives error FORM.Delete overridden at line: > > If FBand.ComboBand.Text <> "WFAX" Then > > ------------------------------------------------------------- > > Public Sub Call_LostFocus() > Dim GMT As Date > Dim F As Float > Dim FRMHZ As String > Dim sql As String > > FRMHZ = FRtoMHz() ' This depends on comma > > GMT = Vb.DateAdd("h", - toffset, Now) > If Run Then > If Not CheckCQ() Then > rData = Mglobal.$hConn.Exec("DELETE FROM spots WHERE DXCall = > 'CQ <---' AND dxband = '" & > ComboBand.Text & "' ;") ' it was on > different frequency > ' DEBUG "Deleted by Call_LostFocus " > ' IF comma THEN > If FBand.ComboBand.Text <> "WFAX" Then ' > <------------*********************************************************** > sql = "INSERT INTO spots " & > "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, dxstat, > dxmode, radiomode ) " & > "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) & > " " & > Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ > <---" & "','" & > FRMHz & "','" & FRMHz & > "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" & > "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); " > Else > sql = "INSERT INTO spots " & > "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & > UCase$(Call.Text) & "','" & > FRMHz & "','" & FRMHz & > "','" & FBand.ComboBand.Text & "','" & "WFAX" & "','" & > "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); " > Endif > rData = Mglobal.$hConn.Exec(sql) > > ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " & > ' "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > ' "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > ' Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ > <---" & "','" & > ' FRMHz & "','" & FRMHz & > ' "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" & > "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); ") > ' ELSE > ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " & > ' "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > ' "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > ' Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ > <---" & "','" & > ' Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".") & > "','" & Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".")& > ' "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" & > "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); ") > ' ENDIF > rData = Mglobal.$hConn.Exec("delete FROM spots where dxcall <> > 'CQ <---' and freqrx = (select freqrx from spots where dxcall = 'CQ > <---' AND dxband = '" & > ComboBand.Text & "' ); ") ' <--- errore > nella subquery.. c'è un altro CQ in altra banda e dà 2 risultati > If FBandActive Then FBand.FillForm() > End If > Else > If Not CheckCall(Call.text) Then > If Call.Text <> "" Then > ' IF comma THEN > If FBand.ComboBand.Text <> "WFAX" Then > sql = "INSERT INTO spots " & > "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & > UCase$(Call.Text) & "','" & > FRMHz & "','" & FRMHz & > "','" & ComboBand.Text & "','" & LabCountry.Text & "','" & > "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); " > Else > sql = "INSERT INTO spots " & > "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & > UCase$(Call.Text) & "','" & > FRMHz & "','" & FRMHz & > "','" & FBand.ComboBand.Text & "','" & "WFAX" & "','" & > "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); " > Endif > rData = Mglobal.$hConn.Exec(sql) > ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " & > ' "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > ' "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & > Year(GMT) & " " & > ' Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & > UCase$(Call.Text) & "','" & > ' FRMHz & "','" & FRMHz & > ' "','" & ComboBand.Text & "','" & LabCountry.Text & "','" > & "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & > "'); ") > ' ELSE > ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " & > ' "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, > dxstat, dxmode, radiomode ) " & > ' "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) > & " " & > ' Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & > UCase$(Call.Text) & "','" & > ' Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".") & > "','" & Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".")& > ' "','" & ComboBand.Text & "','" & LabCountry.Text & "','" > & "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & > "'); ") > ' ENDIF > If FBandActive Then FBand.FillForm() > End If > End If > End If > If comma Then > Try Freqb4 = Val(Replace$(Replace$(FreqRadio.text, ",", ""), ".", > ",")) ' <----- Tranverters ??? > Else > Try Freqb4 = Val(Replace$(FreqRadio.text, ",", "")) / 1000 > Endif > ' DEBUG "Freqb4 ", Freqb4 > Catch > Message.Error("Call Lost Focus: " & Error.Text & " " & Error.Where) > End > > ----------------------------------------------------------------------------------- > > > These misbehaviours were not present in Gambas2 ! > > > ------------------------- > > Salud > > Pino > > > > ------------------------------------------------------------------------------ > Rapidly troubleshoot problems before they affect your business. Most IT > organizations don't have a clear picture of how application performance > affects their revenue. With AppDynamics, you get 100% visibility into your > Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics > Pro! > http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Rapidly troubleshoot problems before they affect your business. Most IT organizations don't have a clear picture of how application performance affects their revenue. With AppDynamics, you get 100% visibility into your Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro! http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user