[VB6] Avviso nel cancellare record nel dataGrid

[zorro77]

Salve a tutti
ho un problema con un messaggio quando cancello le righe di un data grid. Ho usato questo codice:

Private Sub grdDataGrid_BeforeDelete(Cancel As Integer)
Cancel = MsgBox("Vuoi cancellare il record selezionato?", vbYesNo + vbDefaultButton2 + vbExclamation) = vbNo
End Sub

Quando clicco su SI mi cancella il record tranquillamente, quando invece dico di annullare l'operazione di cancellazione, mi compare un altro avviso del componente stesso, che mi avverte che è stata annullata l'operazione.... come posso eliminare quest'ultimo messaggio?

[mgmg]

Prova in questo modo, non ti darà più il messaggio di operazione annullata:

Private Sub grdDataGrid_BeforeDelete(Cancel As Integer) 
        if MsgBox("Vuoi cancellare il record selezionato?", vbYesNo + vbDefaultButton2 + vbExclamation) = vbNo  Then
            Cancel = 1
        End If

End Sub

Ciao

[zorro77]

Purtroppo me lo da sempre l'informazione del componente dell'operazione annullata

[giorgiogio48]

Private Sub cmdCancella_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Mresult As String
Set db = OpenDatabase(App.Path & "\TuoDatabase.mdb")
Set rs = db.OpenRecordset("TuaTabella")
DataGrid1.Col = 0
Do Until rs.EOF
If DataGrid1 = rs(0) Then
Mresult = MsgBox("Si desidera eliminare" _
   & " il record?", _
    vbYesNo + vbQuestion, "Conferma eliminazione")
If Mresult = vbNo Then
   Exit Sub
Else
rs.Delete
db.Close
Adodc1.Refresh
'Eventualmente...
FPrincipale.DataGrid1.Columns(x).Visible = False
'...................................................
FPrincipale.DataGrid1.Columns(y).Width = z
'............................................
Exit Sub
End If
End If
rs.MoveNext
Loop
End Sub

Ciao.

[mgmg]

Ho dimenticato, nel post precedente, di scriverti anche la routine di gestione dell'errore della griglia per non dare il messaggio di operazione annullata:

Private Sub grdDataGrid_Error(ByVal DataError As Integer, Response As Integer)
 If DataError = 7011 Then Response = 0
 End Sub

Ciao

[giorgiogio48]

Originariamente inviato da mgmg
Ho dimenticato, nel post precedente, di scriverti anche la routine di gestione dell'errore della griglia per non dare il messaggio di operazione annullata:

Private Sub grdDataGrid_Error(ByVal DataError As Integer, Response As Integer)
 If DataError = 7011 Then Response = 0
 End Sub

Ciao

Ciao mgmg,
ma da dove la hai presa eheh quella routine di errore. Io non la trovo fra gli eventi di datagrid.
Ciao.

[mgmg]

Sia per Grid che DBGrid esiste l'evento Error, prova a cercarlo.

Ciao

[giorgiogio48]

Originariamente inviato da mgmg
Sia per Grid che DBGrid esiste l'evento Error, prova a cercarlo.

Ciao

Trovato. Grazie. Non avevo capito che avevi dato un nome convenzionale al Datagrid.
Ciao.

[zorro77]

Grazie mille!!!
funziona tutto alla perfezione!!!!

ho un altro prob con il dataGrid...ma apro altro post...ti aspetto