[Risolto]invalid object

[clabe69]

Salve a tutti; qualcuno di lor dotti signori può spiegarmi perchè, aprendo una form toobox, su una form FMain, per richiuderla con il pulsante "btnQuit", il comando ME.Close funziona, invece con il pulsante "btnOK", dopo aver eseguito vario codice, il comando ME.Close mi dà l'errore "invalid object".
Eliminando il comando di cui sopra, la form si chiude senza errori.

 

Codice: gambas [Seleziona]

    
    sql = "SELECT id FROM tclienti ORDER BY id"
    MyRes = modConn.$Conn.Exec(sql)
    FOR EACH MyRes
      FMain.tbContCli.Text = MyRes!id
    NEXT

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE
'  ME.Close
  
END


PUBLIC SUB btnQuit_Click()

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE
  ME.Close

END

Grazie.

[md9327]

Intanto non offendiamo... dotto lo dici a ceskho... e signori si nasce... 


Da quello che vedo, hai provato a inserire il Close un pò dappertutto... 

Intanto dai un'occhiata alle proprietà della Form (a destra dell'ide).
Poi, in realtà, il ME.Close() chiude la form stessa, e se non lo fà hai qualche cosa che è sbagliata da qualche parte, e che provoca l'errore che hai segnalato, e quindi non credo sia il metodo a provocarlo.

[clabe69]

Salva a tutti; ho risolto cambiando ME con il nome della form.
Non sò perchè, ma così và.

Codice: gambas [Seleziona]

    
    sql = "SELECT id FROM tclienti ORDER BY id"
    MyRes = modConn.$Conn.Exec(sql)
    FOR EACH MyRes
      FMain.tbContCli.Text = MyRes!id
    NEXT

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE

  NewCli.Close
  
END


PUBLIC SUB btnQuit_Click()

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE
  ME.Close

END

[md9327]

Dipende dall'impostazione del progetto, ovvero per default gli oggetti sono privati.

[clabe69]

OK; ma perchè se clicco sul pulsante btnQuit, si chiude e invece se clicco sul pulsante btnOk, che prevede prima della chiusura tutta una serie di operazioni, mi da l'errore, tanto che ho dovuto sostituire ME.Close con NewCli.Close (NewCli è il nome della form)?
Inoltre, nel mio programma ci sono 24 form, tutte impostate toolbox = true ed una FMain: tutte e 23 funzionano, mentre la NewCli no. 

[md9327]

Forse se posti il codice completo del metodo che non funziona, ci capiamo qualcosa...

[clabe69]

Codice: gambas [Seleziona]

PUBLIC SUB btnOK_Click()

  DIM sql AS String
  DIM iListino AS Integer

    IF FMain.gridModo = FALSE THEN 
      IF txtCogn.Text = "" THEN 
        Message.Error("<b>Il campo Cognome è vuoto!</b>")
      ELSE IF txtNome.Text = "" THEN 
        Message.Error("<b>Il campo Nome è vuoto!</b>")
      ELSE
        IF FMain.gridModo = FALSE THEN 
            Inserisci
        ELSE
          sql = "SELECT id FROM tclienti WHERE cogn = '" & FMain.gridCogn & "' AND nome = '" & FMain.gridNome & "'"
          MyRes = modConn.$Conn.Exec(sql)  
          sql = "DELETE FROM tclienti WHERE id = " & MyRes!id
          MyRes = modConn.$Conn.Exec(sql)
          FMain.gridModo = FALSE
          Inserisci
        ENDIF 
      ENDIF
      
    ELSE 
      IF FMain.bLogin THEN
        IF RadioButton1.Value THEN 
          iListino = 1
        ELSE IF RadioButton2.Value THEN 
          iListino = 2
        ELSE IF RadioButton3.Value THEN 
          iListino = 3
        ELSE IF RadioButton4.Value THEN 
          iListino = 4
        ENDIF  
        sql = "UPDATE tclienti SET cogn = '" & txtCogn.Text & "', nome = '" & txtNome.Text & "', indir = '" & txtIndir.Text & "', cap = '" & txtCap.Text & "', citta = '" & txtCitta.Text & "', prov = '" & txtProv.Text & "', cell = '" & txtCell.Text & 
        "', tel = '" & txtTel.Text & "', fax = '" & txtFax.Text & "', email = '" & txtEmail.Text & "', pi = '" & txtPi.Text & "', cf = '" & txtCf.Text & "', note = '" & txtNote.Text & "', nlist = " & 	iListino & 
        ", pnt = 0, cred = 0.00 WHERE cogn = '" & FMain.gridCogn & "' AND nome = '" & FMain.gridNome & "'"
        MyRes = modConn.$Conn.Exec(sql)
      ENDIF 
    ENDIF 
    
    sql = "SELECT id FROM tclienti ORDER BY id"
    MyRes = modConn.$Conn.Exec(sql)
    FOR EACH MyRes
      FMain.tbContCli.Text = MyRes!id
    NEXT

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE
  NewCli.Close
  
END


PUBLIC SUB btnQuit_Click()

  FMain.Enabled = TRUE
  FMain.gridModo = FALSE
  ME.Close

END

[md9327]

Quindi, secondo quanto dici, il metodo che và in errore è il metodo btnOK_Click(), in corrispondenza del Close() della form.

Mmmmmm....

Vedo nel codice alcune cose che non capiso:

1) dei message.error, che non bloccano l'esecuzione del pulsante ok;
2) non c'è un controllo degli errori. Con l'accesso ad un database potresti averne...
3) imposti alcune proprietà della form, e poi la chiudi. Qual'è il senso?
4) la form come è impostata ? Parlo delle proprietà, in particolare se la chiusura elimina la form.
5) se la form è impostata come una normale form, che si autoelimina in chiusura, le sue proprietà scompaiono con lei...

[clabe69]

Questo è il codice di una toolbox (NewCli appunto), aperta su una form FMain, per qui quando la chiudo per tornare alla FMain, mi sistemo prima alcune proprietà.....della FMain.

[md9327]

Ma il codice è dentro la FMain o la toolbox?

[clabe69]

Il codice è nella form, impostata come toolbox, che si chiama NewCli.
Questa si apre tramite un pulsante che stà sulla form FMain ed andrebbe richiusa o tramite il pulsante btnQuit o tramite btnOK, che stanno sulla NewCli.

[md9327]

Quindi, avendo il codice di chiusura in NewCli, devi indirizzare i metodi e le proprietà di FMain tramite il suo nome.
Tieni conto che, dipendentemente dalle impostazioni del progetto, gli oggetti contenuti in una form sono definiti privati, quindi non visibili all'esterno dello stesso.