VBA
VBA（主に、Access VBA）に関してのTipsです。
Twipとinchとcmはどういう関係にあるのか。
１インチは、1440Twip
１インチは、2.54cm
1cmは、約566Twip？
1440Twip = 2.54cm
あれ？
やっべ。わかんね。頭混乱してきた。
（2005/04/15修正：やっぱり構文間違ってました。すいません。orz）
Access+ADOで接続文字列を作成するとき、ADPプロジェクトでのプログラムであれば、以下の文が使用できます。
CurrentProject.Connection
たとえば、こんな感じ。
Dim cn As ADODB.Connection Dim rs As ADODB.RecordSet Set
VB6には、Dirという、指定されたファイルがあるかどうかを確認できる関数があります。
Dim FileName As String FileName = "C:\autoexec.bat" If Dir(FileName) = FileName
WindowsやOfficeを再インストールして、それまで使ってたお気に入りのコード表示色設定がなくなってしまった場合、
以下のレジストリキーをバックアップしておいて、Office再インストール後にインポートすると、今までのコード表示色設定が使えます。
レジストリのキーの場所は、以下の場所です。
HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common
この中の、
CodeBackColors が背景色の設定。
CodeForeColors
オートナンバーとかにしていないIDや連番列で、その一番大きい数（最大の数）を返します。（DMax関数）
ついでに、新しいIDとしても使えるように、＋１しちゃいます。
Public Function GetRowMAX(TableName As String, RowName As String) As Long
GetRowMAX = DMax(TableName, RowName) + 1
End Function
Access VBAにて、APIを呼び出す時に使う、ウィンドウハンドル。
これは、以下の構文で読み出せます。
hWndAccessApp
…単純なんだけど、これがなかなか見つからなかったり、忘れてたりで苦労するんですよ。