CISA FotoGallery

Statistiche

Tot. visite contenuti : 927926
Home Articoli tecnici VBA Settare una proprietà per tutte le maschere

Settare una proprietà per tutte le maschere

 La funzione cambia il tipo di recorsettype, ma potrebbe settare qualsiasi altra proprietà.

Function frmRecordsetTypeSet()
'Scritto da Arisi Roberto (Roberto da Parma)

'Trasforma il recordset in tipo snapshot (maschera di sola lettura) o altro

Dim frm As Form
Dim obj As AccessObject, dbs As Object, rst As Long
Set dbs = Application.CurrentProject

Application.Echo False

'Apre tutte le maschere
For Each obj In dbs.AllForms
DoCmd.OpenForm obj.Name, acDesign

For Each frm In Forms
frm.RecordsetType = 2
'Modifica il valore, sostituibile con qualunque altra proprietà
'Dynaset 0
'Dynaset (Aggiornamenti non coerenti) 1
'Snapshot 2
Next frm

'Richiama la funzione che chiude la maschera aperta
DoCmd.SetWarnings False
DoCmd.Close acForm, obj.Name, acSaveYes
DoCmd.SetWarnings True
Next obj

Application.Echo True

End Function