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

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

MS Access

【レポート】VBAのLineメソッドで引いた罫線がずれる現象

※ACCESS2000より新しいバージョンのACCESSで発生現象: VBAで、SectionのHeightを使用して計算した値によって引いた縦罫線がずれる対策: コントロールをSectionの下にぴったり合わせて配置するのを避ける 少し浮かすように配置する参考: answers.microsoft…

2019/11/12配信の更新プログラムによる「クエリは破損しています」エラーについて

Access エラー: 「クエリは破損しています」 - Access MSI版 インストールされている更新プログラムを削除することはお勧めしません。ただし、更新プログラムを削除する必要がある場合は、更新履歴で実行できます。 [スタート] ボタンを選択し、[設定] > [更…

【令和】元号改正に関するリンク

Windows 用の日本の新元号対応更新プログラムについて - KB4469068 Microsoft Excel および Microsoft Access は、’元年“ をサポート” していませんが、Office の VBA プログラミングは OLE に依存しており、VBA コードで “元年” をサポートしています。詳細…

ほかのユーザーが同じデータに対して同時に変更を試みているので、プロセスが停止しました。

ODBCがデータソースになっているフォームで変更・削除をしようとすると表題のメッセージが出る場合、 最適化/修復では解決しない場合に疑うこと。 bit型(Access側ではYes/No型)フィールドにNULLが入っていないかどうか。 AccessのODBCリンクでテーブルを確…

ファイルDSNでRefreshLinkする時のパスワードの扱い

tbf.Connect = "FILEDSN=" & strDSNPath _ & ";Uid=" & strUID _ & ";Pwd=" & strPwd tbf.RefreshLink Connectにパスワードを記載していても実行後のリンクテーブルはパスワードを要求してくる。 tbf.Connect = "FILEDSN=" & strDSNPath _ & ";Uid=" & strUI…

ACC2000プロジェクト(.adp) のストアドプロシージャすべてに 「.1」が付く

Officeのサービスパックが適用されていないために起こる Access 2000 プロジェクトと SQL Server 2000 の互換性の問題 Office 2000 アップデート: Service Pack 3 (SP-3)

バリアント型でない変数に Null 値を代入しようとしました。

[現象] 「値要求:いいえ」のフィールドであるのに、「バリアント型でない変数に Null 値を代入しようとしました。」とエラーが出る。 [再現] 「値要求:はい」のフィールドを持つ、ODBCリンクのテーブルを開く 名前を付けて保存 「値要求:はい」のフィール…

パッケージソリューションの「製品コード」「アップグレードコード」

「保存されているテンプレートファイルからウィザード設定を読み込む」ボタンから、 以前に保存しておいたウィザード設定を読み込んで、別のパッケージを参照作成しようとすると、 詳細オプションの「製品コード」「アップグレードコード」まで読み込まれて…

Accessの色番号をRGBや16進カラーコードに変換

Accessの背景色、前景色の色番号(Long)を、 他ソフトで使えるRGB、Webで使う16進カラーコードに変換する機能をサイドバーに付けてみた。[ 参考にさせて頂いたサイト ] Accessの色番号について - 質問・相談ならMSN相談箱 ltzz.info - RGB-HEX相互変換

オブジェクトまたはクラスがこのイベントセットをサポートしていません。

「イベントプロパティに指定した式 開く時 でエラーが発生しました: オブジェクトまたはクラスがこのイベント セットをサポートしていません。」 *マクロ名、ユーザー定義関数名、[イベント プロシージャ]以外の式が指定されています。 *関数、イベント、マ…

【ACC2010】 「ファイル」タブから「パッケージと配布」が消えてしまった場合

[ファイル]タブを選択 [オプション]を選択 [アドイン]を選択 すると、「アクティブでないアプリケーション アドイン」の一覧の中に「Microsoft Access Package Solution Wizard 2010 COM Addin」があるはず そこで左下の[設定]ボタンをクリック 「COMアドイ…

空白を入力するとMSACCESSが落ちるようになった

[現象] テキストボックスに空白を入力すると、いきなり落ちるようになった。 [経過] イベントログを確認すると、KERNELBASE.DLLでエラーが発生している。 参照設定も異常なし /decompile しても解消せず 原因不明… [結果] 日本語入力が、Baidu IME になって…

64bit Windows のコンパネでは 32bit ODBC の設定ができない

32bit版Officeは、32bit版のODBCを参照する。 コンパネのODBCアドミニストレータは64bit版を扱う。→ 32bit版OfficeのODBC設定は、32bit版の ODBCアドミニストレータで行う。 %windir%\SysWOW64\odbcad32.exe 参考: MySQL ODBCが接続できない!?Windows7 64…

Access2000 Adp のCommandTimeout

CurrentProject.Connection.CommandTimeOut で設定してもダメなようです。 Dim ADOCmd As ADODB.Command Set ADOCmd = New ADODB.Command With ADOCmd .CommandText = "xxx" .ActiveConnection = CurrentProject.Connection .CommandTimeout = 0 .Execute En…

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

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

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

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

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…

参照設定

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

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

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

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

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

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イベントではダメな気が.....

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

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…

実行時エラー'91'

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

Access2010 Tips Link

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