Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

[ACCESS] Chiedere conferma dopo aver premuto tasto "elimina record"

  1. #1
    Ferra88 non  in linea Novello
    Ciao a tutti!

    Come da titolo, ho una maschera con una serie di campi ecc... ho creato il pulsante "elimina record" e, una volta cliccato mi eilima direttamente il record selezionato. possibile, una volta premuto, far comparire una finestra che chiede la conferma di eliminazione? grazie mille!

  2. #2
    L'avatar di seamission
    seamission non  in linea Scribacchino
    Quote Originariamente inviato da Ferra88 Visualizza il messaggio
    Ciao a tutti!

    Come da titolo, ho una maschera con una serie di campi ecc... ho creato il pulsante "elimina record" e, una volta cliccato mi eilima direttamente il record selezionato. possibile, una volta premuto, far comparire una finestra che chiede la conferma di eliminazione? grazie mille!
    Ciao Ferra88

    Questo il codice del mio pulsante elimina record
    Private Sub Elimina_Record_Click()
    On Error GoTo Err_Elimina_Record_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Exit_Elimina_Record_Click:
    Exit Sub

    Err_Elimina_Record_Click:
    MsgBox Err.Description
    Resume Exit_Elimina_Record_Click

    End Sub
    L'ho creato con l'autocomposizione , e mi da una finestra pop-up che mi avvisa dell'eliminazione del record, provalo.
    ℹ️ Leggi di pi su seamission ...

  3. #3
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da Ferra88 Visualizza il messaggio
    Ciao a tutti!

    Come da titolo, ho una maschera con una serie di campi ecc... ho creato il pulsante "elimina record" e, una volta cliccato mi eilima direttamente il record selezionato. possibile, una volta premuto, far comparire una finestra che chiede la conferma di eliminazione? grazie mille!
    Io utilizzo questa Funzione messa in un Modulo Public e la richiamo da qualsiasi posto:
    Function fDelCurrentRec(frm As Access.Form, Optional AskForDelete as Boolean=False) As Boolean
        Dim lngMove As Long
        On Error GoTo Err_Section
        'Elimina il Record Corrente nella FrmMain
        'quindi esegue il Requery.
        'Return:True se l'operazione  andata a buon fine
        '       False se viene generato un errore    
        
        If AskForDelete = True Then
            If Msgbox("Vuoi eliminare il Record...?"),vbyesno+vbquestion)=vbno then exit Function
        End if
     
        With frm.RecordsetClone
            .Bookmark = frm.Bookmark
            lngMove = CLng(.AbsolutePosition + 1)
            .Delete
            frm.Requery
            If lngMove > .RecordCount Then lngMove = .RecordCount
            .Move lngMove
            frm.Bookmark = .Bookmark
        End With
        fDelCurrentRec = True
    Exit_Section:
        Exit Function
    Err_Section:
        fDelCurrentRec = False
        Resume Exit_Section
    End Function
    
    Per richiamarla da qualsiasi Form si chiama cos:
    Dim blDel as Boolean
    blDel=fDelCurrentRec(Me, False)   ' NON richiede la conferma
    blDel=fDelCurrentRec(Me, True)   ' richiede la conferma
    blDel=fDelCurrentRec(Me)            ' NON richiede la conferma il parametro  OPTIONA=FALSE
    
    Il vantaggio di questo metodo che risposiziona il Record subito al precedente quello eliminato invece di riportare il codice alll'inizio....
    ℹ️ Leggi di pi su @Alex ...

  4. #4
    Ferra88 non  in linea Novello
    grazie mille!!!!!

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 8
    Ultimo Post: 14-11-2017, 19:30
  2. Risposte: 1
    Ultimo Post: 06-03-2013, 07:31
  3. Vecchio DB "non normalizzato" (record "multicampo")
    Da Lindo nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 02-04-2010, 20:11
  4. Risposte: 1
    Ultimo Post: 01-09-2009, 10:34
  5. [Access 2003] Tasto "Salva"-Aiuto Urg
    Da Alkariel nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 13-06-2005, 00:10