[RISOLTO] errore segnale #11

[doublemm]

ho visto che dato errore è generato da un sovracarico di memoria (tipo loop infinito).
Nel mio caso non riesco a capire perchè viene generato tale errore.

ho una public sub

Codice: gambas [Seleziona]

PUBLIC SUB GridEU_DblClick()

DIM Pulsante1, Pulsante2 AS Button


  ReForm = NEW Form AS "ReForm"
  Pulsante1 = NEW Button(ReForm) AS "Pulsante1"
  Pulsante2 = NEW Button(ReForm) AS "Pulsante2"
  NewValore = NEW textBox(ReForm) AS "NewValore"

ho creato una sub che premuto il pulsante1 salva i dati in un database sqlite TUTTO OK

ho creato una sub che premuto ENTER quando il focus è su NewValore viene chiamata la sub pulsante1_Click. ERRORE segnale #11

Codice: gambas [Seleziona]

PUBLIC SUB NewValore_KeyPress()
  
  SELECT CASE Key.Code
    CASE Key.Enter
      Pulsante1_Click()
  END SELECT  
  
END

chi sa dirmi perchè?

[milio]

Che cosa fa Pulsante1_Click()?

[doublemm]

Codice: gambas [Seleziona]

PUBLIC SUB Pulsante1_Click()
DIM stringa AS String
  
  SELECT CASE GridEU.Column
    CASE 5
      
      stringa = GridEU[cordX, 0].Text
      
      hres = $hConn.Edit("principale", "id=" & stringa)
      
      IF hres.Available = TRUE THEN 
        hres!importo = NewValore.Text
        hres.Update
        $hConn.Commit
        $hConn.Close
        ReForm.Close
        MakeGridEU
      ENDIF 
  END SELECT 
END

[Ceskho]

per favore modificare il titolo poichè le imprecazioni sicuramente non aiutano a chi cercherà lo stesso problema in futuro...

[milio]

al posto di ReForm.Close, prova a scrivere Me.Close e tienila come ultima istruzione

[doublemm]

scusa Ceskho

ok errore risolto. Ho messo Reform.close alla fine (me.close chiudeva il form principale)
ho provato con Reform.showmodal ma il form si caricava senza oggetti.

[milio]

(me.close chiudeva il form principale)

E' vero, ho detto una grossa CAG..A!

non avevo letto bene