Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Aug 2006
    Messaggi
    21

    errore chiusura

    Ho un problema con la chiusura col tasto X della form Main.
    Praticamente dopo aver eseguito correttamente un insert (inserimento di un cliente o altro) e ritorno alla mia form principale (MainForm), non riesco più a chiudere quest ultima.
    Il codice per l'insert è il seguente:
    codice:
    Public Function InsertCliente(ByVal Cli As Cliente) As Boolean
            On Error GoTo ErrInsertCliente
            MyComm = New OleDbCommand("INSERT INTO CLIENTI (COGNOME,NOME,...) VALUES('" + Cli.Cognome + "','" + Cli.Nome + "','" ...... + "')", conn)
            conn.Open()
            MyComm.ExecuteNonQuery()
            conn.Close()
    
            'Return True
    
            Exit Function
    ErrInsertCliente:
            Beep()
            Dim ErrD As New ErrorDialog(Err.Description)
            ErrD.ShowDialog()
        End Function

  2. #2
    Utente di HTML.it
    Registrato dal
    Aug 2006
    Messaggi
    21

    RISOLTO

    !!!!!!!!!!!!!!!!!!!!! PROBLEMA RISOLTO !!!!!!!!!!!!!!!

  3. #3
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472
    E la soluzione è...?
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  4. #4
    Utente di HTML.it
    Registrato dal
    Aug 2006
    Messaggi
    21

    ecco

    il problema in verità non era dovuto all'insert, ma ad un panel inserito nella main form.
    Praticamente non so il motivo ma prima di richiamare lo user control da inserire nel pannello bisognava dargli il focus.
    Esempio:
    codice:
    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
            Dim gestPag As New GestoreRicercaPagamenti()
            Panel1.Focus() 
            Panel4.Visible = True
            Panel4.Controls.Clear()
            Panel4.Controls.Add(gestPag)
            Panel4.Controls(0).Show()
            Panel2.Controls.Clear()
            Panel3.Controls.Clear()
        End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.