https://accesstips.blog.shinobi.jp/ アクセス小技集 Fri, 04 Sep 2009 09:02:41 GMT ja © Ninja Tools Inc.
フォームのプロパティで「レコードセット」を「スナップショット」に設定します。










]]> フォーム https://accesstips.blog.shinobi.jp/%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0/%E7%B7%A8%E9%9B%86%E3%81%A7%E3%81%8D%E3%81%AA%E3%81%84%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%EF%BC%88%E3%82%B9%E3%83%8A%E3%83%83%E3%83%97%E3%82%B7%E3%83%A7%E3%83%83%E3%83%88%E5%88%A9%E7%94%A8%EF%BC%89 Fri, 04 Sep 2009 09:02:41 GMT accesstips.blog.shinobi.jp://entry/4 通常、　=date() 　とコントロールソースに指定しますね。すると表示はこんな感じになります。↓

2009/08/07

これだとちょっと味気ないと思いませんか？書式を設定することで表示を変えてみましょう。

・プロパティ
コントロールソース：=Date()
書式：yyyy\年mm\月dd"日("aaaa)




・実際の表示
2009年08月07日(金曜日)
これで、だいぶ表情が変わりました。更に1～9の時、頭につく「0」をとりたい場合は、
書式：yyyy\年m\月d"日("aaaa)
と設定。すると
2009年8月7日(金曜日)
いかがですか？お試しください。

Access専門開発なら＞＞　http://homepage3.nifty.com/baycubic/



]]> フォーム https://accesstips.blog.shinobi.jp/%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0/%E6%B0%97%E3%81%AE%E5%88%A9%E3%81%84%E3%81%9F%E6%97%A5%E4%BB%98%E8%A1%A8%E7%A4%BA%20date%E9%96%A2%E6%95%B0 Fri, 07 Aug 2009 15:00:12 GMT accesstips.blog.shinobi.jp://entry/3
※Excelのバージョンは2000を想定しました。
※VBE参照設定で「Microsoft Excel Objects Library 」にチェックを。Excel2000の場合は9.0.。
※指定のExcelファイルは、Cドライブ直下にあることを想定。
※ＷindowsVistaの場合、ユーザーアカウント制御（UAC）をOFFにします。

’----ここから
Function ToExcel()

On Error GoTo エラー


    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
         
   
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open "テーブル名またはクエリ名をここに入れる", cn, adOpenKeyset, adLockOptimistic

    Dim objEXE As Object
    Dim strmsg As String
    Dim intmsg As Integer
   
    strmsg = "Ms Excelへデータを出力しますか ？"
    intmsg = msgbox(strmsg, 17, "管理者")

    If intmsg = 1 Then
       
Set cn = CurrentProject.Connection

        '出力先のMs Excelを利用できるように設定します。
        Set objEXE = CreateObject("Excel.Application.9") 'Excel2000の場合
       
        'Excelファイルのパスを指定します。
        objEXE.Workbooks.Open ("C:\sample.xls")
       
         'Sheet名を指定します。
        objEXE.Worksheets("Sheet1").Select
       
        '例.セルB5を基点としてデータを出力します。
        objEXE.Cells(5, 2).CopyFromRecordset rs
       
        objEXE.Visible = True

        rs.Close: Set rs = Nothing
        cn.Close: Set cn = Nothing

    Else
   
        msgbox "処理を中止しました", 1, "管理者"
       
    End If
   
    Exit Function
   
エラー:

    msgbox "Error番号：" & err.Number & vbNewLine & _
            "Error内容：" & err.Description, 16, "管理者"
    End

End Function
'---ここまで

イベントプロシージャのクリックイベント等に指定してください。

Access専門開発なら＞＞　http://homepage3.nifty.com/baycubic/


]]> VBA https://accesstips.blog.shinobi.jp/vba/access%E3%81%8B%E3%82%89excel%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%EF%BC%88%E6%8C%87%E5%AE%9A%E3%81%97%E3%81%9F%E3%82%BB%E3%83%AB%EF%BC%89%E3%81%AB%E3%83%87%E3%83%BC%E3%82%BF%E5%87%BA%E5%8A%9B Mon, 03 Aug 2009 18:18:36 GMT accesstips.blog.shinobi.jp://entry/2 ←こんな時・・・

ツール→オプション→キーボードを選択し、「フィールドの最後に移動」を選択します。









→既定値の後ろにカーソルがきた



Access専門開発なら＞＞　http://homepage3.nifty.com/baycubic/
]]> フォーム https://accesstips.blog.shinobi.jp/%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0/%E3%83%95%E3%82%A3%E3%83%BC%E3%83%AB%E3%83%89%E3%81%AE%E3%82%AB%E3%83%BC%E3%82%BD%E3%83%AB%E9%81%B8%E6%8A%9E%E7%8A%B6%E6%85%8B%E3%81%AE%E5%A4%89%E6%9B%B4%EF%BC%88%EF%BD%81%EF%BD%83%EF%BD%83%EF%BD%85%EF%BD%93%EF%BD%93%EF%BC%89 Sun, 02 Aug 2009 12:50:24 GMT accesstips.blog.shinobi.jp://entry/1