[Resolvido]Fontes (letras) no Access 2003

Boa noite, amigos ee mestres.

Minha dúvida é se existe um modo de saber, via código, as fontes (tipos de letras) usadas em um bd em access para poder enviá-las junto com o bd, caso o usuário não as tenha em seu pc. Obrigado.

Tente o seguinte: coloque uma listbox de nome lstFontes por exemplo e no botão, coloque assim:

Dim C As Control

    Me.lstFontes.RowSource = ""
    Me.lstFontes.RowSourceType = "value list"

For Each C In Me.Controls
    Me.lstFontes.AddItem C.FontName
Next

Obrigado pela resposta, mestre.

Funciona perfeitamente no formulário em curso, mas, ao meu ver(desculpe a ignorância), teria que colocar esse módulo em cada form para ver a lista de fontes em cada um.

Minha pergunta é se teria como ver em todo o bd sem olhar form por form.

Obrigado novamente.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Boa noite, amigos.

Eu retornei para ajudar os que estiverem com a mesma dúvida que eu tinha.
Adaptando um código do grande JPAULO, consegui colocar nomes e tamanho de todas as fontes usadas nos diversos formulários do meu BD, então resolvi postar o código aqui.
"Pra que saber os nomes das fontes usadas no BD?" Talvez você use uma fonte específica que não exista no PC do usuário, então você sabendo quais as fontes do BD, já instala todas.


'Em um botão de um formulário

On Error GoTo errlbl

Dim CorrerTodos As Single
Dim frm As AccessObject
Dim openFrm As Access.Form
Dim Controles As Access.Control
Dim CaixasTexto As Access.TextBox
Dim FontName As String
Dim FontSize As String
Dim ctr As Control

CorrerTodos = Timer()
For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
Set openFrm = Forms(frm.Name)
For Each Controles In openFrm
If Controles.ControlType = acListBox Or Controles.ControlType = acComboBox _
Or Controles.ControlType = acLabel Or Controles.ControlType = acTabCtl _
Or Controles.ControlType = acTextBox Or Controles.ControlType = acTabCtl Then
FontName = Controles.FontName
FontSize = Controles.FontSize
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO [AFontes] ([FonteNome], [FonteTamanho]) VALUES ('" & FontName & "', '" & FontSize & "')")
DoCmd.SetWarnings True
End If
Next Controles
'DoCmd.Save acForm, frm.Name
DoCmd.Close acForm, frm.Name
Next frm
CorrerTodos = Timer - CorrerTodos
Exit Sub
errlbl:
If Not Err.Number = 438 Then
MsgBox Err.Number & " " & Err.Description
End If
Resume Next

' Serão jogados os nomes das fontes para a tabela (no meu caso) Afontes. Depois foi só fazer uma consulta com "agrupamento" no campo FonteNome.

Obrigado pela lembrança, a sala de repositório de Exemplos tem crecido e muito.

http://maximoaccess.forumeiros.com/t216-fontes-do-windows