Buongiorno, dovendo realizzare un'applicazione molto semplice ma da affidare a utenti piuttosto inesperti sto cercando di evitare che essi possano accedere a tabelle intere per evitare danni. Ora per inserire nuovi record me la sono cavata con una maschera con le caselle di testo che rappresentano i campi da inserire e del codice VBA come sotto, Ma per operazioni di modifica o cancellazione di un singolo record le mia competenze sono insufficienti. Per ora ho risolto con una classica query che alimenta una maschera che consente l'edit di specifici campi e, con un pulsante, la cancellazione del record. Funziona ma non mi piace molto. Aspetto vostro suggerimenti, grazie, m.
Private Sub plsInsNominativo_Click()
Dim strInsert
Dim risposta
risposta = MsgBox("confermi?", vbYesNo)
If risposta = 6 Then
strInsert = "INSERT INTO T_Anagrafica(NOMINATIVO,DIVISIONE,EMAIL,DATA_FIRMA_DSAN)" & vbCrLf & _
"VALUES(pNOMINATIVO,pDIVISIONE,pEMAIL,pDATA_FIRMA_DSAN)"
Set DB = CurrentDb
Set qdf = DB.CreateQueryDef(vbNullString, strInsert)
qdf.Parameters("pNOMINATIVO").Value = Me.NOMINATIVO.Value
qdf.Parameters("pDIVISIONE").Value = Me.DIVISIONE.Value
qdf.Parameters("pEMAIL").Value = Me.EMAIL.Value
qdf.Parameters("pDATA_FIRMA_DSAN").Value = Me.DATA_FIRMA_DSAN.Value
qdf.Execute dbFailOnError
MsgBox "E' stato inserito il nominativo di " & Me.NOMINATIVO.Value & " " & Me.DIVISIONE.Value & " con DSAN in data: " & Me.DATA_FIRMA_DSAN.Value
NOMINATIVO.Value = ""
DIVISIONE.Value = ""
EMAIL.Value = ""
DATA_FIRMA_DSAN.Value = ""
Else
MsgBox ("ti sei pentito!")
End If
End Sub