Public Sub QQQQ()
Dim i As Integer
Dim strFormName As String
For i = 0 To CurrentProject.AllForms.Count - 1
strFormName = CurrentProject.AllForms(i).Name
DoCmd.OpenForm strFormName, acDesign
Forms(strFormName).ShortcutMenu = False
DoCmd.Close acForm, strFormName, acSaveYes
Next i
End Sub
|