Public Sub tensou() On Error GoTo E Dim myDB As Database Dim myTD As TableDef 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.TableDefs '別ファイルのテーブル名からデ…

pingの応答を許可 http://www.server-world.info/query?os=Windows_Server_2008&p=first_conf&f=7 共有フォルダのアクセスを許可 http://faq.ricoh.jp/faq/1032/app/servlet/qadoc?001863

強制的にIPアドレスを解放してから、再割り当てする ipconfig /release ipconfig /renew

Option Compare Database 'dbfインポートFunction import_dbf() Dim Path As String Dim buf As String, f As Object Path = InputBox$("dbf格納フォルダ") buf = Dir(Path & "\*.dbf") Do While buf <> "" On Error GoTo Err_import_dbf Debug.Print (Path …

Option Compare Database Function alterFields() Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim sql As String Set cn = CurrentProject.Connection cmd.ActiveConnection = cn sql = "ALTER TABLE [テーブル名] ALTER COLUMN [カラム…

AccessからExcelファイルを開いて・印刷して・閉じたい http://www.ken3.org/vba/backno/vba064.html

'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).Address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…

'Accessテーブルの指定フィールド一括置換 Function replaceTable() Dim myDB Dim myTD On Error GoTo Err_replaceTable 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.Table…