Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Йожык
Мало ли пригодится. Некоторые формы могут отображаться кривыми шрифтами на новых машинках, если не указан шрифт табличной формы

За основу кода взята статья Юрия Шермана.
http://hiprog.com/index.php?option=com_content&task=view&id=442

А выглядит бонус так:

Sub ChangeShrift() ' изменяет шрифты для всех табличных форм в базе Dim frm As Form, ctl As Control Dim FormName As String, n As Long 'On Error Resume Next 'Перебираем все формы For n = 0 To CurrentDb.Containers("Forms").Documents.Count - 1 FormName = CurrentDb.Containers("Forms").Documents(n).Name SysCmd acSysCmdSetStatus, FormName 'Открываем форму в режиме конструктора If FormName <> "СкрытаяФорма" Then      DoCmd.OpenForm FormName, acDesign, , , , acHidden       Set frm = Forms(FormName)        '---- этими  строчками можно дополнить код в статье ЮШ         If frm.AllowDatasheetView=True Then         frm.DatasheetFontName = "Arial"         frm.DatasheetFontHeight = 9 '----------------------   DoCmd.Close acForm, FormName, acSaveYes       Else   DoCmd.Close acForm, FormName, acSaveNo       End If End If Next n 'следующая форма SysCmd acSysCmdClearStatus MsgBox "Обработано форм: " & n, vbInformation End Sub

Удачи :)