tacchini's manual

自分用のマニュアルを作成します。

Accessでフォーム自体のプロパティ一覧を 

Public Sub ExportFormPropertiesToFile(ByRef frm As Form, fileName As String)
    Dim prop As Property
    Dim f As Integer
    Dim outputPath As String
    
    outputPath = "C:\Tmp\form_properties." & fileName & ".md"
    f = FreeFile
    
    Open outputPath For Output As #f
    
    Print #f, "# Form: " & frm.name
    On Error Resume Next
    For Each prop In frm.Properties
        Print #f, "  " & prop.name & " = " & prop.Value
    Next
    On Error GoTo 0
    
    Close #f
    
    MsgBox "完了しました: " & outputPath
End Sub

Accessでコントロールとプロパティの一覧をVBAで出力

フォームのボタンに登録

Private Sub cmdListPropertiesAtContactForm_Click()
 ExportControlPropertiesToFile Me, "base"
End Sub

標準モジュールに登録

Public Sub ExportControlPropertiesToFile(ByRef frm As Form, fileName As String)
    Dim ctl As Control
    Dim prop As Property
    Dim f As Integer
    Dim outputPath As String
    
    outputPath = "C:\Tmp\control_properties." & fileName & ".md"
    f = FreeFile
    
    Open outputPath For Output As #f
    
    For Each ctl In frm.Controls
        Print #f, "## Control: " & ctl.name & " (" & ctl.ControlType & ")"
        On Error Resume Next
        For Each prop In ctl.Properties
            Print #f, "  " & prop.name & " = " & prop.Value
        Next
        On Error GoTo 0
        Print #f, ""
    Next
    
    Close #f
    
    MsgBox "完了しました: " & outputPath
End Sub

朝会の発表

おはようございます。本日は発話機能で発表します。

自分が喋る代わりに、書いてある文章を読み上げています。

読み上げ機能はpocketというあとで読むサービスのiphoneアプリの機能です。

なぜ読み上げ機能がついているのか考えました。

オーディオブックを聞くのと同じ感覚で、あとで読むサービスに追加した記事を聞きたい人がいるのかもしれません。

オーディオブックは本を朗読した音声を記録したものです。

オーディオブックは日本では車通勤の人が少ないので普及していません。