φ(..) ビボ~6 φ(..)

主にAccess、VBAに関する備忘録

管理者ユーザーでログオンしているのにAdministraor権限を要求される場合

普通にコントロールパネルを覗いただけでは存在していないように見える Administrator というアカウントを見えるようにしてやればよいようです。 [スタート] [コンピューター]を右クリック [管理] [ローカルユーザーとグループ] [ユーザー] ユーザー『Admini…

どうしてもODBC接続できないときに調べ忘れそうなこと

こんなこともあるよ、という意味でメモ。 SQL Server側のプロパティ(リモート接続許可、権限など)はキチンとできている、 構成マネージャーのTCP/IP設定、FWのポート開け、などなど 心当たりの設定はキチンとできているにも関わらず、ODBC接続に失敗する場…

ソリューションパッケージウィザードで追加のインストール

パッケージ内の \Files\Setup\Setup.ini [ChainedInstall_n]オプションに追加する。セットアップ設定ファイル (Office 2003 Editions リソース キット)

列を追加するとき、既に存在するかチェック

IF EXISTS(SELECT * FROM sys.columns WHERE Name = N'ColumnName' AND Object_ID = OBJECT_ID(N'TableName')) /* 存在するときの処理 */ ELSE /* 存在しないときの処理 */

Windows7で拡張子CHMのヘルプが開けない場合

文書番号: 917607 Windows ヘルプ形式 (WinHlp32.exe) で作成されたヘルプを開くことができない - Microsoft サポート

HTML文字セット

Etc

HTML 文字セット - MSDN ライブラリ

各ユーザーフォルダの環境変数

■図01 User Shell Foldersキーの内容 展開可能な文字列値 データ値 内容 移動 {374DE290-123F-4565-9164-39C4925E467B} %USERPROFILE% \ Downloads ダウンロードフォルダのデータを格納 ○ AppData %USERPROFILE% \ AppData\Roaming アプリケーションデータを…

NULL文字のせいでテキストファイルがインポートできないとき

NULL文字を空白に置き換える処理 Sub WriteNewTextFile() Dim characterArray() As Byte Dim fileLen As Long Dim strOrigFile As String Dim strNewFile As String Dim MyString As String Dim fs As Object 'Change the path and the names of the files a…

Management Studio でテーブルデザインの変更ができないとき

[ツール]-[オプション]-[デザイナー] □テーブルの再作成を必要とする変更をできないようにする の、チェックをはずす。

全角/半角混在のテキストからバイト指定で文字列を切り出す

VBA

Dim buf AS String Open "TESTFILE.TXT" For Input As #1 Do Until EOF(1) Line Input #1, buf '100バイト目から4桁取り出す Debug.Print StrConv(MidB(StrConv(buf, vbFromUnicode), 100, 4), vbUnicode) Loop Close #1 vbUpperCase 1 文字列を大文字に変換…

古いCOBOLソースに16進で書かれた日本語を調べるには

Etc

こういうの ⇒ NX"404040404040"以下のサイトからブラウザの検索機能を使ってみる 文字コードについて - ASH

参照設定

ダイアログ ボックス : Microsoft Office(バージョン) Object Library FileSystemObject : Microsoft Scripting Runtime

フォルダ、ファイルの選択ダイアログ

[参照] ダイアログ ボックス(ファイル参照) '[参照] ダイアログ ボックスの FileDialog オブジェクトを作成します。 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '選択した各アイテムのパスを保存す変数を宣言します。 …

行削除に関するイベントについて

Accessのフォームからレコードを削除しようとすると、次のような順番でイベントが発生します。 Delete/レコード削除時イベント Deleteキーなどの操作によって、レコードが削除されようとしたときに発生します。 レコードが実際に削除される前に発生するもの…

JOIN を利用したDELETE

【例】 商品マスタと商品単価マスタがあり、商品単価が登録されていない商品を、商品マスタからすべて削除したい。 ・商品マスタ 商品コード商品名00001あんぱん00002メロンパン00003クリームパン ・商品単価マスタ 商品コード適用開始日単価000012008040112…

Windows7でのSendkeys、Enterキー問題

以下、暫定処置として Access2000: Sendkeys {Esc} の箇所で 実行時エラー '70':書き込みできません。が出る問題 UACを無効にする VB6: Enterキー移動ができなくなる問題 UACを無効にする。 EXEのプロパティを開き、互換性でXPを選ぶ。

Access2000 ページ設定のメモ

ページ設定関連のプロパティ Reports("REPORT_NAME").PrtDevMode Reports("REPORT_NAME").PrtDevNames Reports("REPORT_NAME").PrtMip プロパティのデータ型 Byte型配列 Dim baPrtDevMode() As Byte Dim baPrtDevNames() As Byte Dim baPrtMip() As Byte テ…

トリガを一括で削除する

トリガ名がテーブル名に由来している場合の、トリガ一括削除の例 '/* '/* トリガーの一括削除 '/* Public Sub doDropTrigger() Dim rs As New ADODB.Recordset Dim adf As ADODB.Field Set rs = Con.OpenSchema(adSchemaTables) Do Until rs.EOF 'ユーザーテ…

MSCOMCT2.OCX ( Microsoft Windows コモン コントロール-2 6.0 )

ダウンロード: OFFXPDEV: MSCOMCT2。OCX が Microsoft Office XP の開発者には含まれていません

Access2010 Tips Link

Access 2010 の仕様 - Access - Office.com 10 Essential Microsoft Access 2010 Tips for Beginners - pcmag.com Access 2010からODBCでクラウドのSQL Azureに接続可能。そのメリットは? − Publickey MukkuMuku備忘 本家サポートより助けになるサイトだと…

Access2010 動作を停止します。について

参考にしたサイト: Access2010がよく停止する。 | Microsoft Answers Access 2010 SP1 – You receive random crashes in certain database | Microsoft Answers フォーム等をOPENすると強制終了するところから始まり、 デザインで開けなくなり、 VBEそのもの…

acHidden で OpenForm したフォームを再表示したとき

Form_Load と同じ処理をしたい場合は、 Private Sub Form_Resize() Call Form_Load End Sub とすると良いかも..... Activateイベントではダメな気が.....

SQL ServerでAccessのFirst関数的なことをしたい

ACCESSの↓こんな感じのことをSQL Serverでも実現したい。 SELECT FLD1, First(TABLE_A.FLD2) AS FLD2, First(TABLE_A.FLD3) AS FLD3 FROM TABLE_A WHERE FLD3 IS NOT NULL GROUP BY FLD1 SQL Server: 基本レコード FLD1 FLD2 FLD3 1 1 NULL 1 2 あ 1 3 い 2 …

テーブルが存在するかどうか

OpenSchema メソッド '/* '/* テーブルの存在有無 '/* '/* 引数: テーブル名 '/* 戻値: True 有/ False 無 '/* Private Function fnExistTable(pTbName As String) As Boolean Dim bExist As Boolean Dim rs As New ADODB.Recordset Set rs = Con.OpenSchem…

'COMDLG32.OCX'、またはその依存関係のひとつが 適切に登録されていません。

VB

以下のようなエラーに対する対処に関するリンク集:実行時エラー '339' コンポーネント 'COMDLG32.OCX'、またはその依存関係のひとつが 適切に登録されていません。ファイルが存在しないか、あるいは 不正です。 症状Administrator(管理者)権限でインスト…

実行時エラー'91'

実行時エラー'91':オブジェクト変数または With ブロック変数が設定されていません。 VBなど外部からAccessを呼び出すときに発生する場合 ACC2003以上の場合、マクロのセキュリティを(低)に下げてみる。 ACC2003 : [ツール]-[マクロ]-[セキュリティ] → セ…

バッチコマンドでレジストリキーを削除

Regedit → 削除したいキーを右クリック → エクスポート→ エクスポートでできた .reg ファイルを編集→ キーの前に 『 - 』(マイナス)を追加例)hoge.reg Windows Registry Editor Version 5.00[-HKEY_CURRENT_USER\Software\VB and VBA Program Settings*1\…

Windows7 エクスプローラで拡張子を表示させる

Alt を押してメニューバーを出す。→ フォルダオプション Windows 7 での拡張子表示 - No Dragons , No Life

Access2010 Tips Link

10 Essential Microsoft Access 2010 Tips for Beginners - pcmag.com Access 2010からODBCでクラウドのSQL Azureに接続可能。そのメリットは? − Publickey

Access2010 ランタイム

「セキュリティに関する通知」メッセージを回避する方法 Access2010ランタイム設定方法 - MK工房 右クリックでショートカットメニューを出す*1方法 マウスクリックイベントで、 If Button = acRightButton Then Application.CommandBars("Form Datasheet…